Hej Jakob!
Nej, det har du ret i! det skulle jeg måske ha' nævnt, at jeg var
nybegynder i asp-helved!
Jeg afprøver koden.....og tak for det
god weekend!
Med venlig hilsen
Jimmy Snedker
Jakob Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> "Jimmy Snedker" <jsnedker@hotmail.com> skrev i en meddelelse
> news:a961l7$9p3$1@sunsite.dk...
> > hej jakob
>
> > ja...det har jeg forstået!
>
> Det var jo ikke til at vide. Prøv med dette her:
>
>
> <%
> ' Hvis der er blevet trykket på knappen "Login"
> If Request.Form("Action") = "Login" Then
> ' Her forberedes de indtastede værdier til validering
> strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
> strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
>
> ' Hvis der er skrevet noget i både brugernavn og
adgangskode
> If Len(strUID) > 0 And Len(strPWD) > 0 Then
>
> ' DSNLess forbindelse til databasen
> Set myConn = Server.CreateObject("ADODB.Connection")
> myConn.Open "DRIVER={Microsoft Access Driver
> (*.mdb)};DBQ=" & Server.MapPath("mindatabase.mdb")
>
> ' Opbygning af SQL streng
> strSQL = "SELECT UserID FROM Logins"&_
> " WHERE (Username = '" & strUID & "')"&_
> " AND (Password = '" & strPWD & "')"
>
> Set rs = myConn.Execute(strSQL)
> If Not (rs.BOF Or rs.EOF) Then
> ' Hvis brugeren fandtes i databasen
> intUID = rs("UserID")
> 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("UserID") = intUID
> Response.Redirect ("loginOk.asp")
> End If
> Else
> ' Hvis der ikke var angivet brugernavn og adgangskode
> strErr = "Du skal skrive både brugernavn og
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
> %>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
> <html>
> <head>
> <title>Kunde Login</title>
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1">
> <link rel="stylesheet" href="../css/txt_css.css" type="text/css">
> <%
> If IsNumric( intUID ) AND intUID <> "" Then
> %>
> <script type="text/javascript">
> // Det vindue som har åbnet popupvinduet skal
> // Navigeres til loginOK.asp
> window.opener.location.href = 'loginOK.asp';
> // Popupvinduet skal lukkes.
> window.close();
> </script>
> <%
> End if
> %>
> <body>
> <form name="Action" " method="post" action="default.asp">
> <table width="227" border="0" cellspacing="5" cellpadding="0"
> align="left">
> <tr>
> <td colspan="2"><img src="../images/gif/klogin.gif"
> width="91" height="12" alt="Kunde Login"></td>
> <td rowspan="10" valign="bottom" width="20"
> class="bpx"><img src="../images/gif/box.gif" alt=""></td>
> </tr>
> <tr>
> <td colspan="2" class="boldtxt">Angiv Brugernavn og
> Password</td>
> </tr>
> <tr>
> <td colspan="2" class="brdtxt" height="25"><%=strErr%></td>
> </tr>
> <tr>
> <td class="boldtxt">Brugernavn</td>
> <td align="right">
> <input type="text" name="Brugernavn" size="18"
> class="brdtxt">
> </td>
> </tr>
> <tr>
> <td class="boldtxt">Password</td>
> <td align="right">
> <input type="password" name="Adgangskode" size="18"
> class="brdtxt">
> </td>
> </tr>
> <tr>
> <td> </td>
> <td align="right">
> <input type="submit" value="Login" name="Action"
> class="boldtxt">
> </td>
> </tr>
> <tr>
> <td colspan="2" class="brdtxt">Gem indstillinger
> <input type="checkbox" name="checkbox" value="checkbox">
> </td>
> </tr>
> </table>
> </form>
> </body>
> </html>
>
> --
> Jakob Andersen
>
>
--
KONKURRENCE PÅ HTML.dk:
fortæl hvordan din drømmeeditor ser ud
og vind luksus webhoteller fra Wannafind
KLIK HER! =>
http://www.html.dk/editor