<%@CODEPAGE=1250 @LANGUAGE = VBSCRIPT %>
<%
' Budowanie banSQL1 dla bannerow gornych (pozniej trzeba zamienic * na nazwy kolumn)
banSQL1 = "select * from v_bannery where kategoria_id = 30 and (zasieg_id = 1) and (rodzaj_id = 2)"
%>
<%
'********** Dopisanie wejscia na strone do bazy danych ************
If Session("Reload") <> "puby_pol" Then ' jesli strona wyswietlona zostala po raz pierwszy (tzn. nie po przeladowaniu)
Dim http_referer
Dim poprzednia
If Not IsEmpty(Request.ServerVariables("HTTP_REFERER")) And Not Request.ServerVariables("HTTP_REFERER") = "" Then
http_referer = Split (Request.ServerVariables("HTTP_REFERER"), "?")
poprzednia = http_referer(0)
Else
poprzednia = Request.ServerVariables("HTTP_REFERER")
End If
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "liczniki", "klient"
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM t_liczniki_calosc WHERE 1 = 2", Conn, 3, 3
rs.AddNew
rs("id_uzytkownika") = Session.SessionID
rs("rok_wejscia") = Year(Now)
rs("miesiac_wejscia") = Month(Now)
rs("dzien_wejscia") = Day(Now)
rs("godzina_wejscia") = Hour(Now)
rs("minuta_wejscia") = Minute(Now)
rs("sekunda_wejscia") = Second(Now)
rs("nazwa_strony") = Request.ServerVariables("SCRIPT_NAME")
rs("nazwa_poprzedniej") = poprzednia
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Session("Reload") = "puby_pol"
End If
%>
InfoExpress - Kluby bilardowe