Salve a tutti, il mio problema è questo:
Come posso ordinare il risultato di una query su database access? Al momento non capisco secondo quale criterio li ordina, io vorrei ordinarli per esempio per il numro di <%=rs("golfatti")%>.
il codice del risultato è questo:
<%@LANGUAGE = VBScript%>
<!--#include file="inc_header.asp"-->
<!--#include file="connessione.asp"-->
<%
Dim cn, rs ' Variabili per la connessione e per il Recordset
' Creo un'istanza per la connessione ed una per il Recordset
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open str_cn ' Apro la connessione al database
Dim SQL ' Creo la query SQL
SQL = "SELECT * FROM persone"
' Apro il Recordset
rs.Open SQL, cn
%>
<html>
<head>
<title>Cini</title>
</head>
<body>
<%
' Verifico che la tabella contenga dati
' Se non ne contiene lancio un messaggio di avviso
If rs.EOF = True Then
%>
<p>Nessun dato trovato</p>
<%
' Se invece ne contiene visualizzo i dati in funzione
' della query SQL specificata
Else
While rs.EOF = False
%>
<p>
<p class="style1">Il PallonCino <b><%=rs("nome")%> <%=rs("cognome")%> </b>ha giocato con noi <b><%=rs("presenze")%> </b>partite segnando <b><%=rs("golfatti")%> </b>gol.
<br><i>(Id giocatore: <%=rs("id")%>)</i>
<br><a href="recupera_dati.asp?id=<%=rs("id")%>">Modifica Dati</a>
<br><a href="delete.asp?id=<%=rs("id")%>">Elimina giocatore</a></p>
<%
rs.MoveNext
Wend
End If
%>
</body>
</html>
<%
' Chiudo il Recordset
rs.Close
Set rs = Nothing
' Chiudo la connessione
cn.Close
Set cn = Nothing
%>
Grazie in anticipo
Come posso ordinare il risultato di una query su database access? Al momento non capisco secondo quale criterio li ordina, io vorrei ordinarli per esempio per il numro di <%=rs("golfatti")%>.
il codice del risultato è questo:
<%@LANGUAGE = VBScript%>
<!--#include file="inc_header.asp"-->
<!--#include file="connessione.asp"-->
<%
Dim cn, rs ' Variabili per la connessione e per il Recordset
' Creo un'istanza per la connessione ed una per il Recordset
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open str_cn ' Apro la connessione al database
Dim SQL ' Creo la query SQL
SQL = "SELECT * FROM persone"
' Apro il Recordset
rs.Open SQL, cn
%>
<html>
<head>
<title>Cini</title>
</head>
<body>
<%
' Verifico che la tabella contenga dati
' Se non ne contiene lancio un messaggio di avviso
If rs.EOF = True Then
%>
<p>Nessun dato trovato</p>
<%
' Se invece ne contiene visualizzo i dati in funzione
' della query SQL specificata
Else
While rs.EOF = False
%>
<p>
<p class="style1">Il PallonCino <b><%=rs("nome")%> <%=rs("cognome")%> </b>ha giocato con noi <b><%=rs("presenze")%> </b>partite segnando <b><%=rs("golfatti")%> </b>gol.
<br><i>(Id giocatore: <%=rs("id")%>)</i>
<br><a href="recupera_dati.asp?id=<%=rs("id")%>">Modifica Dati</a>
<br><a href="delete.asp?id=<%=rs("id")%>">Elimina giocatore</a></p>
<%
rs.MoveNext
Wend
End If
%>
</body>
</html>
<%
' Chiudo il Recordset
rs.Close
Set rs = Nothing
' Chiudo la connessione
cn.Close
Set cn = Nothing
%>
Grazie in anticipo