Ciao

sono un newbie, aggiorno solitamente un db access che viene interrogato dal web. Dentro vi sono user e password di utente che accedono ad area privata e scaricano file.

Dopo l'ultimo aggiornamento del mdb gli user/pw non funzionano come prima. Alcuni funzionano altri no..non trovo la logica tra i funzionanti e i non...

Posto per un aiuto il codice sql. Spero qualcuno possa aiutarmi a capire se ci sono limiti negli user e pw. Si tratta di 266 records (1,8MB)

Un saluto



codice:
<%
'Dimension variables
Dim adoCon 		'Database Connection Variable
Dim strCon		'Holds the Database driver and the path and name of the database
Dim rs		'Database Recordset Variable
Dim strAccessDB 	'Holds the Access Database Name
Dim strSQL 		'Database query sring
Dim strUserName 	'Holds the user name
Dim url		'Holds the url 

Response.Buffer=True

'If the session variable is False or does not exsist then redirect the user to the unauthorised user page
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
	'Redirect to unathorised user page
	Response.Redirect"unauthorised_user_page.htm"
End If

'get the strUserName variable
strUserName = Request.QueryString("name")

'Check the database to see if user exsits and read in there password
'Initialise the strAccessDB variable with the name of the Access Database
strAccessDB = "users"

'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
			 
'Database connection info and driver
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=quicelapassword; DBQ=" & Server.MapPath(strAccessDB)

'Set an active connection to the Connection object
adoCon.Open strCon

'Create a recordset object
Set rs = Server.CreateObject("ADODB.Recordset")

%>
QUI C'E' L'HTML DELLA PAGINA, poi continua così

codice:
 <%
strSQL = "SELECT * FROM tblUsers WHERE tblUsers.UserID ='" & strUserName & "'"

'Query the database

rs.Open strSQL, strCon
					
		'Response.Write strQry & "

"
    
						
		set codi=rs.Fields("UserID")
	      set desc=rs.Fields("Password")
		set url=rs.Fields("Link")
		set nom=rs.Fields("NOME")
		set cog=rs.Fields("COGNOME")
		 nom_cog = "" & nom & " " & cog
		
	      url_comp = "http://www.NOMEDOMINIO.it/utenti/" & desc &".pdf" 
		
		

		if rs.EOF then
		%>
			<tr><td colspan="3" class="norbold" align="center">Nessun link disponibile</td></tr>
		<%
		else
			while not rs.EOF
			%>
			 
Pagina di 
    <% =nom_cog %> 
				<tr>
					<td class="chi" align="left"></td>
					<td class="chi" align="left">Certificato esami</td>
					<td class="chi" align="left"></td>
				</tr>
				<tr>
				  <td class="chi" align="left"></td>
				  <td class="chi" align="center"></td>
				  <td class="chi" align="left"></td>
  </tr>
			<%
			rs.MoveNext
			wend
		end if
rs.Close
'Response.Redirect(url_comp)
set rs=nothing
'strCon.Close
set strCon=nothing
%>