<%@ Language=VBScript %> <% 'on error resume next if Session("kicked")="" then 'sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" 'sMapPath = Server.MapPath("\") 'sMapPath = Mid(sMapPath, 1, InStrRev(sMapPath,"\")-1) & "\database\HitCounter.mdb;" & _ '"Persist Security Info=False;" 'strCon = sConnString & sMapPath 'TERRASITE DSN CONNECTION 'set conntemp=server.createobject("ADODB.connection") 'conntemp.open "DSN=Student; uid=student; pwd=magic" 'set rstemp=conntemp.execute("select * from authors") Set DBCon = Server.CreateObject("ADODB.Connection") DBCon.Open "DSN=hitcounter; uid=; pwd=" 'DBCon.Open strCon strqry= "Select [Hits] from [Counter] where whichdate=#" & Date() & "#" set rs=DBCon.Execute(strqry) hited=0 do while not rs.EOF hited=rs(0) rs.movenext loop if hited=0 then strIns="Insert into [Counter] ([Hits]) values(1)" DBCon.Execute strIns 'response.write strIns else hited=hited+1 strUpdate = "Update [Counter] set [Hits]=" & hited & " where whichdate=#" & Date() & "#" DBCon.Execute strUpdate 'response.write strUpdate end if rs.close set rs=nothing hited=0 set rs=DBCon.Execute("Select [Hits] from [Counter]") do while not rs.EOF hited=hited+rs(0) rs.movenext loop Application("HitCount")=hited rs.close set rs=nothing DBCon.Close set DBCon = nothing Session("kicked")="yes" end if %>

this site is viewed <% HitNo=Application("HitCount") for i=1 to Len(HitNo) strNo=strNo & "" Next %> <%=strNo%> times since 10 August, 2002

All Rights Reserved© 2002 Saluki of Arabia Site designed and developed by Magic Flash