")
Select case (1)
case instr (request.QueryString ("plana"), "p01")
if (gama=1) then
response.Write("![]() ![]() ![]() ")
gama=1
else response.Write("![]() ![]() ![]() ")
gama=2
museo=1
p="p0101b.htm"
end if
case instr (request.QueryString ("plana"), "p02")
response.Write("![]() ![]() ![]() ")
p="p0201.htm"
museo=1
gama=2
case instr (request.QueryString ("plana"), "p03")
response.Write("![]() ![]() ![]() ")
p="p0301.htm"
museo=1
gama=3
case instr (request.QueryString ("plana"), "p04")
response.Write("![]() ![]() ![]() ")
Select case request.QueryString("plana")
case instr (request.QueryString ("plana"), "1.htm$")
p="p0401.htm"
case instr (request.QueryString ("plana"), "2.htm$")
p="p0402.htm"
end select
museo=1
gama=4
case instr (request.QueryString ("plana"), "p05")
response.Write("![]() ![]() ![]() ")
Select case request.QueryString("plana")
case instr (request.QueryString ("plana"), "1.htm$")
p="p0501.htm"
case instr (request.QueryString ("plana"), "2.htm$")
p="p0502.htm"
case instr (request.QueryString ("plana"), "3.htm$")
p="p0503.htm"
end Select
museo=1
gama=5
case instr (request.QueryString ("plana"), "p06")
response.Write("![]() ![]() ![]() ")
p="p0601.htm"
museo=1
gama=6
case instr (request.QueryString ("plana"), "p07")
response.Write("![]() ![]() ![]() ")
Select case request.QueryString("plana")
case instr (request.QueryString ("plana"), "1.htm$")
p="p0701.htm"
case instr (request.QueryString ("plana"), "2.htm$")
p="p0702.htm"
end Select
museo=1
gama=7
case instr (request.QueryString ("plana"), "p08")
response.Write("![]() ![]() ![]() ")
Select case request.QueryString("plana")
case instr (request.QueryString ("plana"), "1.htm$")
p="p0801.htm"
case instr (request.QueryString ("plana"), "2.htm$")
p="p0802.htm"
case instr (request.QueryString ("plana"), "3.htm$")
p="p0803.htm"
end Select
museo=1
gama=8
case instr (request.QueryString ("plana"), "sn01")
response.Write("![]() ![]() ![]() ")
p="sn0101b.htm"
museo=2
case instr (request.QueryString ("plana"), "af01")
response.Write("![]() ![]() ![]() ")
p="af0101b.htm"
museo=3
case instr (request.QueryString ("plana"), "ha01")
response.Write("![]() ![]() ")
Select case request.QueryString("plana")
case instr (request.QueryString ("plana"), "1b.htm$")
p="ha0101b.htm"
response.Write("![]() ")
case instr (request.QueryString ("plana"), "2.htm$")
p="ha0102.htm"
response.Write("![]() ")
end Select
museo=4
end select
response.Write(" |
")
if ( museo = 3 ) then
if (request.QueryString ("foto")="gaf0119.jpg") then
response.Write("![]() ")
response.Write("La Cuadra: Precursor del Hispano-Suiza (1900).")
response.Write(" ![]() ")
elseif (request.QueryString ("foto")="gaf0117.jpg") then
response.Write("
| ![]() ")
response.Write("Coche modelo T64 de 1930.")
response.Write(" ![]() ")
elseif (request.QueryString ("foto")="gaf0116.jpg") then
response.Write("
| ![]() ")
response.Write("Coche modelo T49 6 cilindros año 1924.")
response.Write(" ![]() ")
elseif (request.QueryString ("foto")="gaf0118.jpg") then
response.Write("
| ![]() ")
response.Write("Coche modelo 20-30 HP año 1910.")
response.Write(" ![]() ")
else
response.Write("
| ![]() ")
response.Write("")
response.Write(" ![]() ")
end if
else
response.Write("
| ![]() ")
end if
'response.Write ("La variable es: "&museo)
if ( museo = 4 ) then
if (request.QueryString ("foto")="ga0101.jpg") then
peufoto=""
elseif (request.QueryString ("foto")="ga0102.jpg") then
peufoto="Cartel de la época"
elseif (request.QueryString ("foto")="ga0103.jpg") then
peufoto="Spad. 150 CV."
elseif (request.QueryString ("foto")="ga0104.jpg") then
peufoto="F.B.A. 180 CV."
elseif (request.QueryString ("foto")="ga0105.jpg") then
peufoto="Vedette Zodiac 150 CV."
elseif (request.QueryString ("foto")="ga0106.jpg") then
peufoto="Caudron 2 motores 150 CV."
elseif (request.QueryString ("foto")="ga0107.jpg") then
peufoto="Bernard 180 CV."
elseif (request.QueryString ("foto")="ga0108.jpg") then
peufoto="Spad. biplaza 220 CV."
elseif (request.QueryString ("foto")="ga0109.jpg") then
peufoto="Besson Triplan 200 CV."
elseif (request.QueryString ("foto")="ga0110.jpg") then
peufoto="Voisin 4 motores 200 CV."
elseif (request.QueryString ("foto")="ga0111.jpg") then
peufoto="Spad. XIII 220 CV."
elseif (request.QueryString ("foto")="ga0112.jpg") then
peufoto="SAB 300 CV."
elseif (request.QueryString ("foto")="ga0113.jpg") then
peufoto="Wickers 220 CV. Inglaterra"
elseif (request.QueryString ("foto")="ga0114.jpg") then
peufoto="Wickers 300 CV. Inglaterra"
elseif (request.QueryString ("foto")="ga0115.jpg") then
peufoto="4 motores 300 CV. Bléniot"
elseif (request.QueryString ("foto")="ga0116.jpg") then
peufoto="Loerning 300 CV. U.S.A."
elseif (request.QueryString ("foto")="ga0117.jpg") then
peufoto="Wibault 220 CV."
elseif (request.QueryString ("foto")="ga0118.jpg") then
peufoto="Borel Boccacio, biplaza 300 CV."
elseif (request.QueryString ("foto")="ga0119.jpg") then
peufoto="Candron 4 motores"
elseif (request.QueryString ("foto")="ga0120.jpg") then
peufoto="Polez type X, 3 motores 180 CV."
elseif (request.QueryString ("foto")="ga0121.jpg") then
peufoto="Cuadron 3 motores 180 CV."
elseif (request.QueryString ("foto")="ga0122.jpg") then
peufoto="S.E.C.M. turismo triplaza, motores 150 i 180 CV."
elseif (request.QueryString ("foto")="ga0123.jpg") then
peufoto="Bléniot, 4 motores 180 CV."
elseif (request.QueryString ("foto")="ga0124.jpg") then
peufoto="Spad. 81, 300 CV."
elseif (request.QueryString ("foto")="ga0125.jpg") then
peufoto="Nieuport, type 29, 300 CV."
elseif (request.QueryString ("foto")="ga0126.jpg") then
peufoto="Lioré y Olivier, motores 300 CV."
elseif (request.QueryString ("foto")="ga0127.jpg") then
peufoto="De monge, monoplaza 300 CV."
elseif (request.QueryString ("foto")="ga0128.jpg") then
peufoto="Dewoitine, 300 CV."
elseif (request.QueryString ("foto")="ga0129.jpg") then
peufoto="Avión Tampier, biplaza 300 CV., puede circular como auto"
elseif (request.QueryString ("foto")="ga0130.jpg") then
peufoto="Blanchard, bimotor 300 CV."
elseif (request.QueryString ("foto")="ga0131.jpg") then
peufoto="Zodiac VL 26, 2 motores 150 CV."
elseif (request.QueryString ("foto")="ga0132.jpg") then
peufoto="F.B.A. Schneck, amfibio motor 300 CV."
elseif (request.QueryString ("foto")="ga0133.jpg") then
peufoto="Hidroavion Nieuport-Delage motor 300 CV."
elseif (request.QueryString ("foto")="ga0134.jpg") then
peufoto="Bellenger-Denhault, tipo Crucero del Mediterráneo"
elseif (request.QueryString ("foto")="ga0134.jpg") then
peufoto="Nieuport-Delage 450 CV., aparato para récords"
elseif (request.QueryString ("foto")="ga0135.jpg") then
peufoto="Farman de Bombardement a motores de 450 CV."
end if
end if
response.Write(""&peufoto&"
"&request.Querystring("frase")&" |
")
if ( museo = 1 ) then
response.Write("