<% 'Imposto lingua per recupero dati dal DB 'Valori ammessi: "_it" --> ITALIANO, "_en" --> INGLESE VAR_lingua = "_it" Dim GLOBAL_img_top, id_chiave, tipo id_chiave = TRIM( Request.QueryString("id") ) tipo = TRIM( Request.QueryString("t") ) If (id_chiave <> "") AND IsNumeric( id_chiave ) AND (tipo <> "") Then Dim SQLSelect SQLSelect = "SELECT * FROM barche WHERE id_barche="& id_chiave &" AND visibile AND tipo='"& tipo &"'" rs.Open SQLSelect, conn If NOT rs.EOF Then If tipo = "motore" Then GLOBAL_img_top = "titolo_barche_motore.gif" Else GLOBAL_img_top = "titolo_barche_vela.gif" End If Dim rs_campo1, rs_campo2, rs_campo3, rs_campo4, rs_campo5, rs_campo6, rs_campo7, rs_campo8, rs_campo9, rs_file1, rs_file1m, rs_file2, rs_file2m, rs_file3, rs_file3m, rs_file4, rs_file4m 'XXXXXXXXXXXXXXXXXXX R E C U P E R O V A L O R I XXXXXXXXXXXXXXXXXXXXXXX rs_campo1 = rs("modello") rs_campo2 = rs("cantiere"& VAR_lingua) rs_campo3 = rs("anno"& VAR_lingua) rs_campo4 = rs("motori"& VAR_lingua) rs_campo5 = rs("potenza"& VAR_lingua) rs_campo6 = rs("descrizione"& VAR_lingua) rs_campo7 = rs("prezzo"& VAR_lingua) rs_campo8 = rs("lunghezza"& VAR_lingua) If rs_campo8 = GLOBAL_nullo_C Then rs_campo8 = " " End If rs_campo9 = rs("tipo") rs_file1 = rs("file1") If rs_file1 = GLOBAL_nullo_C Then rs_file1 = "nofile.jpg" End If rs_file1m = rs("file1m") rs_file2 = rs("file2") rs_file2m = rs("file2m") rs_file3 = rs("file3") rs_file3m = rs("file3m") rs_file4 = rs("file4") rs_file4m = rs("file4m") rs.Close Else 'XXXXXXXXXXXXXXXXXXX R E C O R D I N E S I S T E N T E XXXXXXXXXXXXXXXXXXXXXXX rs.Close Set GLOBAL_img_top = Nothing Set id_chiave = Nothing Set tipo = Nothing Set SQLSelect = Nothing %> <% Response.Redirect("errore.asp?err=norecord") Response.End() End If Else 'XXXXXXXXXXXXXXXXXXX E R R O R E R I C E Z I O N E D A T I XXXXXXXXXXXXXXXXXXXXXXX %> <% Set GLOBAL_img_top = Nothing Set id_chiave = Nothing Set tipo = Nothing Response.Redirect("errore.asp?err=nodati") Response.End() End If %> >

<%=rs_campo1%> <%=rs_campo8%> <% If rs_campo2 <> GLOBAL_nullo_C Then %> <% End If If rs_campo3 <> GLOBAL_nullo_C Then %> <% End If If rs_campo4 <> GLOBAL_nullo_C Then %> <% End If If rs_campo5 <> GLOBAL_nullo_C Then %> <% End If If rs_campo6 <> GLOBAL_nullo_C Then %> <% End If If rs_campo7 <> GLOBAL_nullo_C Then %> <% End If %> Cantiere: <%=rs_campo2%> Anno: <%=rs_campo3%> Motori: <%=rs_campo4%> Potenza: <%=rs_campo5%> Descrizione: <%=rs_campo6%> Prezzo: <%=rs_campo7%> <% If rs_file2m <> GLOBAL_nullo_C Then 'Determino dimensioni IMMAGINE (INIZIO) Set Image = Server.CreateObject("SImageUtil.Image") Image.OpenImageFile("upload/barche/" & rs_file2) If UCASE(Right(rs_file2,3)) = "JPG" Then W = INT(Image.Width) H = INT(Image.Height) + 30 Else H = INT(Image.Width) + 30 W = INT(Image.Height) End If Image.Close Set Image = Nothing 'Determino dimensioni IMMAGINE (FINE) img_prelink_0 = "" img_prelink_1 = "" %> <% End If If rs_file3m <> GLOBAL_nullo_C Then 'Determino dimensioni IMMAGINE (INIZIO) Set Image = Server.CreateObject("SImageUtil.Image") Image.OpenImageFile("upload/barche/" & rs_file3) If UCASE(Right(rs_file3,3)) = "JPG" Then W = INT(Image.Width) H = INT(Image.Height) + 30 Else H = INT(Image.Width) + 30 W = INT(Image.Height) End If Image.Close Set Image = Nothing 'Determino dimensioni IMMAGINE (FINE) img_prelink_0 = "" img_prelink_1 = "" %> <% End If If rs_file4m <> GLOBAL_nullo_C Then 'Determino dimensioni IMMAGINE (INIZIO) Set Image = Server.CreateObject("SImageUtil.Image") Image.OpenImageFile("upload/barche/" & rs_file4) If UCASE(Right(rs_file4,3)) = "JPG" Then W = INT(Image.Width) H = INT(Image.Height) + 30 Else H = INT(Image.Width) + 30 W = INT(Image.Height) End If Image.Close Set Image = Nothing 'Determino dimensioni IMMAGINE (FINE) img_prelink_0 = "" img_prelink_1 = "" %> <% End If %> VEDI INTERNI <%=img_prelink_0%><%=img_prelink_0%> <%=img_prelink_0%><%=img_prelink_0%> <%=img_prelink_0%><%=img_prelink_0%> " class="FFFFFF">CONTATTACI << Torna indietro

<% Set rs_campo1 = Nothing Set rs_campo2 = Nothing Set rs_campo3 = Nothing Set rs_campo4 = Nothing Set rs_campo5 = Nothing Set rs_campo6 = Nothing Set rs_campo7 = Nothing Set rs_campo8 = Nothing Set rs_campo9 = Nothing Set rs_file1 = Nothing Set rs_file1m = Nothing Set rs_file2 = Nothing Set rs_file2m = Nothing Set rs_file3 = Nothing Set rs_file3m = Nothing Set rs_file4 = Nothing Set rs_file4m = Nothing Set id_chiave = Nothing Set tipo = Nothing Set GLOBAL_img_top = Nothing %>