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"><font size="2" color="#CC6633" face="Verdana">Nessuna immobile
presente!</font></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>
<FONT
face="Verdana, Arial, Helvetica, sans-serif" size=1> <A
onclick=window.print() > [img]print.jpg[/img]
<input name="button" type=button style=width:110px;height:25px; onClick=\"window.print();\" value="Stampa Report">
</a></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> <%=RS("luogo")%> <font color="#CC6633" face="Verdana" size="3">
Intervento</font> <%=RS("intervento")%></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">
</font><%=RS("tipologia")%></td>
<td width="10%" bgcolor="#C1BDA3"></font><font color="#FF9933" face="Verdana" size="2">
<font color="#CC6633" size="3">Consegna </font></font><%=RS("consegna")%></td>
<td width="8%" align="left" bgcolor="#C1BDA3" face="Verdana" size="2">
<div align="center"><font color="#003300">"target="_blank">[img]bdettagli.jpg[/img]</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 :-)
Rispondi quotando
