<% On Error Resume Next AI_ID = Request.QueryString("AI_ID") If AI_ID = "" or IsNumeric(AI_ID) = False Then Response.End() sql = "select * from ADInfo where AI_ID=" & AI_ID Set rs = LsObject.CreateRs(sql,1,3) If rs.eof Then rs.close Response.End() End If AI_URL = rs("AI_Url") AI_Hit = rs("AI_Hit") rs("AI_Hit") = AI_Hit + 1 rs.update rs.close Call DBConnEnd() Response.Redirect(AI_Url) %>