WELCOME
TO MIGHTY JUMP.COM
<%
SET Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("dunkers")
SQL = "SELECT hitCount From Hit_counter where ID=1"
SET RS= Connect.Execute(SQL,,adCmdText)
if not RS.EOF then sHits = RS("hitCount").value
RS.Close
SET Connect = NOTHING
sDigits= len(sHits)
s= "
"
for i=1 to sDigits 'step -1
s= s & "![](images/" & mid(sHits,i,1) & ".gif)
"
Next
%>
This
site has been viewed:
<%=s%>