%@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 abogado = request.querystring("abogado") if len(abogado) > 0 then sql="select * from abogado where id_abogado="&abogado set rsabogado = conntemp.execute(sql) else dim rsmin sql="select min(id_abogado) as cod from abogado" set rsmin=conntemp.execute(sql) if rsmin.eof and rsmin.bof then dim cero cero=true else dim red red="/admin/abogados.asp?mensaje="&request.querystring("mensaje")&"&abogado=" & rsmin("cod") response.redirect(red) end if end if sql="select * from abogado order by nombre" 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") %>