<%@CODEPAGE=1250 @Language=VBScript%>
<% 'Session.Abandon %>
<%
' Budowanie banSQL1 dla bannerow gornych (pozniej trzeba zamienic * na nazwy kolumn)
banSQL1 = "select * from v_bannery where kategoria_id = 9 and (zasieg_id = 1) and (rodzaj_id = 2)"
%>
<%
If Request.QueryString("w")<>"" OR Request.QueryString("m")<>"" OR Request.QueryString("d") <> "" OR Request.QueryString("refr") <> "" Then
Session("wojewodztwo") = Request.QueryString("w")
Session("miejscowosc") = Request.QueryString("m")
Session("dzielnica") = Request.QueryString("d")
'zapamietaj id wojewodztwa, miejscowosci, dzielnicy
Session("lwojew") = Request.QueryString("idw")
Session("lmiejsc") = Request.QueryString("idm")
Session("ldzieln") = Request.QueryString("idd")
REM *********************** Licznik ******************************
REM Musi być tutaj, bo przy przekierowaniu (patrz nizej)
REM zaladowanie strony bylo liczone podwojnie
Dim licznik
Set conn = CreateObject("ADODB.Connection")
conn.Open "liczniki", "klient"
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "SELECT ts_ile_wejsc FROM t_strona_glowna", conn, 1, 1
licznik = rs("ts_ile_wejsc") + 1
conn.Execute "UPDATE t_strona_glowna SET ts_ile_wejsc = " & licznik
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
REM ******************* Koniec kodu licznika **********************
Else
Session.Abandon
Response.Redirect("restauracje.asp?w=" & Session("wojewodztwo") & "&m=" & Session("miejscowosc") & "&d=" & Session("dzielnica") & "&refr=1" & "&idw=" & Session("lwojew") & "&idm=" & Session("lmiejsc") & "&idd=" & Session("ldzieln"))
End If
%>
InfoExpress - Restauracje