<%
ip=request.servervariables("remote_addr")
'Response.Write("user ip:" & ip)
strDataPath = server.mappath("feedback.mdb")
'Response.Write("mappath:" & strDataPath)
'establishing connection to database
'Set connectionToDatabase = Server.CreateObject("ADODB.Connection")
'connectionToDatabase.ConnectionTimeout = 40
'connectionToDatabase.Open "DSN=feedback_sml"
'Set IPRS = Server.CreateObject("ADODB.RecordSet")
'selectSQL = "select distinct IP from tblFeedback where IP = '" & ip & "'"
'IPRS.Open selectSQL,connectionToDatabase,1,2
'if IPRS.EOF then
'Dim con, data_source, sql_select
'sql_select = "select distinct IP from tblFeedback where IP = '" & ip & "'"
'data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("feedback.mdb")
'set con = Server.CreateObject("ADODB.recordset")
'con.Open sql_select, data_source
'if con.EOF then
%>
<%
'else
%>