<%'on error resume next
'tSQL="select * from Log"
'set rs = server.createobject("ADODB.Recordset")
'rs.open tsql, "newconDB", 3, 3
'rs.addnew
' rs("IPnum")=Request.ServerVariables("REMOTE_ADDR")
' rs("Referer")=left(Request.ServerVariables("HTTP_REFERER") ,255)
' rs("Browser")=left(request.ServerVariables("HTTP_USER_AGENT") ,70)
' rs("Datum")=now
'rs.update
'rs.close%>
|