<%
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
%>
|
Dedication to Qualitiy
|
| Spica International is quality conscious organization. The
quality management system in our organization has been
officially evaluated and certified since 1995. In 2003 the
certification has been upgraded in compliance with ISO
9001:2000.
For more about ISO9000 series of standards please see: http://www.iso.org/iso/en/iso9000-14000/iso9000/iso9000index.html
|
|
|
|
