<%@ Language=VBScript%>
::. EuropaEnMoto.com - Rutas en moto por toda Europa .::
<BODY style="background-attachment: fixed">
<%'Conecta a la BD.
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("ruta.mdb")
%>
<H1>viajes moto europa motocicleta motero hoteles viaje hotel ruta rutas isla man brno motogp gp tt iom nurburgring nürburgring nuerburgring </H1>
<H1>EuropaEnMoto.com - Rutas y viajes en moto por toda Europa</H1>
<!-- publicitat per a que els robots també indexin aquestes pàgines -->
<H1><a href="http://www.totalistas.com">filosofia i humor</a></H1>
<H1><a href="http://www.vsistemes.com">serveis informàtics</a></H1>
<H1><a href="http://www.radicaltuning.net">tuning</a></H1>
<H1><a href="http://www.milagrosalourdes.com">opinion y politica</a></H1>
<H1><a href="http://www.motodum.com">tienda de recambios y accesorios de motocicletas</a></H1>
<H1><a href="http://www.mwgrup.com">servicios informaticos</a></H1>
</BODY>
<%' fer recorregut per la bd i mostrar articles
' extreure del valor del box families, l'index de la família per fer l´sql
fami = Request.Form("ciutats")
If Request.Form <> "" then
'demanar bd
Set RS1 = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM ciutats WHERE indexciutat =" & fami
RS1.Open sql, oConn
do while not RS1.EOF
Response.Write ""
rs1.movenext
loop
end if
%>
<%' fer recorregut per la bd i mostrar articles
' extreure del valor del box families, l'index de la família per fer l´sql
fami = Request.Form("ciutats")
If Request.Form <> "" then
'demanar bd
Set RS1 = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM ciutats WHERE indexciutat =" & fami
RS1.Open sql, oConn
do while not RS1.EOF
Response.Write ""
rs1.movenext
loop
end if
%>
