Connessione db

[Roby_72]

Questa
rsCheckUser.Open strSQL, adoCon If NOT rsCheckUser.EOF Then

va su 2 righe.
Posta quello che contiene il file


Roby

[frappy66]

Questo è il file dbconnection.inc

<%
Dim adoCon, sConnStr
Set adoCon = Server.CreateObject("ADODB.Connection")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db/download.mdb")
adoCon.Open sConnStr
%>

Adesso la connessione a me sembra funzionare. Anche se non mi restituisce la pagina downloadadmin.asp
Secondo me è il form di autenticazione che si chiama default.asp che non funziona, ci potete dare un'occhiata!!??


<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=TRUE%>



<%
If Request.querystring("mode") = "login" then
Dim rsCheckUser
Dim strSQL
Dim strUserName
strUserName = Replace(Request.Form("txtUserName"), "'", "''")
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT password, username FROM tblusers WHERE username ='" & strUserName & "'"
rsCheckUser.Open strSQL, adoCon
If NOT rsCheckUser.EOF Then
If md5(Request.Form("txtUserPass")) = rsCheckUser("password") Then
Session("userName") = rsCheckUser("username")
Session("userAdmin") = 1
End If
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
Response.Redirect"downloadadmin.asp?mode=listdownl oad"
End If
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
Session("userAdmin") = 0
Response.Redirect"default.asp"
Else If Request.querystring("mode") = "logout" then
Session("userAdmin") = False
%>

[Roby_72]

Se non funziona mi devi dire che errore ti da.

Roby