<% Dim GLOBAL_img_top, tipo, tipo2, titolo_pag, titolo_scheda, VAR_lingua 'Imposto lingua per recupero dati dal DB 'Valori ammessi: "_it" --> ITALIANO, "_en" --> INGLESE 'VAR_lingua = "_it" VAR_lingua = "_it" 'Recupero INFO da URL (INIZIO) tipo = TRIM( Request.QueryString("t") ) GLOBAL_img_top = "titolo_charter.gif" titolo_pag = "CHARTER" Select Case LCase( tipo ) Case "power" titolo_scheda = "POWER BOATS" Case "sailing" titolo_scheda = "SAILING YACHTS" Case "motor" titolo_scheda = "MOTOR YACHTS" Case Else titolo_scheda = "CHARTER" tipo = "" End Select SQLSelect = "SELECT * FROM charter WHERE visibile AND tipo='"& tipo &"' ORDER BY lunghezza"& VAR_lingua &" DESC" 'Recupero INFO da URL (FINE) Dim SQLSelect, contaRighe, pg, colspan Dim rs_campo1, rs_campo2, rs_campo3, rs_campo_ID, rs_campo_IMG contaRighe = 0 'Estrazione PAGINA corrente pg = TRIM( Request("pg") ) If pg = "" Then pg = 1 End If rs.ActiveConnection = conn rs.CursorType = adOpenStatic rs.PageSize = 5 %> >

LE NOSTRE OCCASIONI SELEZIONATE <%=titolo_scheda%> <% If (tipo <> "") Then %> Per visualizzare informazioni più dettagliate cliccare sul nome del modello <% rs.Open SQLSelect, conn If NOT rs.EOF Then rs.AbsolutePage = Int(pg) While NOT rs.EOF AND contaRighe < rs.PageSize contaRighe = contaRighe + 1 rs_campo1 = rs("modello") rs_campo2 = rs("base"& VAR_lingua) rs_campo3 = rs("lunghezza"& VAR_lingua) If rs_campo2 = GLOBAL_nullo_C Then rs_campo2 = "-" End If If rs_campo3 = GLOBAL_nullo_C Then rs_campo3 = "-" End If rs_campo_IMG = rs("file1m") rs_campo_ID = rs("id_charter") %> <% If rs_campo_IMG <> GLOBAL_nullo_C Then colspan = "" %> <% Else colspan = " colspan=""2""" End If %> <% rs.MoveNext If NOT rs.EOF Then 'Se NON è ultimo record, stampo separatore. %> <% End If Wend %> <% If rs.PageCount > 1 Then %> <% End If %> <% Else %> <% End If %> > Modello: <%=rs_campo1%> Base: <%=rs_campo2%> Lunghezza: <%=rs_campo3%> Pagina:  <% For i = 1 to rs.PageCount If i <> cINT(pg) Then %> <%=i%>  <% Else %> <%=i%>  <% End If Next %>   Siamo spiacenti, ma non è presente nessun charter <%=titolo_scheda%> <% Else %> POWER BOATS SAILING YACHTS MOTOR YACHTS <% End If %>

<% Set GLOBAL_img_top = Nothing Set tipo = Nothing Set tipo2 = Nothing Set titolo_pag = Nothing Set titolo_scheda = Nothing Set VAR_lingua = Nothing Set SQLSelect = Nothing Set contaRighe = Nothing Set pg = Nothing Set colspan = Nothing Set rs_campo1 = Nothing Set rs_campo2 = Nothing Set rs_campo3 = Nothing Set rs_campo_ID = Nothing Set rs_campo_IMG = Nothing %>