<%
Set Con=Server.CreateObject("ADODB.Connection")
con.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("webboard.mdb")
ip=Request.ServerVariables("REMOTE_ADDR")
strsql="Select * from ip where ip='" & ip & "'"
'Response.Write(strsql)
set tmp=Con.Execute(strsql)
if tmp.eof then
con.Close
%>
<%
If IsObject(RS) Then RS = Nothing
if IsObject(Session("RS")) then
Set RS = Nothing
end if
Set Con=Server.CreateObject("ADODB.Connection")
con.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("webboard.mdb")
' Sql="Select * from question order by Qnumber desc"
' Set RS =Server.CreateObject("ADODB.Recordset")
' RS.open Sql,Con,1,1
' 'RS.MoveFirst
' Response.Write("
