|
|
<%
select case Request.QueryString("Prefix")
case "" 'no hi ha un trajecte style=""
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "![]()
| "
'Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "Pour consulter nos horaires et tarifs, s'il vous plait, choisissez
une des lignes qui sont montrées à gauche. | "
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
'end of case ""
case "Aeroport"
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open MM_autocars_nadal_STRING
set rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT TOP 2 Columna FROM Aeroport_parades ORDER BY Ident ASC;"
set rs = my_Conn.Execute (strSql)
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| HORAIRES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Sorties | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
'Response.Write "dimecres
dissabte | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write " " & vbCrlf
if rs("Columna") <> "" then
Parades = rs.GetRows(,,Array("Columna"))
for each Parada in Parades
strSql2 = "SELECT Parada,Parada_cas FROM Aeroport_parades WHERE Columna = '" & Parada & "';"
'Response.Write strSql2:Response.End
set rs2 = my_Conn.Execute (strSql2)
Nom_parada = rs2(0)
Ubicacio = rs2(1)
do until rs2.EOF
Response.Write "" & vbCrlf
Response.Write ""
Response.Write Nom_parada
Response.Write "
" & vbCrlf
Response.Write Ubicacio
Response.Write " | " & vbCrlf
strSql3 = "SELECT " & Parada & ",Ident,Horari FROM Aeroport_horaris WHERE Sortida = 'Aeroport' ORDER BY Ident ASC;"
set rs3 = my_Conn.Execute (strSql3)
Hora = rs3(0)
do until rs3.EOF
Response.Write ""
if Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2) = "0:0" then
Response.Write "---"
else
Response.Write Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2)
end if
Response.Write " | " & vbCrlf
rs3.MoveNext
loop
Response.Write " " & vbCrlf
rs2.Movenext
loop
next
end if
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
set rs_inv = Server.CreateObject("ADODB.RecordSet")
strSql_inv = "SELECT TOP 2 Columna FROM Aeroport_parades ORDER BY Ident DESC;"
set rs_inv = my_Conn.Execute (strSql_inv)
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Sorties | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
'Response.Write "dijous
diumenge | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write "qtidien | " & vbCrlf
Response.Write " " & vbCrlf
if rs_inv("Columna") <> "" then
Parades_inv = rs_inv.GetRows(,,Array("Columna"))
for each Parada in Parades_inv
strSql4 = "SELECT Parada,Parada_cas FROM Aeroport_parades WHERE Columna = '" & Parada & "' ORDER BY Ident DESC;"
'Response.Write strSql4:Response.End
set rs4 = my_Conn.Execute (strSql4)
Nom_parada2 = rs4(0)
Ubicacio2 = rs4(1)
do until rs4.EOF
Response.Write "" & vbCrlf
Response.Write "| "
Response.Write Nom_parada2
Response.Write " | " & vbCrlf
strSql5 = "SELECT " & Parada & ",Ident,Horari FROM Aeroport_horaris WHERE Sortida = 'Andorra' ORDER BY Ident ASC;"
set rs5 = my_Conn.Execute (strSql5)
Hora = rs5(0)
Tipus = rs5(2)
do until rs5.EOF
Response.Write ""
if Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2) = "0:0" then
Response.Write "---"
else
if rs5(2) = "dj-dg" then
Response.Write Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2) & " *"
else
Response.Write Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2)
end if
end if
Response.Write " | " & vbCrlf
rs5.MoveNext
loop
Response.Write " " & vbCrlf
rs4.Movenext
loop
next
end if
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Arrivée 3 heures plus tard | " & vbCrlf
Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| * No arriba a l'Aeroport | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| | " & vbCrlf
'Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| TRASLADOS | " & vbCrlf
'Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
'Response.Write "| En conexión con nuestros autocares, servicios de traslado o recogida a domicilio. | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| TARIFS | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
strSql8 = "SELECT * FROM Aeroport_tarifes;"
set rs8 = my_Conn.Execute (strSql8)
do until rs8.EOF
Response.Write ""
if LEFT(rs8("Trajecte"),18) = "Andorra - Aeroport" then
Response.Write "Andorra - Aeropuerto
Aeropuerto - Andorra"
else
Response.Write Replace(rs8("Trajecte"),Chr(13),"
")
end if
Response.Write " | " & vbCrlf
rs8.Movenext
loop
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write "allée | " & vbCrlf
Response.Write "allée et retour | " & vbCrlf
Response.Write "allée | " & vbCrlf
Response.Write "allée et retour | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Standard | " & vbCrlf
strSql9 = "SELECT * FROM Aeroport_tarifes;"
set rs9 = my_Conn.Execute (strSql9)
do until rs9.EOF
Response.Write ""
Response.Write FormatNumber(rs9("Anar"),2)
Response.Write " € | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(rs9("Anar_Tornar"),2)
Response.Write " € | " & vbCrlf
rs9.Movenext
loop
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| BONUS | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
strSql10 = "SELECT * FROM Aeroport_abonaments;"
set rs10 = my_Conn.Execute (strSql10)
do until rs10.EOF
Response.Write "" & vbCrlf
Response.Write ""
Response.Write Replace(rs10("Viatges_fra"),Chr(13),"
")
Response.Write " | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(rs10("Tarifa"),2)
Response.Write " € | " & vbCrlf
Response.Write " " & vbCrlf
rs10.Movenext
loop
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
'end of case "Aeroport"
case "Malaga"
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open MM_autocars_nadal_STRING
set rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT Columna FROM Malaga_parades ORDER BY Ident ASC;"
set rs = my_Conn.Execute (strSql)
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| HORAIRES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| A | " & vbCrlf
'Response.Write "B | " & vbCrlf
Response.Write " | " & vbCrlf
'Response.Write "B | " & vbCrlf
Response.Write "A | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Alée | " & vbCrlf
Response.Write " Arrêt | " & vbCrlf
Response.Write "Retour | " & vbCrlf
Response.Write " " & vbCrlf
if rs("Columna") <> "" then
Parades = rs.GetRows(,,Array("Columna"))
for each Parada in Parades
strSql2 = "SELECT Parada,Parada_fra FROM Malaga_parades WHERE Columna = '" & Parada & "';"
set rs2 = my_Conn.Execute (strSql2)
Nom_parada = rs2(0)
Ubicacio = rs2(1)
do until rs2.EOF
Response.Write "" & vbCrlf
strSql3 = "SELECT " & Parada & ",Ident,Horari FROM Malaga_horaris WHERE Sortida = 'Malaga' ORDER BY Ident ASC;"
'Response.Write strSql3
set rs3 = my_Conn.Execute (strSql3)
Hora = rs3(0)
do until rs3.EOF
if rs3(2) = ("A") then
Color = ("#F8E29F")
else if rs3(2) = ("B") then
Color = ("#89B0E0")
end if
end if
Response.Write "| "
if Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2) = "0:0" then
Response.Write "---"
else
Response.Write Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2)
end if
Response.Write " | " & vbCrlf
rs3.MoveNext
loop
Response.Write " "
if Nom_parada = "Alacant" then
Response.Write "Alicante"
else
Response.Write Nom_parada
end if
Response.Write " - "
Response.Write Replace(Ubicacio,Chr(13),"
")
Response.Write " | " & vbCrlf
strSql5 = "SELECT " & Parada & ",Ident,Horari FROM Malaga_horaris WHERE Sortida = 'Andorra' ORDER BY Ident ASC;"
set rs5 = my_Conn.Execute (strSql5)
Hora2 = rs5(0)
Tipus2 = rs5(2)
do until rs5.EOF
if rs5(2) = ("A") then
Color2 = ("#F8E29F")
else if rs5(2) = ("B") then
Color2 = ("#89B0E0")
end if
end if
Response.Write ""
if Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2) = "0:0" then
Response.Write "---"
else
Response.Write Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2)
end if
Response.Write " | " & vbCrlf
rs5.MoveNext
loop
Response.Write " " & vbCrlf
rs2.Movenext
loop
next
end if
Response.Write " "
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| FRÉQUENCES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " Départ d'Espagne " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Jours | " & vbCrlf
Response.Write " Horaires | " & vbCrlf
Response.Write "L | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "J | " & vbCrlf
Response.Write "V | " & vbCrlf
Response.Write "S | " & vbCrlf
Response.Write "D | " & vbCrlf
Response.Write " " & vbCrlf
strSql6 = "SELECT * FROM Malaga_frequencia WHERE Sortida = 'Espanya' ORDER BY Horari;"
set rs6 = my_Conn.Execute (strSql6)
do until rs6.EOF
if rs6("Horari") = ("A") then
BG = ("#F8E29F")
else if rs6("Horari") = ("B") then
BG = ("#89B0E0")
end if
end if
Response.Write "" & vbCrlf
Response.Write "| "
Response.Write rs6("Vigencia")
Response.Write " | " & vbCrlf
Response.Write " "
Response.Write rs6("Horari")
Response.Write " | " & vbCrlf
if rs6("Dilluns") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dimarts") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dimecres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dijous") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Divendres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dissabte") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Diumenge") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
Response.Write " " & vbCrlf
rs6.Movenext
loop
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " Départ d'Andorre " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Jours | " & vbCrlf
Response.Write "Horaires | " & vbCrlf
Response.Write "L | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "J | " & vbCrlf
Response.Write "V | " & vbCrlf
Response.Write "S | " & vbCrlf
Response.Write "D | " & vbCrlf
Response.Write " " & vbCrlf
strSql7 = "SELECT * FROM Malaga_frequencia WHERE Sortida = 'Andorra' ORDER BY Horari;"
set rs7 = my_Conn.Execute (strSql7)
do until rs7.EOF
if rs7("Horari") = ("A") then
BG = ("#F8E29F")
else if rs7("Horari") = ("B") then
BG = ("#89B0E0")
end if
end if
Response.Write "" & vbCrlf
Response.Write "| "
Response.Write rs7("Vigencia")
Response.Write " | " & vbCrlf
Response.Write " "
Response.Write rs7("Horari")
Response.Write " | " & vbCrlf
if rs7("Dilluns") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dimarts") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dimecres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dijous") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Divendres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dissabte") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Diumenge") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
Response.Write " " & vbCrlf
rs7.Movenext
loop
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Nadal: Consulter nos services le jour de départ | " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
'Response.Write " | " & vbCrlf
Response.Write "jour du départ | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| TARIFS | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write "ANDORRA | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write "allée | " & vbCrlf
Response.Write "allée et retour | " & vbCrlf
Response.Write " " & vbCrlf
strSql9 = "SELECT * FROM Malaga_tarifes;"
set rs9 = my_Conn.Execute (strSql9)
do until rs9.EOF
Response.Write "" & vbCrlf
Response.Write ""
Response.Write Replace(rs9("Trajecte"),Chr(13),"
")
Response.Write " | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(rs9("Anar"),2)
Response.Write " € | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(rs9("Anar_Tornar"),2)
Response.Write " € | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
rs9.Movenext
loop
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| TRASLADOS | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| En conexión con nuestros autocares, servicios de traslado o recogida a domicilio. | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| TARIFAS TRASLADOS | " & vbCrlf
'Response.Write "Desde Andorra la Vella | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| | " & vbCrlf
'Response.Write "ida | " & vbCrlf
'Response.Write "ida y vuelta | " & vbCrlf
'Response.Write " " & vbCrlf
'strSql10 = "SELECT * FROM Malaga_trasllats;"
'set rs10 = my_Conn.Execute (strSql10)
'do until rs10.EOF
'Response.Write "" & vbCrlf
'Response.Write ""
'Response.Write Replace(rs10("Trajecte"),Chr(13),"
")
'Response.Write " | " & vbCrlf
'Response.Write ""
'Response.Write FormatNumber(rs10("Anar"),2)
'Response.Write " € | " & vbCrlf
'Response.Write ""
'Response.Write FormatNumber(rs10("Anar_Tornar"),2)
'Response.Write " € | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'rs10.Movenext
'loop
'Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
'end of case "Malaga"
case "Madrid"
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open MM_autocars_nadal_STRING
set rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT Columna FROM Madrid_parades ORDER BY Ident ASC;"
set rs = my_Conn.Execute (strSql)
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| HORAIRES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| A | " & vbCrlf
Response.Write "B | " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "B | " & vbCrlf
Response.Write "A | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Allée | " & vbCrlf
Response.Write " Arrêt | " & vbCrlf
Response.Write "Retour | " & vbCrlf
Response.Write " " & vbCrlf
if rs("Columna") <> "" then
Parades = rs.GetRows(,,Array("Columna"))
for each Parada in Parades
strSql2 = "SELECT Parada,Parada_fra FROM Madrid_parades WHERE Columna = '" & Parada & "';"
set rs2 = my_Conn.Execute (strSql2)
Nom_parada = rs2(0)
Ubicacio = rs2(1)
do until rs2.EOF
Response.Write "" & vbCrlf
strSql3 = "SELECT " & Parada & ",Ident,Horari FROM Madrid_horaris WHERE Sortida = 'Madrid' ORDER BY Ident ASC;"
'Response.Write strSql3
set rs3 = my_Conn.Execute (strSql3)
Hora = rs3(0)
do until rs3.EOF
if rs3(2) = ("A") then
Color = ("#F8E29F")
else if rs3(2) = ("B") then
Color = ("#89B0E0")
end if
end if
Response.Write "| "
if Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2) = "0:0" then
Response.Write "---"
else
Response.Write Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2)
end if
Response.Write " | " & vbCrlf
rs3.MoveNext
loop
Response.Write " "
Response.Write Nom_parada
Response.Write " - "
Response.Write Replace(Ubicacio,Chr(13),"
")
Response.Write " | " & vbCrlf
strSql5 = "SELECT " & Parada & ",Ident,Horari FROM Madrid_horaris WHERE Sortida = 'Andorra' ORDER BY Ident ASC;"
set rs5 = my_Conn.Execute (strSql5)
Hora2 = rs5(0)
Tipus2 = rs5(2)
do until rs5.EOF
if rs5(2) = ("A") then
Color2 = ("#F8E29F")
else if rs5(2) = ("B") then
Color2 = ("#89B0E0")
end if
end if
Response.Write ""
if Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2) = "0:0" then
Response.Write "---"
else
Response.Write Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2)
end if
Response.Write " | " & vbCrlf
rs5.MoveNext
loop
Response.Write " " & vbCrlf
rs2.Movenext
loop
next
end if
Response.Write " "
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| FREQUENCES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " Départ d'Espagne " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Jours | " & vbCrlf
Response.Write " Horaires | " & vbCrlf
Response.Write "L | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "J | " & vbCrlf
Response.Write "V | " & vbCrlf
Response.Write "S | " & vbCrlf
Response.Write "D | " & vbCrlf
Response.Write " " & vbCrlf
strSql6 = "SELECT * FROM Madrid_frequencia WHERE Sortida = 'Espanya' ORDER BY Horari;"
set rs6 = my_Conn.Execute (strSql6)
do until rs6.EOF
if rs6("Horari") = ("A") then
BG = ("#F8E29F")
else if rs6("Horari") = ("B") then
BG = ("#89B0E0")
end if
end if
Response.Write "" & vbCrlf
Response.Write "| "
Response.Write rs6("Vigencia")
Response.Write " | " & vbCrlf
Response.Write " "
Response.Write rs6("Horari")
Response.Write " | " & vbCrlf
if rs6("Dilluns") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dimarts") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dimecres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dijous") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Divendres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Dissabte") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs6("Diumenge") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
Response.Write " " & vbCrlf
rs6.Movenext
loop
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " Départs d'Andorre " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Jours | " & vbCrlf
Response.Write "Horaire | " & vbCrlf
Response.Write "L | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "M | " & vbCrlf
Response.Write "J | " & vbCrlf
Response.Write "V | " & vbCrlf
Response.Write "S | " & vbCrlf
Response.Write "D | " & vbCrlf
Response.Write " " & vbCrlf
strSql7 = "SELECT * FROM Madrid_frequencia WHERE Sortida = 'Andorra' ORDER BY Horari;"
set rs7 = my_Conn.Execute (strSql7)
do until rs7.EOF
if rs7("Horari") = ("A") then
BG = ("#89B0E0")
else if rs7("Horari") = ("B") then
BG = ("#F8E29F")
end if
end if
Response.Write "" & vbCrlf
Response.Write "| "
Response.Write rs7("Vigencia")
Response.Write " | " & vbCrlf
Response.Write " "
Response.Write rs7("Horari")
Response.Write " | " & vbCrlf
if rs7("Dilluns") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dimarts") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dimecres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dijous") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Divendres") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Dissabte") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
if rs7("Diumenge") = (-1) then
Response.Write " | " & vbCrlf
else
Response.Write " | " & vbCrlf
end if
Response.Write " " & vbCrlf
rs7.Movenext
loop
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Nadal: Consulter nos services le jour du Départ | " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "jour du départ | " & vbCrlf
Response.Write "" & vbCrlf
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| TARIFS | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write "ANDORRA | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write "allée | " & vbCrlf
Response.Write "allée et retour | " & vbCrlf
Response.Write " " & vbCrlf
strSql9 = "SELECT * FROM Madrid_tarifes;"
set rs9 = my_Conn.Execute (strSql9)
do until rs9.EOF
Response.Write "" & vbCrlf
Response.Write ""
Response.Write Replace(rs9("Trajecte"),Chr(13),"
")
Response.Write " | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(rs9("Anar"),2)
Response.Write " € | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(rs9("Anar_Tornar"),2)
Response.Write " € | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
rs9.Movenext
loop
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
'Response.Write "| TRASLADOS | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
'Response.Write "| En conexión con nuestros autocares, servicios de traslado o recogida a domicilio. | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
'end of case "Madrid"
case "Toulouse"
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open MM_autocars_nadal_STRING
set rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT Columna FROM Toulouse_parades ORDER BY Ident DESC;"
set rs = my_Conn.Execute (strSql)
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| HORAIRES ET FRÉQUENCES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Vendredi | " & vbCrlf
Response.Write "Dimanche | " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "Vendredi | " & vbCrlf
Response.Write "Dimanche | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Andorra-Toulouse | " & vbCrlf
Response.Write " Arrêt | " & vbCrlf
Response.Write "Toulouse-Andorra | " & vbCrlf
Response.Write " " & vbCrlf
if rs("Columna") <> "" then
Parades = rs.GetRows(,,Array("Columna"))
for each Parada in Parades
strSql2 = "SELECT Parada,Parada_cat FROM Toulouse_parades WHERE Columna = '" & Parada & "';"
set rs2 = my_Conn.Execute (strSql2)
Nom_parada = rs2(0)
Ubicacio = rs2(1)
do until rs2.EOF
if intRowColor = 0 Then
Response.Write ""
intRowColor = 1
Else
Response.Write " "
intRowColor = 0
End if
strSql3 = "SELECT " & Parada & ",Ident FROM Toulouse_horaris WHERE Sortida = 'Andorra' ORDER BY Ident ASC;"
'Response.Write strSql3
set rs3 = my_Conn.Execute (strSql3)
Hora = rs3(0)
do until rs3.EOF
Response.Write "| "
if Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2) = "0:0" then
Response.Write "---"
else
Response.Write Right("0" & DatePart("H", rs3(0)), 2) & ":" & Right("0" & DatePart("N", rs3(0)), 2)
end if
Response.Write " | " & vbCrlf
rs3.MoveNext
loop
Response.Write " "
Response.Write Nom_parada
Response.Write " | " & vbCrlf
strSql5 = "SELECT " & Parada & ",Ident FROM Toulouse_horaris WHERE Sortida = 'Toulouse' ORDER BY Ident ASC;"
set rs5 = my_Conn.Execute (strSql5)
Hora2 = rs5(0)
do until rs5.EOF
Response.Write ""
if Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2) = "0:0" then
Response.Write "---"
else
Response.Write Right("0" & DatePart("H", rs5(0)), 2) & ":" & Right("0" & DatePart("N", rs5(0)), 2)
end if
Response.Write " | " & vbCrlf
rs5.MoveNext
loop
Response.Write " " & vbCrlf
rs2.Movenext
loop
next
end if
Response.Write " "
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| SORTIES ET ARRIVÉES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
strSql6 = "SELECT Columna FROM Toulouse_parades ORDER BY Ident ASC;"
set rs6 = my_Conn.Execute (strSql6)
if rs6("Columna") <> "" then
Parades2 = rs6.GetRows(,,Array("Columna"))
for each Parada in Parades2
strSql7 = "SELECT Parada,Parada_fra FROM Toulouse_parades WHERE Columna = '" & Parada & "';"
set rs7 = my_Conn.Execute (strSql7)
Nom_parada2 = rs7(0)
Ubicacio2 = rs7(1)
do until rs7.EOF
if intRowColor = 0 Then
Response.Write ""
intRowColor = 1
Else
Response.Write " "
intRowColor = 0
End if
Response.Write "| "
Response.Write Nom_parada2
Response.Write ": | " & vbCrlf
Response.Write ""
if Ubicacio2 = "Gare Routière" then
Response.Write "Gare Routière"
else if Ubicacio2 = "Parada de bus de l'Esglesia" then
Response.Write "Gare routière de l'Église"
else if Ubicacio2 = "Correus" then
Response.Write "Correos"
else if Ubicacio2 = "Parada de bus Palau de Gel" then
Response.Write "Parada de bus Palau de Gel"
else if Ubicacio2 = "Parada de bus Comú" then
Response.Write "Parada de bus Comú"
else if Ubicacio2 = "Estació d'autobusos" then
Response.Write "Gare routière"
end if
end if
end if
end if
end if
end if
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
rs7.Movenext
loop
next
end if
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| --> Pour arrêter le bus, un signal au conducteur | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| --> Note: il est possible d'acheter les billets directement au conducteur 15 minutes avant la sortie. | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| TARIFS | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "EURO | " & vbCrlf
Response.Write " " & vbCrlf
strSql9 = "SELECT Trajecte FROM Toulouse_tarifes WHERE ID < 3;"
set rs9 = my_Conn.Execute (strSql9)
if rs9("Trajecte") <> "" then
Trajectes = rs9.GetRows(,,Array("Trajecte"))
for each Trajecte in Trajectes
strSql10 = "SELECT * FROM Toulouse_tarifes WHERE Trajecte = '" & Trajecte & "';"
set rs10 = my_Conn.Execute (strSql10)
Anar = rs10(2)
AnarTornar = rs10(3)
AnarTornarDia = rs10(4)
do until rs10.EOF
if intRowColor = 0 Then
Response.Write ""
intRowColor = 1
Else
Response.Write " "
intRowColor = 0
End if
Response.Write ""
Response.Write Replace(Trajecte,Chr(13),"
")
Response.Write " | " & vbCrlf
Response.Write "Allée | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(Anar,2)
Response.Write " € | " & vbCrlf
Response.Write " " & vbCrlf
if intRowColor = 0 Then
Response.Write ""
intRowColor = 1
Else
Response.Write " "
intRowColor = 0
End if
Response.Write "| | " & vbCrlf
Response.Write "Allée et retour | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(AnarTornar,2)
Response.Write " € | " & vbCrlf
Response.Write " " & vbCrlf
if intRowColor = 0 Then
Response.Write ""
intRowColor = 1
Else
Response.Write " "
intRowColor = 0
End if
Response.Write "| | " & vbCrlf
Response.Write "Allée et retour le même jour | " & vbCrlf
Response.Write ""
Response.Write FormatNumber(AnarTornarDia,2)
Response.Write " € | " & vbCrlf
Response.Write " " & vbCrlf
rs10.Movenext
loop
next
end if
strSql11 = "SELECT * FROM Toulouse_tarifes WHERE Trajecte = '10 Anades';"
set rs11 = my_Conn.Execute (strSql11)
Response.Write "" & vbCrlf
Response.Write "| 10 allées | " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "" & vbCrlf
Response.Write FormatNumber(rs11(4),2)
Response.Write " | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| --> Enfants de moins de 13 ans gratuitement | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
'end of case "Toulouse"
end select
%>
|
|
|
|
