Antagligen har varje besökare någon slags identifierare i sessionscope, beroende lite på hur du har byggt, föreslagsvis ett AnvändarId som härstammar från din databas.
Det du får göra är att registrera detta ID varje gång någon besöker sidan, typ;
lVisitorId = CLng(session("UserId")) '# besökarens id
lUserId = CLng(request("UserId")) '# krypinets ägares id
if lUserId <> lVisitorId then
objConn.execute("INSERT INTO tblVisitors (HomeUserId, HomeVisitorId, HomeDateVisited) VALUES(" & lUserId & "," & lVisitorId & ",#" & now & "#"),,128
end if
Det bör tänkas på att detta sker varje gång någon träffar sidan, så man kanske skall bygga in någon slags cookiecontrol som bara registrerar ett besök per person om dagen.
lVisitorId = CLng(session("UserId")) '# besökarens id
lUserId = CLng(request("UserId")) '# krypinets ägares id
if lUserId <> lVisitorId then
SET objConn = connect()
visitor = "INSERT INTO tblUsers_visitors"
visitor = visitor & "(HomeUserId, HomeVisitorId, HomeDateVisited)"
visitor = visitor & "VALUES(" & lUserId & "," & lVisitorId & ",#" & now & "#),,128"
'response.write visitor
objConn.Execute visitor
'response.redirect "home.asp"
end if
Varför får jag "Semikolon saknas i slutet av SQL-uttryck."????
Det är precis samma fel med
if lUserId <> lVisitorId then
objConn.execute("INSERT INTO tblUsers_visitors (HomeUserId, HomeVisitorId, HomeDateVisited) VALUES(" & lUserId & "," & lVisitorId & ",#" & now & "#),,128")
end if
Du har missat lite i citationstecknen på slutet. Så här hade nog jag skrivit:
if lUserId <> lVisitorId then
objConn.execute "INSERT INTO tblUsers_visitors (HomeUserId, HomeVisitorId, HomeDateVisited) VALUES(" & lUserId & "," & lVisitorId & ",#" & now & "#)" ,,128
end if
