Hola a todos, me gustaría saber como podría hacer la paginación si los datos los saco de 2 tablas a la vez. esto es lo que tengo:
<%
cod_activi=request.QueryString("cod")
response.Write ("<th>EMPRESA</th>")
sqlc ="select * from gce_empresas where EMP_ACT='"&cod_activi&"'"
Set rsc = Server.CreateObject("ADODB.Recordset")
rsc.Open sqlc, my_conn, 3, 3
If not rsc.bof and not rsc.eof then
cuantos = cuantos +1
rsc.MoveFirst
do while not rsc.eof
response.Write("<tr>")
response.Write("<td><b>"& rsc("EMP_NOM")&"</b><br>")
response.Write(""&rsc("EMP_DIR")&"<br>")
response.Write(""&rsc("EMP_CP")&" "&rsc("EMP_ POB")&"<br>")
response.Write("("&rsc("EMP_PRO")&") "&rsc("E MP_PAI")&"<br>")
response.Write( "<a HREF='http://"&rsc("EMP_WEB")&"' target='_blank'>ver web</a>")
response.Write("<div align='right'><a HREF='frm_editar.asp?cod_emp="&rsc("EMP_COD")&"&co d_act="&cod_activi&"'>Modificar</a></div></td>")
rsc.MoveNext
cuantos = cuantos +1
loop
response.Write("</tr>")
end if
rsc.Close
sqlc2 ="select * from gce_empresas2 where EMP2_ACT='"&cod_activi&"'"
Set rsc2 = Server.CreateObject("ADODB.Recordset")
rsc2.Open sqlc2, my_conn, 3, 3
If not rsc2.bof and not rsc2.eof then
cuantos2 = cuantos2 +1
rsc2.MoveFirst
do while not rsc2.eof
response.Write("<tr>")
response.Write("<td><b>"& rsc2("EMP2_NOM")&"</b><br>")
response.Write(""&rsc2("EMP2_DIR")&"<br>")
response.Write(""&rsc2("EMP2_CP")&" "&rsc2("E MP2_POB")&"<br>")
response.Write("("&rsc2("EMP2_PRO")&") "&rsc2 ("EMP2_PAI")&"<br>")
response.Write( "<a HREF='http://"&rsc2("EMP2_WEB")&"' target='_blank'>ver web</a>")
response.Write("<div align='right'><a HREF='frm_editar2.asp?cod_emp="&rsc2("EMP2_COD")&" &cod_act="&cod_activi&"'>Modificar</a></div></td>")
rsc2.MoveNext
cuantos2 = cuantos2 +1
loop
response.Write("</tr>")
end if
rsc2.Close
%>
Graciasss!!!!