|
<%
Set ObjConn=Server.CreateObject("ADODB.Connection")
ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=D:\whb\Sites\7912\DataFiles\adesalambrar.mdb;UID=admin"
Set tabla=server.createobject("adodb.recordset")
tabla.open "SELECT * from tramos WHERE numero="&este&" order by numtramo asc",objconn,3,1
do while tabla.eof=False
%>
|
<%
response.write("")
response.write(tabla.fields("Tipo de vía"))
response.write(" ")
response.write(tabla.fields("Nombre"))
response.write(" ")
%>
<%
response.write("")
response.write("Tramo ")
response.write(tabla.fields("numtramo"))
response.write(": ")
response.write(tabla.fields("Tramo"))
response.write("")
response.write(" ")
response.write("")
response.write("")
response.write(tabla.fields("Descripción"))
response.write("")
response.write(" ")
response.write(" ")
response.write("Estado: ")
response.write(tabla.fields("Estado"))
response.write(" ")
if tabla.fields("BOJA")<>"" THEN
response.write("Fecha de deslinde: ")
response.write(tabla.fields("Fecha resolución"))
response.write(" BOJA: ")
%>
"><% response.write(tabla.fields("Fecha BOJA")) %>
<% end if %>
<%
response.write(" ")
response.write("Longitud: ")
response.write(tabla.fields("Longitud"))
response.write(" Anchura: ")
response.write(tabla.fields("Anchura"))
response.write(" ")
if tabla.fields("Track")<>"" THEN
response.write("Descarga el track")
end if
response.write(" ")
response.write(" ")
response.write(tabla.fields("Comentarios"))
%>
">" width="700">
<%
tabla.movenext
loop
tabla.close
%>
|