Ciao a tutti
sto facendo una vista paginata di un catalogo con uno script che ho trovato in rete
ma non riesco a riadattarlo alle mie esigenze:
il fatto è che funziona come dovrebbe ma nel codice non c'è nessuna select sql,
che invece io vorrei poter avere per poter far ordinare la vista in base al valore di una colonna.
Ho provato ha sosituire un po di cose, in particolare la riga:
rs.Open "catalogo", connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect
con una connession SQL (slect * from ...) e altre righe prese da un'altro script che avevo ma mi dà errore lo stesso:
qualcuno può dirmi come fare a modificare sta prima parte di script per aver l'effetto desiderato? il fatto è che da solo mi sa che posso solo fare prove e tentativi senza capirci molto...
Qui sotto posto il codice della pagina...
************************************
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTableDirect = &H0200
Const adUseClient = 3
%>
<%
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("catalogo.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = 10
rs.CacheSize = 10
rs.CursorLocation = adUseClient
rs.Open "catalogo", connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect
If Len(Request("pagenum")) = 0 Then
rs.AbsolutePage = 1
Else
If CInt(Request("pagenum")) <= rs.PageCount Then
rs.AbsolutePage = Request("pagenum")
Else
rs.AbsolutePage = 1
End If
End If
Dim abspage, pagecnt
abspage = rs.AbsolutePage
pagecnt = rs.PageCount
%>
<%
'STAMPA RICORSIVA DEI RECORD
If Not rs.EOF Then
Response.Write "<font size=1>Pagine Totali : " & rs.PageCount & "
" & vbcrlf
Response.Write "Ti trovi alla pagina : " & rs.AbsolutePage & "
" & vbcrlf
Response.Write "Record presenti : " & rs.RecordCount & "
</font>" & vbcrlf
Dim id
Dim artista
Dim titolo
Dim label
set id = rs("id")
set artista = rs("artista")
set titolo = rs("titolo")
set label = rs("label")
%>
<table width="400" align="center">
<tr>
<th>artsita</th>
<th>titolo</th>
<th>label</th>
</tr>
<%Do while NOT Rs.EOF%>
<tr>
<td><%=artista%></td>
<td><%=titolo%></td>
<td><%=label%></td>
</tr>
<%
Rs.Movenext
Loop
%>
</table>
<%
Response.Write "<div align=""center"">" & vbcrlf
Response.Write "<font size=1>Prima Pagina"
Response.Write "|"
If abspage = 1 Then
Response.Write "<span style=""color:silver;"">Pagina Precedente</span>"
Else
Response.Write "Pagina Precedente"
End If
Response.Write "|"
If abspage < pagecnt Then
Response.Write "Prossima Pagina"
Else
Response.Write "<span style=""color:silver;"">Prossima Pagina</span>"
End If
Response.Write "|"
Response.Write "Ultima pagina"
Response.Write "</div>" & vbcrlf
Else
Response.Write "Nessun record trovato!"
End If
%>
<%
rs.Close
Set rs = Nothing
%>
</body>
</html>
Rispondi quotando
