%
kdomain="4safe"
session("kdomain")=kdomain
domainx="4safe"
session("domainx")=domainx
kword=Request.QueryString("kword")
if kword="" then
kword=session("kword")
end if
if kword="" then
kword=request.form("kword")
end if
ksite=Request.QueryString("ksite")
if ksite="" then
ksite=session("ksite")
end if
if ksite="" then
ksite=request.form("ksite")
end if
rpage=Request.ServerVariables("HTTP_REFERER")
if session("kword")="" then
session("kword")=kword
end if
if session("ksite")="" then
session("ksite")=ksite
end if
if session("rpage")="" then
session("rpage")=rpage
end if
%>
![]() ![]() |
||||||||||||
![]() |
||||||||||||
|
Serving
Clients Since 1999 |
||||||||||||
|
||||||||||||
* Statistic according to the American Association of Christian Counselors
<% set conn = server.createobject("ADODB.Connection") conn.open "dsn=gpn;UID=sa;PWD=gpn2004;DATABASE=4safe" set rsinsert = Server.CreateObject("ADODB.recordset") address="insert into table_index (datex,ipaddress,kdomain,domainx,ksite,kword,rpage) values ('"&now()&"','"&Request.ServerVariables("remote_addr")&"','"&kdomain&"','"&domainx&"','"&ksite&"','"&kword&"','"&rpage&"' )" rsinsert.open address,conn %>