Speciel login funktion

du kan hente et fint lille login script med tilhørende database på

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=223

Der skal ikke så meget tilretning til før du har noget brugbart

hmmm...jeg synes nu ikke at det er så brugbart som du synes...men det er nok fordi at jeg ikke er så god til asp :)

men det er altså ikke kun logín jeg har brug for, men en funktion der kan tjekke hvad stien er til Targetwebsite, og så sende brugeren der....

er der ikke lige nogle der kan se om hvad der er galt med denne script, da jeg ikke får den til at virke.

jeg skriver de nødvendige info om min database så i måske lige skifter de sidste ting, så den godt vil virke på databasen.

tabel:login
kolonne:PersonID(autonum), password, targetwebsite

husk lige, hver kunde har sin egen password og targetwebsite.

<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then
    ' Her forberedes de indtastede værdier til validering
    strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))

    ' Hvis der er skrevet noget i både brugernavn og adgangskode
    If  Len(strPWD) > 0 Then

        ' DSNLess forbindelse til databasen
        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("serviceaftale/serviceaftale.mdb")

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM login"&_
            " WHERE (Pasord = '" & strPWD & "')"
           

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            ' Hvis brugeren fandtes i databasen
            intUID = rs("PersonID")
            intTRAN = rs("Targetwebsite")
           
           
        Else
            ' Hvis brugeren ikke fandtes i databasen
            strERR = "Du blev ikke godkendt af systemet"
        End If

        ' Rydder op i vores connection objekt
        myConn.Close
        Set myConn = Nothing

        If Len(intUID) Then
            ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
            Session("PersonID") = intUID
            Response.Redirect intTRAN
        End If
    Else
        ' Hvis der ikke var angivet  adgangskode
        strErr = "Du skal skrive adgangskode"
    End If

    If Len(strErr) > 0 Then
        ' Her laves fejlmeddelsen om til rød skrift
        strErr = "<p><font color=red>" & strErr & "</font></p>"
    End If
End If
%>
<html><head>
<title>Login script</title>
</head>

<body>
<form method="POST" action="login.asp">
  <p><font size="4">Angiv brugernavn og adgangskode</font></p><%=strErr%>
  <table border="0">
   
    <tr>
      <td width="50%">Adgangskode:</td>
      <td width="50%"><input type="password" name="Adgangskode" size="20">
        (test)</td>
    </tr>
  </table>
  <p><input type="submit" value="Login" name="Action"></p>
</form>
url
</body></html>

Hvis din tabel ser sådan ud:
tabel:login
kolonne:PersonID(autonum), password, targetwebsite

Så passer din SQL-sætning ikke der er password i pasord kolonnen:
strSQL = "SELECT * FROM login"&_
            " WHERE (Pasord = '" & strPWD & "')"

Jeg har lige copy-pastet din kode og lavet en database selv og det virker så hvis du får fejl så der nok fordi den SQL-sætning ikke passer med tabellen.

jeg tror ikke jeg er helt med...kolonnen hedder pasord i login tabel, så hvad er der galt med SQL-sætningen?

jeg er på vej ud af døren o kommer først på søndag, men skriv fejlen så kigger jeg på den på søndag...

eagleeye...

det virkede ikke, men jeg fandt en andet kode som jeg har lavet om, og bruger nu.

men, kan du ikke lige sende den database som du har lavet, så  jeg lige kan se på den.

Mustafa