ho cambiato codice sorgente con :


ma mi da un problema mi visualizza sempre il nome del primo account con cui mi sono collegato! qualcuno mi sa spiegare xkè nn mi visualizza il dato finale della sezione select in rosso?

il database è formato dai seguenti campi: ID, name, pass, nmc...xkè nn funge?
x il resto funziona tutto benissimo!

<%@LANGUAGE = VBScript%>
<%
Response.AddHeader "Refresh", "10"
%>


<%
If isCommonCreated <> True Then
'Determino il timeout dello script
Server.ScriptTimeout = 90

'Determino le dimensioni delle variabili
Dim strDataBasePath 'Variabile
Dim cString 'Variabile
Dim adoCon 'Variabile
Dim strSQL 'Variabile

'Setto la variabile per una connessione ADO
Set adoCon = Server.CreateObject("ADODB.Connection")

'------------------------------------------------------------------------------------
'Cambiare il path del database
strDataBasePath = "/mdb-database/database.mdb"
'------------------------------------------------------------------------------------

'Stringa per la connessione
'Se la seguente linea non funziona, commentare con ' e scegliere un altra stringa
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)

'Usa questa stringa se usi Access Database 2000 o 2002
'cString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath)

'Usa questa stringa se usi DSN
'cString = "DSN=NAME_OF_DSN"
'Sostituisci il NAME_OF_DSN con il DSN

adoCon.Open cString

'Richiesta dei valori utente

'Setta the variable to the value in the users cookie
str_userscode = Request.Cookies("Login")("userCode")

'Se l'user code non è vuota allora
IF str_userscode <> "" THEN
'Creo un nuovo record set
Set rsUserLog = Server.CreateObject("ADODB.RecordSet")

'Setta una nuova stringa sql
StrSql="SELECT * FROM admin "

'Apro il recordset e eseguo il codice sql
rsUserLog.open StrSql,cString

'Se non ci sono record che accertano l'identita dei dati dai cookies dell'utente
'setta la variabile vuota

If rsUserLog.EOF Then
Response.cookies("Login")("userCode") = ""
'Se non c'è nessun record allora
Else

' Setta i valori del database con le variabili
str_users_name = rsUserLog("name")
str_users_password = rsUserLog("pass")


End If

'Chiudo
rsUserLog.Close
set rsUserLog = Nothing

'Se l'user code è vuoto allora l'utente è guest
Else
Response.cookies("Login")("userCode") = ""
End If

'--------------------------------------------------------------------------------------------

'Creo un nuovo record set
set rsPageAttributes = Server.CreateObject("ADODB.RecordSet")

'Query sql
pageSql = "SELECT * FROM admin"

'Apro il recordset e eseguo sql
rsPageAttributes.open pageSql,cString



'Chiusura
rsPageAttributes.Close
set rsPageAttributes = Nothing

'--------------------------------------------------------------------------------------------
Else
Dim isCommonCreated
isCommonCreated = True
End If

'--------------------------------------------------------------------------------------------
Function GetState(intState)
Select Case intState
Case 0
GetState = "adStateClosed"
Case 1
GetState = "adStateOpen"
End Select
'Sintassi: GetState(adoCon.state)
End Function
'--------------------------------------------------------------------------------------------
%>

<%
Dim isCodeValid
Dim str_nmc

'Credo stringa SQL
validateSQL = "SELECT * FROM admin WHERE nmc='" & str_user_nmc & "'"

'Creo un nuovo recordsheet
Set rs_validate = Server.CreateObject ("ADODB.RecordSet")

'Apro il record sheet e eseguo SQL
rs_validate.open validateSQL,adoCon

If rs_validate.EOF _
Or rs_validate.BOF Then
isCodeValid = false
Else
isCodeValid = true
End If
%>

<%
Dim str_code
str_code = Request.cookies("Login")("userCode")

'Creo una nuova SQL string
strSQL = "SELECT name " & _
"FROM admin WHERE name='" & str_users_name & "' AND pass='" & str_users_password & "'"

'Credo un nuovo recordsheet
Set rs_check = Server.CreateObject ("ADODB.RecordSet")

'Apro il record sheet e eseguo il codice SQL
rs_check.open strSQL,adoCon

If rs_check.EOF OR rs_check.BOF Then
Response.Redirect "index.asp"
End If
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 300
Repeat1__index = 0
Recordsetmodcont_numRows = Recordsetmodcont_numRows + Repeat1__numRows
%>


</font>

</font>


</p>
<font face="Verdana" size="5">
<p align="left">
<font face="Verdana" size="1">
Il tuo IP è

<%
Dim IP
IP = Request.ServerVariables("REMOTE_ADDR")
Response.Write IP
%>

[/b]</font><p align="left">
<font face="Verdana" size="1">[/b][/i] utenti connessi <%=Application("utenti")%>
</font> <p align="left">
<font face="Verdana" size="1">Se desideri uscire --&gt; LOGOUT</font></font>

</p>


<font face="Verdana">QUESTA E' LA PAGINA DI PROVA PER L'AREA RISERVATA</font></p>


</p>


<font face="Verdana">PRESTO FUNZIONANTE</font></p>