login-script

Du kan bruge dette script:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("log/newsletter.mdb")
    strSQL = "Select * from adm"

    ' Hvis der er blevet trykket på knappen "Login"
        If Request.Form("login") = "Login" Then

    ' Her forberedes de indtastede værdier til validering
        strUID = Trim(Replace(Request.Form("username"),"'",""))
        strPWD = Trim(Replace(Request.Form("password"),"'",""))

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

    ' Opbygning af SQL streng
        strSQL = "SELECT * FROM adm WHERE(username= '" & strUID & "')AND (password ='" & strPWD & "')AND (adm = 'yes') "

        Set rs = Conn.Execute(strSQL)

    If Not(rs.BOF Or rs.EOF) Then
        ' Hvis brugeren findes i databasen
            intUID=rs("id")
            username=rs("username")
            password=rs("password")

    Else

    ' Hvis brugeren ikke fandtes i databasen
            strErr = "<center><font face='Verdana' size='2'><b>Du blev ikke godkendt af systemet</font></b></center>"

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

    End If

    If Len(intUID) Then

        ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
        ' Session "UserID" og brugeren bliver sendt videre
            Session("UserID")=intUID
            Session("UserName")=strUID
            Session("Login")="True"
            Session("adm")=yes
            Session("username") = username
            Session("password")=password


        IF NOT rs.EOF THEN
            Session("UserID")=intUID
            Session("UserName")=strUID
            Session("Login")="True"
            Session("adm")="yes"
            Session("username") = username
            Session("password")=password
            Response.Redirect "adm/adm.asp"
        End If
    End If

    else

    ' Hvis der ikke var angivet brugernavn og adgangskode
            strErr = "<center><font face='Verdana' size='2'><b>Du skal skrive både brugernavn og adgangskode</font></b></center>"

    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
%>

Tilføjer jeg så de forskellige bruger deres egen side ved at rette denne linie eller ? Response.Redirect "adm/adm.asp"

UPS
Jeg glemte denne side:

Det er din login side, og
<!-- #include file="validering.asp"--> <!-- det er den side som din valederings side er, det er det script som jeg sendte først -->
<form method="post">
<table border="0px" align="center">
    <tr>
        <td colspan="2" align="center">
            Log ind på din side:
        </td>
    </tr>
    <tr>
        <td height="1px" align="center">
            Brugernavn:
        </td>
        <td height="1px" width="1px" align="center">
            <input type="text" id="username" name="username">
        </td>
    </tr>
    <tr>
        <td height="1px" align="center">
            Password:
        </td>
        <td height="1px" width="1px" align="center">
            <input type="password" id="password" name="password">
        </td>
    </tr>
    <tr>
        <td align="center">
            <a href="index.asp">Tilbage til forsiden</a>
        </td>
        <td align="center">
            <input type="submit" id="login" name="login" value="Login">
        </td>
    </tr>
    <tr>
        <td id="error" colspan="2">
            <% = strErr %>
        </td>
    </tr>
</table>
</form>

Hvordan tildeler jeg de forskellige bruger deres egen side. Skal sige at jeg er rimelig newbee i ASP

Du skal lige ændre dette script:
IF NOT rs.EOF THEN
            Session("UserID")=intUID
            Session("UserName")=strUID
            Session("Login")="True"
            Session("adm")="yes"
            Session("username") = username
            Session("password")=password
            Response.Redirect "adm/adm.asp"
        End If
Ret det til:

IF strUID="'" & strUID & "'" and strPWD ="'" & strPWD & "'" THEN
Response.Redirect ("admin/list_medlemmer.asp") ' Dette er din side
Else
       
If Session("prof2") <> "" Then 'Her skal du søre for at prof2 er i din database
Response.Redirect "welcome.asp" ' Dette er brugerens side
End If
End if

Håber at du kan forstå hvad jeg mener.

jeg er ikke helt med, hvordan skal databasen så skrives.

Har du bredbånd, så kunne jeg sende dig min database og dine filer.

Hvis ja, og du gerne vil modtage dette, det fylder ca. 2MB i alt.
så send en mail til malle@mail.dk

ok, det gør jeg :-)

Så er mailen sendt

jeg takker så meget, lav lige et svar så får du point

Du skal først give mig point, hvis du kan få det til at virke.

Nu har jeg da fået hjælpen til et script, så derfor også point - men jeg vender tilbage hvis det går helt i mudder for mig :-)

Det er i orden