Las
distancias son por Rutas Nacionales
Seleccione ciudad de partida
<%
Dim Conexion,Tabla,Temp
strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("distancias.mdb")
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open strconn
Temp="Select * From [provincia desde]"
Tabla.Open Temp,Conexion,2,3,1%>
Seleccionel ciudad de
destino
<%Tabla.movefirst%>
<%tabla.close%>
<%Temp= " SELECT distancia "
Temp = Temp & " FROM distancias AS dis, [provincia desde] AS pd, [provincias hasta] AS ph "
Temp = Temp & " WHERE ( (pd.provincia = '" & trim(request.form("Desde")) & "'" & " and ph.provincia = '" & trim(request.form("Hasta")) & "' ) OR (pd.provincia = '" & trim(request.form("Hasta")) & "'" & " and ph.provincia = '" & trim(request.form("Desde")) & "') )"
Temp = Temp & " and dis.[provincia desde] = pd.codigo and dis.[provincia hasta] = ph.codigo"
'response.write(Temp)
if trim(request.form("Hasta")) <> "" and trim(request.form("Desde")) <> "" then
Tabla.Open Temp,Conexion,2,3,1
if not Tabla.EOF then%>
<%response.write("
" &" Distancia
" & trim(Tabla("distancia"))&" Kilometros")
end if
tabla.close
conexion.close
end if
%>
|