<%
'''''''''''''''''''''''''''''''''CODE FOR HIT COUNTER'''''''''''''''''''''
set connhc=server.createobject("ADODB.Connection")
set reccounter=server.createobject("ADODB.Recordset")
sete=server.mappath("hitcounter.mdb")
connhc.ConnectionString ="provider=microsoft.jet.oledb.4.0;data source=" & sete
connhc.Open
sql="select * from user_counter"
reccounter.open sql,connhc
if reccounter.eof=true then ' or reccounter("counter")=0 then
hitcounter=7000
else
hitcounter=reccounter("counter")+1
end if
sql="delete from user_counter"
connhc.execute(sql)
sql="insert into user_counter values ("&hitcounter&")"
connhc.execute(sql)
%>
Irish Gifts, Irish Souvenirs, Connexxion Sports at Irish Connexxion
