:: DYNAMICA Ropes ApS - Strength & Power, The Ultimate DYNAMICA Rope ::

<%@ Language="Javascript"%> <% con=Server.CreateObject("ADODB.Connection") con.Provider="Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="+Server.MapPath ("../web.mdb") con.Open() rs=Server.CreateObject("ADODB.Recordset") rs1=Server.CreateObject("ADODB.Recordset") rs2=Server.CreateObject("ADODB.Recordset") rs3=Server.CreateObject("ADODB.Recordset") check_Success=Session("s_Success") if(check_Success!="yes") { sql="select max(s_Id) as id from tbl_Session" rs=con.Execute(sql) id=new Number(rs("id")) id++ s_Id=new String() s_Id=s_Id + id s_ClientIpAddress=Request.ServerVariables("REMOTE_ADDR") s_DateTime=new Date() s_Referral=Request.ServerVariables("HTTP_REFERER") sql1="Insert into tbl_Session values("+s_Id+",'"+s_ClientIpAddress+"',date(),time(),'"+s_Referral+"')" rs1=con.Execute(sql1) Session("s_Success")="yes" sql2="select max(hit_id) as id from hits" rs2=con.Execute(sql2) id=new Number(rs2("id")) id++ f_id=new String() f_id=f_id + id sql3="update hits set hit_id="+f_id+" where id = 7" rs3=con.Execute(sql3) } %> :: DYNAMICA Ropes ApS - Strength & Power, The Ultimate DYNAMICA Rope ::