El segundo es un buscador tengo un formulario que le manda la palabra que quermos buscar en el que tengo esto:
Código HTML:
<form method="post" action="buscar.asp?mode=buscar" name="buscar" style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
<td height="24"><input name="txtbuscar1" type="text" size="20"></td>
<td height="24"><input name="I3" type="image" value="buscar" src="img/boton_buscar.gif" width="35" height="22" border="1"></td>
</form>
Y en la página buscar.asp tengo esto. Pero como puedo aquí hacer la páginación??¿?
<td colspan="3" bgcolor="#A52A2A" align="center" width="80%"><font color="#FFFFFF">
Datos encontrados que continen <b> "
<%if request.form("txtbuscar1")<>"" then
response.write request.form("txtbuscar1")
end if%>"
</b></font>
</td>
</tr>
<%if request.querystring("mode") = "buscar" then
if request.Form("txtbuscar1")= "" then
response.Write ("<tr><td height='30'></td></tr><tr><td colspan='3' align='center'>Introduce un campo de búsqueda.</td></tr>")
else
Set conn_b = Server.CreateObject("ADODB.Connection")
strconn_b = "driver={SQL Server};server=xxx.com;uid=xxx;pwd=xxx;database=gxxx" '## MS SQL Server 7
conn_b.open strconn_b
sqlb = "SELECT gce_empresas.EMP_ACT,gce_empresas.EMP_COD,gce_empresas.EMP_NOM,gce_empresas.EMP_DIR,gce_empresas.EMP_CP,gce_empresas.EMP_POB,gce_empresas.EMP_PRO,gce_empresas.EMP_PAI,gce_empresas.EMP_WEB,"
sqlb = sqlb& "gce_actividades.ACT_DES FROM gce_empresas "
sqlb = sqlb & "INNER JOIN gce_actividades "
sqlb = sqlb & "ON (gce_empresas.EMP_ACT=gce_actividades.ACT_COD) WHERE EMP_NOM like '%"& request.Form("txtbuscar1")&"%' OR "
sqlb = sqlb & "EMP_DIR like '%"& request.Form("txtbuscar1")&"%' OR EMP_POB like '%"& request.Form("txtbuscar1")&"%' OR "
sqlb = sqlb & "EMP_PRO like '%"& request.Form("txtbuscar1")&"%' OR EMP_PAI like '%"& request.Form("txtbuscar1")&"%' OR "
sqlb = sqlb & "EMP_WEB like '%"& request.Form("txtbuscar1")&"%'"
cuantos = 0
Set rscb = Server.CreateObject("ADODB.Recordset")
rscb.Open sqlb, conn_b, 3, 3
If not rscb.bof and not rscb.eof then
cuantos = cuantos +1
rscb.MoveFirst
do while not rscb.eof
cod_activi=rscb("EMP_ACT")
response.Write("<tr height='40'>")
response.Write("<td colspan='3' valign='top' height='40'>")
response.Write("<table width='100%' border='0' cellspacing='2' cellpadding='0' height='33'>")
response.Write("<tr>")
response.Write("<td class='l_1' valign='middle' bgcolor='#ffe4bf'>")
response.Write("<table width='100%' border='0' cellspacing='0' cellpadding='0'>")
response.Write("<tr>")
response.Write("<td colspan='4' valign='top' bgcolor='#ffe4bf'><a class='en6' HREF='centro.asp?cod="&cod_activi&"'><b>Actividad:</b>"& rscb("ACT_DES")&"</a></td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td><div class='l_1'><p>"& rscb("EMP_NOM")&"</p></div></td>")
//PARA FILTRAR LA ACTIVIDAD 202 PORQUE ahi son mails
if cod_activi= 202 then
response.Write("<td width='45'><div align='center'><a class='en6' HREF='"&rscb("EMP_WEB")&"' target='_blank'>ver web</a></div></td>")
else
response.Write("<td width='45'><div align='center'><a class='en6' HREF='http://"&rscb("EMP_WEB")&"' target='_blank'>ver web</a></div></td>")
end if
response.Write("<td width='45'><div align='center'><a class='en6' HREF='frm_editar.asp?cod_emp="&rscb("EMP_COD")&"&cod_act="&rscb("EMP_ACT")&"' target='_blank'>Modificar</a></div></td>")
response.Write("</tr>")
response.Write("</table>")
response.Write("</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td class='l_2' valign='bottom'>"& rscb("EMP_DIR")&"<BR>")
response.Write(""&rscb("EMP_CP")&" "&rscb("EMP_POB")&" - "&rscb("EMP_PRO")&" - "&rscb("EMP_PAI")&"")
response.Write("</td>")
response.Write("</tr>")
response.Write("</table><br></td></tr>")
rscb.MoveNext
cuantos = cuantos +1
if cuantos = 51 then
exit do
end if
loop%><!--<tr>
<td bgcolor="#ECA581"><%=cuantos-1%> Resultados encontrados
<%if cuantos=81 then%> (limitado a 50 resultados)<%end if%></font>
</td>
</tr> --><%
end if
end if
else
response.write "No se han encontrado coincidencias..."
End If
%> Gracias por la ayuda de antemano