Niente da fare, ho dato un occhiata al Robyscript, ma non ne sono venuto a capo...
Volevo evitare di passare tutto in query string, anche perchè ho fatto una mezza prova e non sembra andare (avrò sbagliato la sintassi, ma in ogni caso cercherei prima dei metodi alternativi).
Posto l'intero codice:
codice:
<%@ LANGUAGE = VBScript.Encode %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="">
<meta name="keywords" content="">
<title>:: *** Area Riservata *** ::</title>
</head>
<link rel="stylesheet" href="modulo.css" type="text/css">
<%
ragsoc= Trim(Request.Form("ragsoc"))
provincia= Trim(Request.Form("provincia"))
piva= Trim(Request.Form("piva"))
codfisc= Trim(Request.Form("codfisc"))
citta= Trim(Request.Form("citta"))
catmerc= Trim(Request.Form("catmerc"))
tipocom= Trim(Request.Form("tipocom"))
coloresfondo="#FFFFFF"
coloresfondoa="#6698BC"
coloretesto="#002E59"
coloresfondov="#8FBE00"
%>
<body text="<%=coloretesto%>" leftmargin="0" topmargin="0" background="images\o.jpg" >
<table width="772px" class="cella" align="center" bgcolor="#FFFFFF">
<tr>
<td>
<table width="772px" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="100%" valign="top">
<table width="98%" cellpadding="0" cellspacing="4" align="center" bgcolor="<%=coloresfondo%>">
<tr>
<td bgcolor="<%=coloresfondo%>" align="center">
[img]images\coseme.jpg[/img]
<div align="left">
<table width="200px" cellpadding="0" cellspacing="0" >
<tr>
<td width="200px" bgcolor="<%=coloresfondo%>" align="left" background="images\sfondocella.jpg" class="testobianco10">
[img]images\homepage.jpg[/img]
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" colspan="2" align="left" class="cellav">
<div class="titolo2">Clienti presenti nell'archivio di <%=session("nomeutente")%></div>
</td>
</tr>
<tr>
<td width="100%" colspan="2" align="left" class="cella">
<%
strSQL = "SELECT idcliente,ragsoc,citta,provincia,telefono1 FROM CLIFOR WHERE (ragsoc <> '""') "
if ragsoc<>"" then strSQL=strSQL & "AND (ragsoc LIKE '%"&ragsoc&"%')"
if citta<>"" then strSQL=strSQL & " AND (citta LIKE '%"&citta&"%')"
if provincia<>"" then strSQL=strSQL & " AND (provincia LIKE '%"&provincia&"%')"
if piva<>"" then strSQL=strSQL & " AND (piva = '"&piva&"')"
if codfisc<>"" then strSQL=strSQL & " AND (codfisc = '"&codfisc&"')"
if catmerc<>"" then strSQL=strSQL & " AND (catmerc1='"&catmerc&"' OR catmerc2='"&catmerc&"' OR catmerc3='"&catmerc&"' OR catmerc4='"&catmerc&"' OR catmerc5='"&catmerc&"' OR catmerc6='"&catmerc&"' OR catmerc7='"&catmerc&"')"
if tipocom<>"" then strSQL=strSQL & " AND (tipocom1='"&tipocom&"' OR tipocom2='"&tipocom&"' OR tipocom3='"&tipocom&"')"
set rs=server.createobject("adodb.recordset")
If TRIM(Request.QueryString("Pagina")) = "" Then
Pagina = 1
Else
Pagina = CInt(Request.QueryString("Pagina"))
End If
recordperpagina = 20
rs.PageSize = recordperpagina
rs.CacheSize = recordperpagina
rs.Open strSQL,conn,1
if rs.eof=true and rs.bof=true then
%>
<div class="titolo">Elenco clienti</div>
<div class="testo10" align="center">
Nessun cliente ancora presente in archivio
</div></div>
<%
else
paginetotali = rs.PageCount
rs.AbsolutePage = Pagina
%>
<div class="titolo">Clienti in archivio: <%=rs.RecordCount%>
Pagina <%=Pagina%> di <%=paginetotali%></div>
<%
riga=true
Response.write("
<div class='testoa10' align='center'>")
If Pagina > 1 Then
Response.Write "<< Prima pagina< Indietro"
Else
Response.Write "<< Prima pagina< Indietro"
End If
If CInt(Pagina) <> CInt(PagineTotali) Then%> <% Response.Write "Avanti >Ultima pagina >>"
Else
Response.Write "Avanti >Ultima pagina >>"
End If
Response.write("</div>
")
%>
<table width="96%" cellpadding="1" cellspacing="1" align="center">
<tr>
<td>
<td class="testo10" >N.</td>
<td class="testo10" >Nome/Ragione Sociale</td>
<td class="testo10" >Comune</td>
<td class="testo10" >Provincia</td>
<td class="testo10" >Telefono</td>
</tr>
<tr>
<%
For i = 1 To rs.PageSize
rcount = i
If Pagina > 1 Then
For x = 1 To (Pagina - 1)
rcount = + rcount
Next
End If
if riga=true then
colorex="#B0CFE5"
else
colorex=coloresfondo
end if
If Not rs.EOF Then
%>
<td height="11" align="center" bgcolor="<%=colorex%>">">[img]edit.gif[/img]' border="0">
">[img]delete.gif[/img]' border="0">
">[img]delete.gif[/img]' border="0">
</td>
<td class="testo10" bgcolor="<%=colorex%>"><%=rcount+(pagina-1)*recordperpagina%></td>
<td class="testo10" bgcolor="<%=colorex%>"><%=rs("ragsoc")%></td>
<td class="testo10" bgcolor="<%=colorex%>"><%=rs("citta")%></td>
<td class="testo10" bgcolor="<%=colorex%>"><%=rs("provincia")%></td>
<td class="testo10" bgcolor="<%=colorex%>"><%=rs("telefono1")%></td>
<tr>
<%
riga=not(riga)
rs.movenext
End If
Next
%>
</table>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%end if%>
</body>
</html>
Spero davvero che possiate aiutarmi... so disperato 
Rispondi quotando
