Raga con il vostro aiuto se ricordare bene sono riuscito a creare in vbscript una classifica aggiornabile...
Formata da due pagine : inserisci.asp | classifica.asp |


inserisci.asp

codice:
<html>

<head>
<title>Inserisci i punti</title>
</head>

<body>

<p align="center"><font face="verdana" size="4">Inserisci i punti nella classifica</font></p>

<form name="inserisci" method="post" action="classifica.asp">
<div align="center"><table border="0" cellpadding="0" cellspacing="0" width="250" height="70">
<tr>
   <td width="20%">Nome</td>
   <td width="80%"><input type="text" name="nome" size="20"></td>
</tr>
<tr>
   <td width="20%">Punti</td>
   <td width="80%"><input type="text" name="punti" size="5"></td>
</tr>

</table>
<table border="0" cellpadding="0" cellspacing="0" width="250" height="40">
<tr>
  <td align="center" width="50%"><input type="submit" name="invia" value="Inserisci"></td>
  <td width="50%"><input type="reset" name="cancella" value="Cancella"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="250" height="40">
<tr>
  <td align="center" width="100%"></td>
  </tr>
</table>


</div>
</form>


</body>


</html>

classifica.asp

codice:
<html>
<head>
<title>Classifica punti</title>
</head>

<body>
<p align="center"><font face="verdana" size="4">Classifica Punti</font></p>
<div align="center">
<table border="1" widht="100">
<tr>
<td widht="25%">Nome</td>
<td width="25%">Punti</td>
</tr>

<%
' riconosce i campi della form
nome = request.form("nome")
punti = request.form("punti")

'verifica che i campi siano stai compilati correttamente
if len(nome)= 0 AND len(punti) = 0 THEN 
response.write "Torna indietro e compila tutti i campi correttamente"

else

' apre la connesione al database
Dim conn,strconn,DBQ
Set conn = Server.CreateObject("ADODB.Connection")
DBQ = Server.MapPath("mdb-database/classifica.mdb")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBQ
conn.open strconn



SQL="SELECT Nome,Punti FROM Classifica WHERE Nome = '" & Nome & "'"
set rs=conn.Execute(SQL)


if (rs.eof) then
    SQL_Inserisci = "INSERT into Classifica(Nome,Punti) values ('" & Nome & "'," & Punti & ")"
   conn.Execute(SQL_Inserisci)
    

else

    SQL_Update = "Update Classifica SET Punti = " & Punti & " WHERE Nome= '" & Nome & "'"
    conn.Execute(SQL_Update)
end if

SQL="SELECT Nome,Punti FROM Classifica order by Punti DESC,Nome ASC"
set rs=conn.Execute(SQL)

do while not rs.eof

%>

<tr>

<td widht="25%"><%=rs("Nome")%></td>

<td width="25%"><%=rs("Punti")%></td>

</tr>

<%
rs.MoveNext
loop

%>

<%

conn.Close
set conn= nothing
end if
%>
</table>
<table>


<table border="0">
<tr>
  <td>
     <<< Inserisci >>>
  </td>
</tr>
</table>
</div>

</body>
</html>

la classifica viene visualizzata all'interno di una tabella cos :

Nome Punti
Giocatore1 15
Giocatore2 14
Giocatore3 13

e così via... ora io in un'altra pagina vorrei recuperare i primio tre valori di questa classifica... ovvero i pirmi tre classificati con i rispettivi punti... dovrei fare un ciclo?? mi scrivete un esempio di codice?? grazie