Catalogo

• 1. Scegli la marca
• 2. Scegli il modello
• 3. Scegli l'antifurto

Altri modelli
<%=marca%>

<% set rs2 = Server.CreateObject("ADODB.Recordset") rs2.ActiveConnection = conn_db_piantoni rs2.Source = "SELECT * FROM modelli WHERE IDMARCA = " &id_marca &" ORDER BY MODELLO ASC" rs2.CursorType = 0 rs2.CursorLocation = 3 rs2.LockType = 3 rs2.Open() while not rs2.eof if rs2("ID") = id_modello then css = "MenuRossoSx" else css = "MenuBiancoSx" %>
• "><%=rs2("MODELLO")%>
<% rs2.MoveNext wend rs2.Close set rs2 = nothing %>

Catalogo <%=marca &" " &modello%>

scegli l'antifurto

<% while not rs.Eof if len(rs("FOTO1")) = 0 or isnull(rs("FOTO1")) = true then immagine_1 = "nada_100x100.jpg" else immagine_1 = rs("FOTO1") if len(rs("FOTO2")) = 0 or isnull(rs("FOTO2")) = true then immagine_2 = "nada_100x100.jpg" else immagine_2 = rs("FOTO2") if rs("PRODUZIONE") = True then part_produzione = "in" else part_produzione = "fuori" %> <% rs.MoveNext wend rs.Close set rs = nothing %>

"><%=marca &" " &rs("MODELLO")%>	">" border="0" />	">" border="0" />
Modello d'auto <%=part_produzione%> produzione

<% set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = conn_db_piantoni rs.Source = "SELECT * FROM qGenerale WHERE IDMODELLO = " &id_modello &" ORDER BY PRIORITA ASC" rs.CursorType = 0 rs.CursorLocation = 3 rs.LockType = 3 rs.Open() while not rs.Eof If rs("TECNICO") = True Then tecnico = "" Else tecnico = " " If rs("PRODOTTA") = True Then prodotta = "" Else prodotta = " " specifiche = "" If Len(rs("CARATTERISTICA1")) > 0 Then specifiche = specifiche & rs("CARATTERISTICA1") & ": " & rs("PARAMETRO1") & " " If Len(rs("CARATTERISTICA2")) > 0 Then specifiche = specifiche & rs("CARATTERISTICA2") & ": " & rs("PARAMETRO2") & " " If Len(rs("CARATTERISTICA3")) > 0 Then specifiche = specifiche & rs("CARATTERISTICA3") & ": " & rs("PARAMETRO3") & " " If Len(rs("CARATTERISTICA4")) > 0 Then specifiche = specifiche & rs("CARATTERISTICA4") & ": " & rs("PARAMETRO4") & " " If Len(rs("CARATTERISTICA5")) > 0 Then specifiche = specifiche & rs("CARATTERISTICA5") & ": " & rs("PARAMETRO5") & " " If Len(rs("CONFIGURAZIONE")) > 0 Then specifiche = specifiche & " CONFIGURAZIONE: " & vbCrLf & "" & rs("CONFIGURAZIONE") & " " %> <% rs.MoveNext wend rs.close set rs = nothing %> Specifiche tecniche Contattare il tecnico Solo su originale Foto antifurto Codice costo antifurto <%=rs("CODICE")%> <%=specifiche%> <%=tecnico%> <%=prodotta%> ',620,450);return false;"> <%=rs("COSTO")%>