hej jakob!
>
> Det lyder som om enavn er langt ude i hampen, hvis man ikke vil have andre
> til at kunne downloade databasen ligger man den bare så den ikke er
> tilfængelig fra web dvs. uden for webscopet.
>
Ja, jeg kan godt se hvad du mener, jeg må lige kontakte enavn og høre hvad
de har gang i, men indtil videre må jeg nøjes med dsn, hvilket bringer mig
tilbage til mit først indlæg. Hvordan og hvor skal jeg ændre koden så der
bli'r skabt en dsn-forbindelse?
Login.asp:
<%
' 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
Session("UserID") = intUID
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=".txt_css.css" type="text/css">
<%
If IsNumeric( intUID ) AND intUID <> "" Then
%>
<script type="text/javascript">
// Det vindue som har åbnet popupvinduet skal
// Navigeres til loginOK.asp
window.opener.location.href = '../kundeAcc/';
// 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>
> PS: Man får en bedre læsevenlighed hvis du "klipper" det væk du ikke
svarer
> på.
>
Undskyld!.det ska jeg nok huske!
Med venlig hilsen
Jimmy
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials