 |
|
|
|
|
" & 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 "
Per consultar els nostres horaris i tarifes, si us plau, seleccioneu una de les nostres línies regulars que es mostren a l'esquerra. | "
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 "| HORARIS | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Sortides | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
'Response.Write "dimecres
dissabte | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write " " & vbCrlf
if rs("Columna") <> "" then
Parades = rs.GetRows(,,Array("Columna"))
for each Parada in Parades
strSql2 = "SELECT Parada,Parada_cat 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 "| Sortides | " & vbCrlf
Response.Write "diari | " & vbCrlf
'Response.Write "dijous
diumenge | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & vbCrlf
Response.Write "diari | " & 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_cat 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("Horari")
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 "| Arribada 3 hores més tard a Sants i 3h30 aeroport | " & 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 "| TRASLLATS | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| En conexió amb els nostres autocars, serveis de trasllat o recollida a domicili. | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| TARIFES | " & 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 ""
Response.Write Replace(rs8("Trajecte"),Chr(13),"
")
Response.Write " | " & vbCrlf
rs8.Movenext
loop
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write "anar | " & vbCrlf
Response.Write "anar i tornar | " & vbCrlf
Response.Write "anar | " & vbCrlf
Response.Write "anar i tornar | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| estàndard | " & 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 "| ABONAMENTS | " & 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_cat"),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 "| HORARIS | " & 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 " | " & vbCrlf
Response.Write "A | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Anar | " & vbCrlf
Response.Write " Parada | " & vbCrlf
Response.Write "Tornar | " & vbCrlf
Response.Write " " & vbCrlf
if rs("Columna") <> "" then
Parades = rs.GetRows(,,Array("Columna"))
for each Parada in Parades
strSql2 = "SELECT Parada,Parada_cat 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 " "
Response.Write Nom_parada
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 "| FREQÜÈNCIES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " Sortides d'Espanya " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Dies | " & vbCrlf
Response.Write "Horari | " & vbCrlf
Response.Write "Dl | " & vbCrlf
Response.Write "Dm | " & vbCrlf
Response.Write "Dc | " & vbCrlf
Response.Write "Dj | " & vbCrlf
Response.Write "Dv * | " & vbCrlf
Response.Write "Ds | " & vbCrlf
Response.Write "Dg | " & 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 " Sortides d'Andorra " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Dies | " & vbCrlf
Response.Write "Horari | " & vbCrlf
Response.Write "Dl | " & vbCrlf
Response.Write "Dm | " & vbCrlf
Response.Write "Dc | " & vbCrlf
Response.Write "Dj | " & vbCrlf
Response.Write "Dv | " & vbCrlf
Response.Write "Ds | " & vbCrlf
Response.Write "Dg * | " & 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 "" & vbCrlf
Response.Write "| Nadal: Consultar serveis | " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write "dia de sortida | " & 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 "| TARIFES | " & 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 "anada | " & vbCrlf
Response.Write "anada i tornada | " & 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 "| TRASLLATS | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| En conexió amb els nostres autocars, serveis de trasllat o recollida a domicili. | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| TARIFES TRASLLATS | " & vbCrlf
'Response.Write "Des de Andorra la Vella | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| | " & vbCrlf
'Response.Write "anar | " & vbCrlf
'Response.Write "anar i tornar | " & 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 "| HORARIS | " & 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 "| Anada | " & vbCrlf
Response.Write " Parada | " & vbCrlf
Response.Write "Tornada | " & vbCrlf
Response.Write " " & vbCrlf
if rs("Columna") <> "" then
Parades = rs.GetRows(,,Array("Columna"))
for each Parada in Parades
strSql2 = "SELECT Parada,Parada_cat 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 "| FREQÜÈNCIES | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " Sortides d'Espanya " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Dies | " & vbCrlf
Response.Write "Horari | " & vbCrlf
Response.Write "Dl | " & vbCrlf
Response.Write "Dm | " & vbCrlf
Response.Write "Dm | " & vbCrlf
Response.Write "Dj | " & vbCrlf
Response.Write "Dv | " & vbCrlf
Response.Write "Ds | " & vbCrlf
Response.Write "Dg | " & 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 " Sortides d'Andorra " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Dies | " & vbCrlf
Response.Write "Horari | " & vbCrlf
Response.Write "Dl | " & vbCrlf
Response.Write "Dm | " & vbCrlf
Response.Write "Dc | " & vbCrlf
Response.Write "Dj | " & vbCrlf
Response.Write "Dv | " & vbCrlf
Response.Write "Ds | " & vbCrlf
Response.Write "Dg | " & 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: Consultar serveis | " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| | " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "dia de sortida | " & 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 "| TARIFES | " & 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 "anada | " & vbCrlf
Response.Write "anada i tornada | " & 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 "| TRASLLATS | " & vbCrlf
'Response.Write " " & vbCrlf
'Response.Write "" & vbCrlf
'Response.Write "| En conexió amb els nostres autocars, serveis de trasllat o recollida a domicili. | " & 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 "| FREQÜENCIES I HORARIS | " & 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 "| Divendres | " & vbCrlf
Response.Write "Diumenge | " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "Divendres | " & vbCrlf
Response.Write "Diumenge | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| Andorra-Toulouse | " & vbCrlf
Response.Write " Parada | " & 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 "| SORTIDES I ARRIBADES | " & 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_cat 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 ""
Response.Write Ubicacio2
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 "| --> Per parar el Bus una senyal al conductor | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| --> Nota: es podrà comprar el bitllet directament al conductor 15 minuts abans de la sortida | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "| TARIFES | " & 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 "Anada | " & 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 "Anada Tornada | " & 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 "Anada Tornada mateix dia | " & 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 "| " & vbCrlf
Response.Write rs11("Trajecte")
Response.Write " | " & 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 "| --> Nens de menys de 3 anys gratuït | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "
" & vbCrlf
'end of case "Toulouse"
end select
%>
|
|
|
|
| | |
