<% MedID=request("id") if MedID ="" then response.end end if if IsNumeric(MedID) = false then response.end else if int(MedID) <= 0 then response.end end if end if set rs=server.createobject("adodb.recordset") sql="select Hits from JK_Medicine where MedID="&MedID&"" rs.open sql,conn,1,3 if rs.bof and rs.eof then else rs("Hits")=rs("Hits")+1 rs.update end if rs.close set rs = nothing conn.close set conn = nothing %>