<% HosID=request("id") if HosID ="" then response.end end if if IsNumeric(HosID) = false then response.end else if int(HosID) <= 0 then response.end end if end if set rs=server.createobject("adodb.recordset") sql="select Hits from JK_Hospital where HosID="&HosID&"" 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 %>