|
|
|||||||||
|
| View Shopping Cart | ||||||||
Toll free |
sofer soferous tefilin tefillin mezuzah mezzuza jewish torah sifrei torah sefer torah mezuzah sofer soferous tefilin tefillin mezuzah mezuza jewish torah sifrei torah sefer torah sofer soferous tefilin tefillin mezuzah mezzuza jewish torah sifrei torah sefer torah |
You are visitor number <%=GetVisits(rs,cn)%>. Copyright © 2002-2006. Designed by DesignExperts.US
<%
function GetVisits(rs,cn)
dim sql
sql="select count(*) from sebag_counter"
rs=cn.execute(sql)
GetVisits=rs(0)
if trim(session("sessionid"))="" then
sql="select NewID()"
set rs=cn.execute(sql)
Session("sessionid")=rs(0)
sql="insert into SEBAG_Counter(ClientIP,ReferrerURL,SessionID) values('"& _
Request.ServerVariables("REMOTE_ADDR") _
&"','"& Request.ServerVariables("HTTP_REFERRER") _
&"','"& Session("SessionID") &"')"
cn.Execute sql
end if
end function
set rs=nothing
set cn=nothing
%>