<html>
<head>
<title>ACTUR</title>
<%
Dim nombre
Dim localitat
Dim numresult
'declaramos nom y guardamos la info asi.
nombre = Request.Form("nombre")
localitat=Request.Form("localitat")
numresult=Request.Form("numresult")
Session("nombre")=nombre
Session("localitat")=localitat
Session("numresult")=numresult
response.write(Session("localitat"))
sSQL="SELECT * FROM cases WHERE Ciudad = '"&localitat&"' OR Nombre = ''"
'actualizamos numero de pagina
If Request.QueryString("pag")<>"" then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open "buscador"
RS.Open sSQL,Conn,adopenstatic,adcmdtext
'resultados por pagina
num_registros = 1
'Dimensionamos las paginas y determinamos la pagina actual
RS.PageSize=num_registros
RS.AbsolutePage=Session("pagina")
%>
<br><br>
<table cellspacing="2" cellpadding="2" border="1" align="center">
<%
'Contamos el numero de campos de la tabla
num_campos=RS.Fields.Count
For campo=0 to num_campos-1%>
<td align="center"><%=RS(campo).Name%> </td>
<%
Next
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<tr>
<%For campo=0 to num_campos-1 %>
<td align="center"><%=RS(campo)%> </td>
<%Next%>
</tr>
<%
RS.MoveNext
Wend
%>
<tr>
<td colspan="<%=num_campos%>" align="center">
<%
i=0
While i<RS.PageCount
i=i+1
%>
<b><a href="holaw.asp?pag=<%=i%>"><%=i%></a></b>
<%
Wend
%> </td>
</tr>
</table>
<%
RS.Close
Conn.Close
%><a href="index.asp">Tornar a l'índex
</body>
</a>
</html>