Login script fejl

Altså umiddelbart ser det ud som om du ikke har nogen databaseconnection - prøv med dette her i stedet:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;"
    strSQL = "SELECT * FROM medlemmer WHERE (email = '" & Trim(Replace(strBrugernavn,"'","")) & "') AND (adgangskode = '" & Trim(Replace(strAdgangskode,"'","")) & "')"
    strBrugernavn = request.form("Username")
    strAdgangskode = request.form("password")
set rs = Conn.execute(strSQL)
    If NOT rs.EOF OR rs.BOF Then
   
        strFuldenavn = ""& rs("Fornavn") &"&nbsp;"& rs("Efternavn") &""
        Session("fuldenavn") = strFuldenavn
        Session("nummer") = rs("id")
        Session.Timeout = 1000
       
        If Request.Form("usecookiea") = "true" Then
            Response.Cookies("Username") = Request.Form("Username")
            Response.Cookies("Username").Expires = date() + 365
        End if
        If Request.Form("usecookieb") = "true" Then
            Response.Cookies("Password") = Request.Form("Password")
            Response.Cookies("Password").Expires = date() + 365
        End if
        If Request.Form("Autologin") = "true" Then
            Response.Cookies("Autologin") = Request.Form("Autologin")
            Response.Cookies("Autologin").Expires = date() + 365
        End if
   
        response.redirect "default.asp?cmd=load"
    Else
        Response.redirect "default.asp?msg=De blev ikke godkendt!"
    End if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>

\Dan

Hej Dan,

Den har såmænd en databaseforbindelse jeg ville bare ikke inkludere det, da det ikke er problemet.

Her er hele koden:
<!--#include file="includes/forbindelse.asp"-->
<%
    strBrugernavn = request.form("Username")
    strAdgangskode = request.form("password")

    strSQL = "SELECT * FROM medlemmer WHERE (email = '" & Trim(Replace(strBrugernavn,"'","")) & "') AND (adgangskode = '" & Trim(Replace(strAdgangskode,"'","")) & "')"
    objRec.Open strSQL, objConn, 3, 1, 1
    If NOT objRec.EOF OR objRec.BOF Then
   
        strFuldenavn = ""& objRec("Fornavn") &"&nbsp;"& objRec("Efternavn") &""
        Session("fuldenavn") = strFuldenavn
        Session("nummer") = objRec("id")
        Session.Timeout = 1000
       
        If Request.Form("usecookiea") = "true" Then
            Response.Cookies("Username") = Request.Form("Username")
            Response.Cookies("Username").Expires = date() + 365
        End if
        If Request.Form("usecookieb") = "true" Then
            Response.Cookies("Password") = Request.Form("Password")
            Response.Cookies("Password").Expires = date() + 365
        End if
        If Request.Form("Autologin") = "true" Then
            Response.Cookies("Autologin") = Request.Form("Autologin")
            Response.Cookies("Autologin").Expires = date() + 365
        End if
   
        response.redirect "default.asp?cmd=load"
    Else
        Response.redirect "default.asp?msg=De blev ikke godkendt!"
    End if
    objConn.Close
%>
<!--#include file="includes/forbindelse_luk.asp"-->




-------------------------------------------------------------------------------------
FORBINDELSE.ASP
<%
strDriver = "{Microsoft Access Driver (*.mdb)}"
strPlacement = server.MapPath("../database/system.mdb")
set objConn = server.CreateObject("ADODB.Connection")
set objRec = server.createobject("ADODB.recordset")
objConn.Open ("DRIVER="& strDriver &"; DBQ="& strPlacement) %>


-------------------------------------------------------------------------------------
FORBINDELSE_LUK.ASP
<%
objConn.close
set objConn = nothing
%>

Nå jeg fik det løst :)

Er du sikker på at strBrugernavn og strAdgangskode indeholder valide data efter du har udført Trim og Replace?

Hvor er linie 223?