<%@CODEPAGE=1250 @Language=VBScript%> <% 'Session.Abandon %> <% 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("baseny.asp?w=" & Session("wojewodztwo") & "&m=" & Session("miejscowosc") & "&d=" & Session("dzielnica") & "&refr=1" & "&idw=" & Session("lwojew") & "&idm=" & Session("lmiejsc") & "&idd=" & Session("ldzieln")) End If %> InfoExpress - Restaurants

   
 
Province:
">
 
Locality:
">
 
Name:
 
 

 
   

pomorskie province warmińsko-mazurskie province podlaskie province zachodniopomorskie province mazowieckie province lubuskie province kujawsko-pomorskie province lubelskie province wielkopolskie province dolnośląskie province łódzkie province świętokrzyskie province podkarpackie province małopolskie province opolskie province śląskie province