<%@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") %> Menu admnistrativo
   
Titulo: "> " size="5">
Nombre: " size="50">
Bufete: 
Oficina:
Patrocinado? >
Curriculum: <%if len(rsabogado("curriculum")) > 0 and not cero then%>
" class="negro"><%=rsabogado("curriculum")%> <%end if%>
URL:   " size="50">
Telefono: " size="50">
Fax: " size="50">
Email: " size="50">
Email Secundario: " size="50">
Comentario:
<%if len(request.querystring("mensaje")) > 0 then response.write(request.querystring("mensaje")) end if%>