<!-- #include file="inc/conn1.asp"-->
<%
Response.Expires=0
application.lock
url1=request.servervariables("server_name")
url2=request.servervariables("url")
url="http://"&url1&url2
urlimg=replace(url,"index.asp","1")
set rs=server.createobject("adodb.recordset")
sql="select * from countip where ID=1"
rs.open sql,newconn,3,2

if request.cookies("dscount")=empty then
response.cookies("dscount")="yes"
rs("count")=rs("count")+1
rs.update
end if
ccount=rs("count")
rs.close
set rs=nothing
newconn.close
set newconn=nothing
application.unlock
g=cstr(ccount)
c=len(g)
countlong=5
if int(c)<int(countlong) then
for i=1 to int(countlong)-int(c)
   gifip = gifip & ""& 0 & ""

next
end if
for i=1 to c
   gifip = gifip & ""& mid(g,i,1) & ""
next
%>
<%=gifip%>