%on error resume next%>
<%id=request("id")%>
<%
sql="select * from comp where icheck=True and id=" & id
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.bof or eof then
Response.Write ""
response.end
end if
%>
<%
dim strSql,rs,i,PageNo
strSql="select * from comp where icheck=True and id=" & request("id")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs("click")=rs("click")+1
rs.update
%>