<%@LANGUAGE="VBSCRIPT"%> <% 'Set the server locale Session.LCID = 1027 %> <% set Normals_1 = Server.CreateObject("ADODB.Recordset") Normals_1.ActiveConnection = MM_autocars_nadal_STRING Normals_1.Source = "SELECT * FROM Lloguer_Tarifes_normals WHERE ID < 6 ORDER BY ID ASC" Normals_1.CursorType = 0 Normals_1.CursorLocation = 2 Normals_1.LockType = 3 Normals_1.Open() Normals_1_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Normals_1_numRows = Normals_1_numRows + Repeat1__numRows %> <% set Normals_2 = Server.CreateObject("ADODB.Recordset") Normals_2.ActiveConnection = MM_autocars_nadal_STRING Normals_2.Source = "SELECT * FROM Lloguer_Tarifes_normals WHERE ID > 5 AND ID < 10 ORDER BY ID ASC" Normals_2.CursorType = 0 Normals_2.CursorLocation = 2 Normals_2.LockType = 3 Normals_2.Open() Normals_2_numRows = 0 %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 Normals_2_numRows = Normals_2_numRows + Repeat2__numRows %> <% set Normals_3 = Server.CreateObject("ADODB.Recordset") Normals_3.ActiveConnection = MM_autocars_nadal_STRING Normals_3.Source = "SELECT * FROM Lloguer_Tarifes_normals WHERE ID > 9 ORDER BY ID ASC" Normals_3.CursorType = 0 Normals_3.CursorLocation = 2 Normals_3.LockType = 3 Normals_3.Open() Normals_3_numRows = 0 %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 Normals_3_numRows = Normals_3_numRows + Repeat3__numRows %> <% set Especials_1 = Server.CreateObject("ADODB.Recordset") Especials_1.ActiveConnection = MM_autocars_nadal_STRING Especials_1.Source = "SELECT * FROM Lloguer_Tarifes_especials WHERE ID < 6 ORDER BY ID ASC" Especials_1.CursorType = 0 Especials_1.CursorLocation = 2 Especials_1.LockType = 3 Especials_1.Open() Especials_1_numRows = 0 %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 Especials_1_numRows = Especials_1_numRows + Repeat4__numRows %> <% set Especials_2 = Server.CreateObject("ADODB.Recordset") Especials_2.ActiveConnection = MM_autocars_nadal_STRING Especials_2.Source = "SELECT * FROM Lloguer_Tarifes_especials WHERE ID > 5 AND ID < 10 ORDER BY ID ASC" Especials_2.CursorType = 0 Especials_2.CursorLocation = 2 Especials_2.LockType = 3 Especials_2.Open() Especials_2_numRows = 0 %> <% Dim Repeat5__numRows Repeat5__numRows = -1 Dim Repeat5__index Repeat5__index = 0 Especials_2_numRows = Especials_2_numRows + Repeat5__numRows %> <% set Especials_3 = Server.CreateObject("ADODB.Recordset") Especials_3.ActiveConnection = MM_autocars_nadal_STRING Especials_3.Source = "SELECT * FROM Lloguer_Tarifes_especials WHERE ID > 9 ORDER BY ID ASC" Especials_3.CursorType = 0 Especials_3.CursorLocation = 2 Especials_3.LockType = 3 Especials_3.Open() Especials_3_numRows = 0 %> <% Dim Repeat6__numRows Repeat6__numRows = -1 Dim Repeat6__index Repeat6__index = 0 Especials_3_numRows = Especials_3_numRows + Repeat6__numRows %> <% set Assegurances_1 = Server.CreateObject("ADODB.Recordset") Assegurances_1.ActiveConnection = MM_autocars_nadal_STRING Assegurances_1.Source = "SELECT * FROM Lloguer_assegurances WHERE ID < 6 ORDER BY ID ASC" Assegurances_1.CursorType = 0 Assegurances_1.CursorLocation = 2 Assegurances_1.LockType = 3 Assegurances_1.Open() Assegurances_1_numRows = 0 %> <% Dim Repeat7__numRows Repeat7__numRows = -1 Dim Repeat7__index Repeat7__index = 0 Assegurances_1_numRows = Assegurances_1_numRows + Repeat7__numRows %> <% set Assegurances_2 = Server.CreateObject("ADODB.Recordset") Assegurances_2.ActiveConnection = MM_autocars_nadal_STRING Assegurances_2.Source = "SELECT * FROM Lloguer_assegurances WHERE ID > 5 AND ID < 10 ORDER BY ID ASC" Assegurances_2.CursorType = 0 Assegurances_2.CursorLocation = 2 Assegurances_2.LockType = 3 Assegurances_2.Open() Assegurances_2_numRows = 0 %> <% Dim Repeat8__numRows Repeat8__numRows = -1 Dim Repeat8__index Repeat8__index = 0 Assegurances_2_numRows = Assegurances_2_numRows + Repeat8__numRows %> <% set Assegurances_3 = Server.CreateObject("ADODB.Recordset") Assegurances_3.ActiveConnection = MM_autocars_nadal_STRING Assegurances_3.Source = "SELECT * FROM Lloguer_assegurances WHERE ID > 9 ORDER BY ID ASC" Assegurances_3.CursorType = 0 Assegurances_3.CursorLocation = 2 Assegurances_3.LockType = 3 Assegurances_3.Open() Assegurances_3_numRows = 0 %> <% Dim Repeat9__numRows Repeat9__numRows = -1 Dim Repeat9__index Repeat9__index = 0 Assegurances_3_numRows = Assegurances_3_numRows + Repeat9__numRows %> <% set Industrials = Server.CreateObject("ADODB.Recordset") Industrials.ActiveConnection = MM_autocars_nadal_STRING Industrials.Source = "SELECT * FROM Industrials_Tarifes_especials ORDER BY ID ASC" Industrials.CursorType = 0 Industrials.CursorLocation = 2 Industrials.LockType = 3 Industrials.Open() Industrials_numRows = 0 %> <% Dim Repeat10__numRows Repeat10__numRows = -1 Dim Repeat10__index Repeat10__index = 0 Industrials_numRows = Industrials_numRows + Repeat10__numRows %> <% set Industrials_asseg = Server.CreateObject("ADODB.Recordset") Industrials_asseg.ActiveConnection = MM_autocars_nadal_STRING Industrials_asseg.Source = "SELECT * FROM Industrials_assegurances ORDER BY ID ASC" Industrials_asseg.CursorType = 0 Industrials_asseg.CursorLocation = 2 Industrials_asseg.LockType = 3 Industrials_asseg.Open() Industrials_asseg_numRows = 0 %> <% Dim Repeat11__numRows Repeat11__numRows = -1 Dim Repeat11__index Repeat11__index = 0 Industrials_asseg_numRows = Industrials_asseg_numRows + Repeat11__numRows %> Autocars Nadal
 

