<%@LANGUAGE="VBSCRIPT" LCID="5130"%> <% dbPath = Server.Mappath("/db/crlegal.mdb") Set Conntemp = Server.CreateObject("ADODB.Connection") Conntemp.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath canton = request.querystring("canton") if len(canton) > 0 then sql="select * from canton where id_canton="&canton set rscanton = conntemp.execute(sql) else dim rsmin sql="select min(id_canton) as cod from canton" set rsmin=conntemp.execute(sql) if rsmin.eof and rsmin.bof then dim cero cero=true else dim red red="/admin/cantones.asp?mensaje="&request.querystring("mensaje")&"&canton=" & rsmin("cod") response.redirect(red) end if end if sql="select * from canton" set rslista = conntemp.execute(sql) %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/crlegal.mdb") %> Menu admnistrativo
   
Nombre:   " size="50"> ">
Provincia:  
<%if len(request.querystring("mensaje")) > 0 then response.write(request.querystring("mensaje")) end if%>