<% 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" 'Recupero INFO da URL (INIZIO) tipo = TRIM( Request.QueryString("t") ) tipo2 = TRIM( Request.QueryString("t2") ) Select Case LCase( tipo ) Case "motore" GLOBAL_img_top = "titolo_barche_motore.gif" titolo_pag = "BARCHE A MOTORE" tipo = "motore" titolo_scheda = "BARCHE MOTORE" SQLSelect = "SELECT * FROM barche WHERE visibile AND tipo='"& tipo &"' AND tipo2='"& tipo2 &"' ORDER BY lunghezza"& VAR_lingua &" DESC" Case "vela" GLOBAL_img_top = "titolo_barche_vela.gif" titolo_pag = "BARCHE A VELA" tipo = "vela" titolo_scheda = "BARCHE A VELA" SQLSelect = "SELECT * FROM barche WHERE visibile AND tipo='"& tipo &"' ORDER BY lunghezza"& VAR_lingua &" DESC" Case Else Set GLOBAL_img_top = Nothing Set tipo = Nothing Set tipo2 = Nothing Set titolo_pag = Nothing Set titolo_scheda = Nothing Set VAR_lingua = Nothing Response.Write("") Response.End() End Select '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 = "vela") OR (tipo = "motore" AND tipo2 <> "") 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("anno"& 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_barche") %> <% 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%> Anno: <%=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 nessuna imbarcazione per <%=titolo_scheda%> <% Else %> FLY OPEN DISLOCANTE <% 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 %>