line decor
  
Horario de Atención Lunes a Viernes 8:45 a 13:45
line decor


 
 
<% dim numcar dim radio1 numcar=(request.form("caratula")) radio1=(request.form("radio")) dim str1 dim conexion set conexion = Server.CreateObject("ADODB.Connection") str1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./BD/Dbsyscbrq.mdb") conexion.ConnectionString=str1 conexion.Open dim rs set rs= Server.CreateObject("ADODB.RecordSet") if radio1=1 then rs.open "select razon1,razon2,reg,subreg,foja1,num1,año1,foja2,num2,año2,obs from historialreins where razon1 like '" & (numcar) & "%' order by reg,razon1",conexion end if if radio1=2 then rs.open "select razon1,razon2,reg,subreg,foja1,num1,año1,foja2,num2,año2,obs from historialreins where razon2 like '" & (numcar) & "%' order by reg,razon2" ,conexion end if if radio1=3 then rs.open "select razon1,razon2,reg,subreg,foja1,num1,año1,foja2,num2,año2,obs from historialreins where foja='" & (numcar) & "' order by reg,razon1" ,conexion end if if radio1=4 then rs.open "select razon1,razon2,reg,subreg,foja1,num1,año1,foja2,num2,año2,obs from historialreins where año1=" & (numcar) & " order by reg,razon1" ,conexion end if if radio1=0 then rs.open "select razon1,razon2,reg,subreg,foja1,foja2,obs,num1,num2,año1,año2 from historialreins where razon1 like 'a%' order by razon1",conexion end if %> <%if rs.eof then%>

No hay datos que coincidan con su petición para Reinscripción

<%else%> <%do while not rs.eof%> <%rs.movenext loop rs.close end if%>
Registro Razón Social_1 Razón Social_2 Tipo Foja Año Foja OBS
<%=rs("reg")%> <%=rs("razon1")%> <%=rs("razon2")%> <%=rs("subreg")%> <%=rs("foja1")%> <%=rs("num1")%> <%=rs("año1")%> <%=rs("foja2")%> <%=rs("num2")%> <%=rs("obs")%>
 
Copyright © 2010 Conservador de Bienes Raíces de Quintero