|
MaD2ko0l
Senior Member
United Kingdom
1053 Posts |
 Posted - 19 May 2002 : 12:02:55
|
Hi all,
i use this to log everyone that goes to my site.
but ever since i installed AU4 it messed up where it said where the user was.
Look at the lines in between '######## Need Help Here Please ###### and tell me if u can help me.
Thankx
MaD2ko0l
Dim objRS
Dim DB
Dim SQLStr
Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.MapPath("qwerty/UserLog.mdb") & ";"
DB.Open
Set Objrs = Server.CreateObject ("ADODB.Recordset")
SQLStr = "SELECT * FROM Log"
ObjRs.Open SQLStr, DB, 3, 3
objrs.AddNew
objrs("InTime") = StrToDate(strDateTime)
objrs("UserIP") = strOnlineUserIP
'######## Need Help Here Please ######
if len(strOnlineLocation) > 254 then
objrs("Script") = strOnlinePageName
else
objrs("Script") = strOnlineLocation
end if
'######## Need Help Here Please ######
objrs("UserName") = strOnlineUser
objrs.update
DB.Close
Set DB = Nothing
Set Objrs = Nothing
© 1999-2002 MaD2ko0l
-=[ Life Is So Easy When You Are Evil ]=- |
|
Topic Locked