TARIF NORMAL Temps + kilomtrage
Une journée Par kilomètre
<% While ((Repeat1__numRows <> 0) AND (NOT Normals_1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Normals_1.MoveNext() Wend %>
<%=UCASE(Normals_1.Fields.Item("Tipus").Value)%> <%=(Normals_1.Fields.Item("Capacitat").Value)%> <% if Normals_1.Fields.Item("Normal_dia").Value <> "" then %><%=FormatNumber(Normals_1.Fields.Item("Normal_dia").Value,2)%><% else %> -- <% end if %>   <% if Normals_1.Fields.Item("Normal_km").Value <> "" then %><%=FormatNumber(Normals_1.Fields.Item("Normal_km").Value,2)%><% else %> -- <% end if %>  
<% While ((Repeat2__numRows <> 0) AND (NOT Normals_2.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Normals_2.MoveNext() Wend %>
<%=UCASE(Normals_2.Fields.Item("Tipus").Value)%> <%=(Normals_2.Fields.Item("Capacitat").Value)%> <% if Normals_2.Fields.Item("Normal_dia").Value <> "" then %><%=FormatNumber(Normals_2.Fields.Item("Normal_dia").Value,2)%><% else %> -- <% end if %>   <% if Normals_2.Fields.Item("Normal_km").Value <> "" then %><%=FormatNumber(Normals_2.Fields.Item("Normal_km").Value,2)%><% else %> -- <% end if %>  
<% While ((Repeat3__numRows <> 0) AND (NOT Normals_3.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 Normals_3.MoveNext() Wend %>
<%=UCASE(Normals_3.Fields.Item("Tipus").Value)%> <%=(Normals_3.Fields.Item("Capacitat").Value)%> <% if Normals_3.Fields.Item("Normal_dia").Value <> "" then %><%=FormatNumber(Normals_3.Fields.Item("Normal_dia").Value,2)%><% else %> -- <% end if %>   <% if Normals_3.Fields.Item("Normal_km").Value <> "" then %><%=FormatNumber(Normals_3.Fields.Item("Normal_km").Value,2)%><% else %> -- <% end if %>  

TARIF SPÉCIAL KILOMÉTRAGE ILLIMITÉ
01-03
Une journée		 04-06
Une journée		 07-13
Une journée		 + 14
Une journée		 Week-end (1)
  W6 BJ WF W5 Y5
<% While ((Repeat4__numRows <> 0) AND (NOT Especials_1.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 Especials_1.MoveNext() Wend %>
<%=UCASE(Especials_1.Fields.Item("Tipus").Value)%> <% if Especials_1.Fields.Item("W6_0103").Value <> "" then %><%=FormatNumber(Especials_1.Fields.Item("W6_0103").Value,2)%><% else %> -- <% end if %>  <% if Especials_1.Fields.Item("BJ_0406").Value <> "" then %><%=FormatNumber(Especials_1.Fields.Item("BJ_0406").Value,2)%><% else %> -- <% end if %>  <% if Especials_1.Fields.Item("WF_0713").Value <> "" then %><%=FormatNumber(Especials_1.Fields.Item("WF_0713").Value,2)%><% else %> -- <% end if %>  <% if Especials_1.Fields.Item("W5_14").Value <> "" then %><%=FormatNumber(Especials_1.Fields.Item("W5_14").Value,2)%><% else %> -- <% end if %>  <% if Especials_1.Fields.Item("Y5").Value <> "" then %><%=FormatNumber(Especials_1.Fields.Item("Y5").Value,2)%><% else %> -- <% end if %> 
<% While ((Repeat5__numRows <> 0) AND (NOT Especials_2.EOF)) %> <% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows-1 Especials_2.MoveNext() Wend %>
<%=UCASE(Especials_2.Fields.Item("Tipus").Value)%> <% if Especials_2.Fields.Item("W6_0103").Value <> "" then %><%=FormatNumber(Especials_2.Fields.Item("W6_0103").Value,2)%><% else %> -- <% end if %>  <% if Especials_2.Fields.Item("BJ_0406").Value <> "" then %><%=FormatNumber(Especials_2.Fields.Item("BJ_0406").Value,2)%><% else %> -- <% end if %>  <% if Especials_2.Fields.Item("WF_0713").Value <> "" then %><%=FormatNumber(Especials_2.Fields.Item("WF_0713").Value,2)%><% else %> -- <% end if %>  <% if Especials_2.Fields.Item("W5_14").Value <> "" then %><%=FormatNumber(Especials_2.Fields.Item("W5_14").Value,2)%><% else %> -- <% end if %>  <% if Especials_2.Fields.Item("Y5").Value <> "" then %><%=FormatNumber(Especials_2.Fields.Item("Y5").Value,2)%><% else %> -- <% end if %> 
<% While ((Repeat6__numRows <> 0) AND (NOT Especials_3.EOF)) %> <% Repeat6__index=Repeat6__index+1 Repeat6__numRows=Repeat6__numRows-1 Especials_3.MoveNext() Wend %>
<%=UCASE(Especials_3.Fields.Item("Tipus").Value)%> <% if Especials_3.Fields.Item("W6_0103").Value <> "" then %><%=FormatNumber(Especials_3.Fields.Item("W6_0103").Value,2)%><% else %> -- <% end if %>  <% if Especials_3.Fields.Item("BJ_0406").Value <> "" then %><%=FormatNumber(Especials_3.Fields.Item("BJ_0406").Value,2)%><% else %> -- <% end if %>  <% if Especials_3.Fields.Item("WF_0713").Value <> "" then %><%=FormatNumber(Especials_3.Fields.Item("WF_0713").Value,2)%><% else %> -- <% end if %>  <% if Especials_3.Fields.Item("W5_14").Value <> "" then %><%=FormatNumber(Especials_3.Fields.Item("W5_14").Value,2)%><% else %> -- <% end if %>  <% if Especials_3.Fields.Item("Y5").Value <> "" then %><%=FormatNumber(Especials_3.Fields.Item("Y5").Value,2)%><% else %> -- <% end if %> 

Tarif minimum: 1 journée Modèles proposés ou similaires(1)
Week-end: de vendredi à 18.00 h jusqu'à lundi à 9.00 h.

ASSURANCE AUTO Tarif par jour
TP CDW SCDW PAI
<% While ((Repeat7__numRows <> 0) AND (NOT Assegurances_1.EOF)) %> <% Repeat7__index=Repeat7__index+1 Repeat7__numRows=Repeat7__numRows-1 Assegurances_1.MoveNext() Wend %>
<%=UCASE(Assegurances_1.Fields.Item("Tipus").Value)%> <% if Assegurances_1.Fields.Item("TP").Value <> "" then %><%=FormatNumber(Assegurances_1.Fields.Item("TP").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_1.Fields.Item("CDW").Value <> "" then %><%=FormatNumber(Assegurances_1.Fields.Item("CDW").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_1.Fields.Item("SCDW").Value <> "" then %><%=FormatNumber(Assegurances_1.Fields.Item("SCDW").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_1.Fields.Item("PAI").Value <> "" then %><%=FormatNumber(Assegurances_1.Fields.Item("PAI").Value,2)%><% else %> -- <% end if %> 
<% While ((Repeat8__numRows <> 0) AND (NOT Assegurances_2.EOF)) %> <% Repeat8__index=Repeat8__index+1 Repeat8__numRows=Repeat8__numRows-1 Assegurances_2.MoveNext() Wend %>
<%=UCASE(Assegurances_2.Fields.Item("Tipus").Value)%> <% if Assegurances_2.Fields.Item("TP").Value <> "" then %><%=FormatNumber(Assegurances_2.Fields.Item("TP").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_2.Fields.Item("CDW").Value <> "" then %><%=FormatNumber(Assegurances_2.Fields.Item("CDW").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_2.Fields.Item("SCDW").Value <> "" then %><%=FormatNumber(Assegurances_2.Fields.Item("SCDW").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_2.Fields.Item("PAI").Value <> "" then %><%=FormatNumber(Assegurances_2.Fields.Item("PAI").Value,2)%><% else %> -- <% end if %> 
<% While ((Repeat9__numRows <> 0) AND (NOT Assegurances_3.EOF)) %> <% Repeat9__index=Repeat9__index+1 Repeat9__numRows=Repeat9__numRows-1 Assegurances_3.MoveNext() Wend %>
<%=UCASE(Assegurances_3.Fields.Item("Tipus").Value)%> <% if Assegurances_3.Fields.Item("TP").Value <> "" then %><%=FormatNumber(Assegurances_3.Fields.Item("TP").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_3.Fields.Item("CDW").Value <> "" then %><%=FormatNumber(Assegurances_3.Fields.Item("CDW").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_3.Fields.Item("SCDW").Value <> "" then %><%=FormatNumber(Assegurances_3.Fields.Item("SCDW").Value,2)%><% else %> -- <% end if %>  <% if Assegurances_3.Fields.Item("PAI").Value <> "" then %><%=FormatNumber(Assegurances_3.Fields.Item("PAI").Value,2)%><% else %> -- <% end if %> 


TARIFS
VÉHICULES UTILITAIRES		 Tarif pour 500 km maximum;
 0,10 € par km supplémentaire.
OC AA AB AF AR
<% While ((Repeat10__numRows <> 0) AND (NOT Industrials.EOF)) %> <% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 Industrials.MoveNext() Wend %>
<%=UCASE(Industrials.Fields.Item("Tipus").Value)%> <% if Industrials.Fields.Item("OC").Value <> "" then %><%=FormatNumber(Industrials.Fields.Item("OC").Value,2)%><% else %> -- <% end if %>  <% if Industrials.Fields.Item("AA").Value <> "" then %><%=FormatNumber(Industrials.Fields.Item("AA").Value,2)%><% else %> -- <% end if %>  <% if Industrials.Fields.Item("AB").Value <> "" then %><%=FormatNumber(Industrials.Fields.Item("AB").Value,2)%><% else %> -- <% end if %>  <% if Industrials.Fields.Item("AF").Value <> "" then %><%=FormatNumber(Industrials.Fields.Item("AF").Value,2)%><% else %> -- <% end if %>  <% if Industrials.Fields.Item("AR").Value <> "" then %><%=FormatNumber(Industrials.Fields.Item("AR").Value,2)%><% else %> -- <% end if %> 

ASSURANCE
VÉHICULE UTILITAIRE		 Par jour
TP CDW SCDW PAI
<% While ((Repeat11__numRows <> 0) AND (NOT Industrials_asseg.EOF)) %> <% Repeat11__index=Repeat11__index+1 Repeat11__numRows=Repeat11__numRows-1 Industrials_asseg.MoveNext() Wend %>
<%=UCASE(Industrials_asseg.Fields.Item("Tipus").Value)%> <% if Industrials_asseg.Fields.Item("TP").Value <> "" then %><%=FormatNumber(Industrials_asseg.Fields.Item("TP").Value,2)%><% else %> -- <% end if %>  <% if Industrials_asseg.Fields.Item("CDW").Value <> "" then %><%=FormatNumber(Industrials_asseg.Fields.Item("CDW").Value,2)%><% else %> -- <% end if %>  <% if Industrials_asseg.Fields.Item("SCDW").Value <> "" then %><%=FormatNumber(Industrials_asseg.Fields.Item("SCDW").Value,2)%><% else %> -- <% end if %>  <% if Industrials_asseg.Fields.Item("PAI").Value <> "" then %><%=FormatNumber(Industrials_asseg.Fields.Item("PAI").Value,2)%><% else %> -- <% end if %>