Scusate ragazzi sono un neofita e non ho molta praticita volevo chiedervi se potete aiutarmi a risolvere un problema...

ho una pagina asp che che richiamata da un form seleziona riporta i dati di un database:
ecco il codice:
<%
dim strValore
strValore = request.Form("selezionatore")
select case StrValore
case "residenziale"
'SELEZIONA SOLO IMMOBILI RESIDENZIALI
' NUMERO DI IMMOBILI PER PAGINA
iPageSize = 50

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/immobili.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RS = Server.CreateObject("ADODB.Recordset")

' FA LA RICHIESTA AL DATABASE
sql = "SELECT * FROM tabella WHERE tipo='residenziale' ORDER BY " & strOrderBy & " DESC;"

RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' NESSUN IMMOBILE INSERITO -> VIENE VISUALIZZATO UN MESSAGGIO CHE INFORMA CHE NON E' PRESENTE
' NEMMENO UN IMMOBILE NEL DB
If iPageCount = 0 Then
%><hr>
<p align="center"><b><font size="2" color="#CC6633" face="Verdana">Nessuna immobile
presente!</font></b></p>
<hr>
<%
Else

RS.AbsolutePage = iPageCurrent
iRecordsShown = 0

' SE INVECE SONO PRESENTI IMMOBILI
%>
<font size="5" color="#CC6633" face="Times New Roman, Times, serif"> Immobili
Residenziali</font>
<TR></b>
<TD colSpan=3>
<DIV align=right><BR>
<FONT
face="Verdana, Arial, Helvetica, sans-serif" size=1><STRONG> <A
onclick=window.print() > <img height=20 src="print.jpg" width=25 align=absMiddle
border=0>
<input name="button" type=button style=width:110px;height:25px; onClick=\"window.print();\" value="Stampa Report">
</a></STRONG></FONT></DIV>
<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#004a80
border=0><TBODY>

<table width="100%" border="2" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
numero = numero + 1
%>
<tr bordercolor="#333333">
<td width="2%" height="99" bgcolor="#CC6633"><font color="#003300" size="2" face="Verdana"><%=numero%></font></td>
<td width="51%" bgcolor="#C1BDA3"><font color="#CC6633" face="Verdana" size="3">
Luogo </font><b> <%=RS("luogo")%></b> <font color="#CC6633" face="Verdana" size="3">
Intervento</font><b> <%=RS("intervento")%></b></td>
<td width="29%" height="99" bgcolor="#C1BDA3"><font color="#FF9933" face="Verdana" size="4"><font color="#CC6633" size="3">Tipologia</font></font><font color="#AF1D23"><b>
</b></font><b><%=RS("tipologia")%></b></td>
<td width="10%" bgcolor="#C1BDA3"></font><font color="#FF9933" face="Verdana" size="2">
<font color="#CC6633" size="3">Consegna </font></font><b><%=RS("consegna")%></b></td>

<td width="8%" align="left" bgcolor="#C1BDA3" face="Verdana" size="2">
<div align="center"><font color="#003300"><a href="<%=RS("Scheda")%>"target="_blank"><img src="bdettagli.jpg" width="70" height="108"></a></font></div></td>
</tr>
<%
' COMPLETA LA VISUALIZZAZIONE DEI TITOLI DEGLI IMMOBILI E CHIUDE LA CONNESSIONE
' AL DATABASE

iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>
<%
End If
RS.Close
Set RS = Nothing
Conn.Close
%><center>
<%
' MOSTRA IL NUMERO DELLE PAGINE
' DATO CHE VERRANNO MOSTRATI
' IN QUESTO ESEMPIO 15 IMMOBILI PER PAGINA

For x=1 to iPageCount
%>

<%
next
case "direzionale" e cosi di seguito ...
il selezionatore comprende 3 voci, vorrei se è possibile spezzare questa pagina in 3 in modo da trasformare la pagina unica in tre pagine una per tipologia (es: residenziale.asp, direzionale.asp etc) per poterla gestire con un semplice link escludendo il selezionatore.... potete aiutarmi.... ringrazio anticipatamente :-)


giampy

---

Modificato da gippo2006 il 18 settembre 2008 10.35 -