Regresar al Menu
Back to Menu
<%
Dim strXML, strRef, strLogFileName
Dim objLogFile
Dim Logfeed
strWhere = "IP is " &
Request.ServerVariables("REMOTE_ADDR")
strXML = strWhere &
"
"
strLogFileName = Server.MapPath("/yourlog.html")
Logfeed = strXML
Set FSObject = CreateObject("Scripting.FileSystemObject")
Set objLogFile = FSObject.OpenTextFile(strLogFileName, 8, True)
objLogFile.WriteLine strXML
objLogFile.Close Set objLogFile = Nothing %>