<% @Language=VBScript %> <% dim este ano=Request("este") %> Plataforma A Desalambrar
<% 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 %>
<% 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 %>