Recuperare i valori..

**Ivan90** · 11-04-2006, 11:58

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

**Ivan90** · 11-04-2006, 12:42

NEssuno mi risponde....????

**fabiodm75** · 11-04-2006, 13:25

Mah forse puoi usare questo metodo...
SELECT TOP 3 * FROM TABELLA
volendo puoi aggiungere una condizione (se ti serve)
WHERE PUNTEGGIO="..."

Cao

Fabio

**santino83** · 11-04-2006, 16:11

se invece di perdere tempo a chiedere perdessi 2 minuti a fare ricerche o sul forum o su google risolveresti i tuoi problemi piu velocemente.... di select top x ne è pieno il forum

**Ivan90** · 11-04-2006, 16:39

Hai ragione..... anzi pienamente ragione.. però ci dovrebbe pure essere un posto dove posso chiedere aiuto... perchè mica sempre si è così intelligenti da capire le guide o quello che c'è scritto su google...

Io non perdo assolutamente tempo anzi mi guardo anche le guide i forum o quello che vuoi tu, ma purtroppo non sono così dettagliate... e poi sono un neofita... quindi...

Cmq ho sbagliato io... la prossima volta faccio prima un milione di ricerche e se poi non capisco magari vengo...

Ciao

Discussione: Recuperare i valori..

Strumenti discussione

Ricerca discussione

Visualizza

Recuperare i valori..

Permessi di invio