<%@LANGUAGE="VBSCRIPT" LCID="5130"%> <% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/crlegal.mdb") %> CRLegal.Net : : : El directorio jurídico costarricense
Insertar:  Abogado | Especialidades | Editar: Abogado 
Paso 1 | Datos Personales, del Bufete y de la Oficina.
Datos del Bufete (Nuevo)
Bufete*
URL:
Teléfono:
Datos del Bufete (Existente)
Bufete <% Set rsBufetes = Server.CreateObject("ADODB.Recordset") rsBufetes.CursorLocation = 3 rsBufetes.Open "SELECT * FROM bufete ORDER BY bufete;", oConn, 3, 1, 1 If Not rsBufetes.EOF Then%> <% Else %> No hay Bufetes en el sistema <% End If rsBufetes.Close Set rsBufetes = Nothing %>
Datos de la Oficina*
Teléfono
Fax
URL:
Email:
Cantón: <% Dim Provincia (7) Provincia(1) = "San José" Provincia(2) = "Alajuela" Provincia(3) = "Cartago" Provincia(4) = "Heredia" Provincia(5) = "Guanacaste" Provincia(6) = "Puntarenas" Provincia(7) = "Limón" Set rsCantones = Server.CreateObject("ADODB.Recordset") rsCantones.CursorLocation = 3 rsCantones.Open "SELECT * FROM canton ORDER BY [id_provincia], [id_canton];", oConn, 3, 1, 1 If Not rsCantones.EOF Then%> <% Else %> No hay Cantones en el sistema <% End If rsCantones.Close Set rsCantones = Nothing %>
Dirección
Datos del Abogado*
Título (Lic, Ms, etc..)
Nombre* Primer Apellido* Segundo Apellido*
Email (Abogado)
URL (Abogado)
Patrocinado: Sí  No
Pertenece a un Bufete*: Sí  No
Bufete ya en el sistema*: Sí  No
Descripción ó resúmen del Abogado