|
<%
If Not doNotLog and Request.Cookies("trackingUserId") <> empty Then
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open Application("web")
uporabnikID = Request.Cookies("trackingUserId")
datum = Month(Date()) & "/" & Day(Date()) & "/" & Year(Date())
stran = "http://" + Request.ServerVariables("SERVER_NAME") + "/" + Request.ServerVariables("SCRIPT_NAME")
if Request.QueryString() <> empty then stran = stran & "?" & Request.QueryString() end if
naslov = "no_title"
' If InStr(stran, "&o=") > 0 Then stran = Left(stran, InStr(stran, "&o=") - 1)
' If InStr(stran, "?o=") > 0 Then stran = Left(stran, InStr(stran, "?o=") - 1)
' If IsNull(naslov) Or naslov = "" Then naslov = " "
DBConn.Execute "INSERT INTO PAGE_HIT_LOG ([DATE], USER_ID, PAGE, TITLE, SITE, TYPE) VALUES ('" & datum & "', " & uporabnikID & ", '" & stran & "', '" & naslov & "', 2, 1);"
End If
%>
|
