Listado
de Agencias y Estudios Jurídicos |
Agencias |
<%
'AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC
'AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC
'AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC
sSql = "select substring(age_nombre,6,50) age_nombre, age_calle,age_numero,case when age_piso is null or age_piso = 0 then '' else 'piso ' + convert(varchar(10),age_piso) end piso,case when age_dpto is null or age_dpto = 0 then '' else 'dpto ' + convert(varchar(10),age_dpto) end dpto,loc_nombre, age_telefono1 from agencias left join localidades on age_loc=loc_id where age_nombre like 'AC - %' and age_baja_fecha is null"
set oRs = CreateObject ("ADODB.Recordset")
oRs.Open sSql, oConnEme
while not oRs.EOF
response.write ("" & vbcrlf)
response.write (" " & vbcrlf)
response.write (" " & oRs.Fields("age_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_calle").value & " " & oRs.Fields("age_numero").value & " " & oRs.Fields("piso").value & " " & oRs.Fields("dpto").value & " - " & " " & oRs.Fields("loc_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
oRs.MoveNext
if not oRs.EOF then
response.write (" " & vbcrlf)
response.write (" " & oRs.Fields("age_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_calle").value & " " & oRs.Fields("age_numero").value & " " & oRs.Fields("piso").value & " " & oRs.Fields("dpto").value & " - " & " " & oRs.Fields("loc_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
response.write (" " & vbcrlf)
oRs.MoveNext
else
response.write (" " & vbcrlf)
response.write (" | " & vbcrlf)
response.write ("" & vbcrlf)
end if
wend
oRs.Close
set oRs = Nothing
%>
Estudios |
<%
'EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ
'EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ
'EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ EJ
sSql = "select substring(age_nombre,6,50) age_nombre, age_calle,age_numero,case when age_piso is null or age_piso = 0 then '' else 'piso ' + convert(varchar(10),age_piso) end piso,case when age_dpto is null or age_dpto = 0 then '' else 'dpto ' + convert(varchar(10),age_dpto) end dpto,loc_nombre, age_telefono1 from agencias left join localidades on age_loc=loc_id where age_nombre like 'EJ - %' and age_baja_fecha is null"
set oRs = CreateObject ("ADODB.Recordset")
oRs.Open sSql, oConnEme
while not oRs.EOF
response.write ("" & vbcrlf)
response.write (" " & vbcrlf)
response.write (" " & oRs.Fields("age_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_calle").value & " " & oRs.Fields("age_numero").value & " " & oRs.Fields("piso").value & " " & oRs.Fields("dpto").value & " - " & " " & oRs.Fields("loc_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
oRs.MoveNext
if not oRs.EOF then
response.write (" " & vbcrlf)
response.write (" " & oRs.Fields("age_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_calle").value & " " & oRs.Fields("age_numero").value & " " & oRs.Fields("piso").value & " " & oRs.Fields("dpto").value & " - " & " " & oRs.Fields("loc_nombre").value & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
response.write (" " & vbcrlf)
oRs.MoveNext
else
response.write (" " & vbcrlf)
response.write (" | " & vbcrlf)
response.write ("" & vbcrlf)
end if
wend
oRs.Close
set oRs = Nothing
%>
|
<%
'EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB
'EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB
'EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB EJB
sSql = "select substring(age_nombre,6,50) age_nombre, age_calle,age_numero,case when age_piso is null or age_piso = 0 then '' else 'piso ' + convert(varchar(10),age_piso) end piso,case when age_dpto is null or age_dpto = 0 then '' else 'dpto ' + convert(varchar(10),age_dpto) end dpto,loc_nombre, age_telefono1 from agencias left join localidades on age_loc=loc_id where (age_nombre like 'EJB -%' or age_nombre like 'EJB1-%' ) and age_baja_fecha is null"
set oRs = CreateObject ("ADODB.Recordset")
oRs.Open sSql, oConnEme
while not oRs.EOF
sAge = oRs.Fields("age_nombre").value
sCalle = oRs.Fields("age_calle").value
sNum = oRs.Fields("age_numero").value
sPiso = oRs.Fields("piso").value
sDpto = oRs.Fields("dpto").value
sLoc = oRs.Fields("loc_nombre").value
sTel = oRs.Fields("age_telefono1").value
sLinea1 = sCalle & " " & sNum & " " & sPiso & " " & sDpto & " - " & " " & sLoc
if trim(sCalle)="" and sNum=0 and trim(sPiso)="" and trim(sDpto)="" and trim(sLoc)="Sin Definir" then sLinea1=""
response.write ("" & vbcrlf)
response.write (" " & vbcrlf)
response.write (" " & sAge & " " & vbcrlf)
response.write (" " & sLinea1 & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
oRs.MoveNext
if not oRs.EOF then
sAge = oRs.Fields("age_nombre").value
sCalle = oRs.Fields("age_calle").value
sNum = oRs.Fields("age_numero").value
sPiso = oRs.Fields("piso").value
sDpto = oRs.Fields("dpto").value
sLoc = oRs.Fields("loc_nombre").value
sTel = oRs.Fields("age_telefono1").value
sLinea1 = sCalle & " " & sNum & " " & sPiso & " " & sDpto & " - " & " " & sLoc
if trim(sCalle)="" and sNum=0 and trim(sPiso)="" and trim(sDpto)="" and trim(sLoc)="Sin Definir" then sLinea1=""
response.write (" " & vbcrlf)
response.write (" " & sAge & " " & vbcrlf)
response.write (" " & sLinea1 & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
response.write (" " & vbcrlf)
oRs.MoveNext
else
response.write (" " & vbcrlf)
response.write (" | " & vbcrlf)
response.write ("" & vbcrlf)
end if
wend
oRs.Close
set oRs = Nothing
%>
|
<%
'EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1
'EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1
'EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1 EJB1
sSql = "select substring(age_nombre,8,50) age_nombre, age_calle,age_numero,case when age_piso is null or age_piso = 0 then '' else 'piso ' + convert(varchar(10),age_piso) end piso,case when age_dpto is null or age_dpto = 0 then '' else 'dpto ' + convert(varchar(10),age_dpto) end dpto,loc_nombre, age_telefono1 from agencias left join localidades on age_loc=loc_id where age_nombre like 'EJB1 - %' and age_baja_fecha is null"
set oRs = CreateObject ("ADODB.Recordset")
oRs.Open sSql, oConnEme
while not oRs.EOF
sAge = oRs.Fields("age_nombre").value
sCalle = oRs.Fields("age_calle").value
sNum = oRs.Fields("age_numero").value
sPiso = oRs.Fields("piso").value
sDpto = oRs.Fields("dpto").value
sLoc = oRs.Fields("loc_nombre").value
sTel = oRs.Fields("age_telefono1").value
sLinea1 = sCalle & " " & sNum & " " & sPiso & " " & sDpto & " - " & " " & sLoc
if trim(sCalle)="" and sNum=0 and trim(sPiso)="" and trim(sDpto)="" and trim(sLoc)="Sin Definir" then sLinea1=""
response.write ("" & vbcrlf)
response.write (" " & vbcrlf)
response.write (" " & sAge & " " & vbcrlf)
response.write (" " & sLinea1 & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
oRs.MoveNext
if not oRs.EOF then
sAge = oRs.Fields("age_nombre").value
sCalle = oRs.Fields("age_calle").value
sNum = oRs.Fields("age_numero").value
sPiso = oRs.Fields("piso").value
sDpto = oRs.Fields("dpto").value
sLoc = oRs.Fields("loc_nombre").value
sTel = oRs.Fields("age_telefono1").value
sLinea1 = sCalle & " " & sNum & " " & sPiso & " " & sDpto & " - " & " " & sLoc
if trim(sCalle)="" and sNum=0 and trim(sPiso)="" and trim(sDpto)="" and trim(sLoc)="Sin Definir" then sLinea1=""
response.write (" " & vbcrlf)
response.write (" " & sAge & " " & vbcrlf)
response.write (" " & sLinea1 & " " & vbcrlf)
response.write (" " & oRs.Fields("age_telefono1").value & " " & vbcrlf)
response.write (" | " & vbcrlf)
response.write (" " & vbcrlf)
oRs.MoveNext
else
response.write (" " & vbcrlf)
response.write (" | " & vbcrlf)
response.write ("" & vbcrlf)
end if
wend
oRs.Close
set oRs = Nothing
%>
|
a |
|