2 Sider til 1
Hejsa alle sammen :)1. Jeg har denne side hvor man logger ind på..
2. Også har jeg en anden side man kommer til som godkender ens login.. Nogen der kan sætte det sammen til en side?
- LOGIN SIDEN -
<html>
<head>
<title>Login</title>
<style>
<!--
a{text-decoration:none}
//-->
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<form action="godkend.asp" method="post" name="login">
<p> </p>
<table border="0" width="345" cellspacing="0" cellpadding="0">
<tr>
<td width="98">
<img border="0" src="gfx/brugernavn.bmp">
</td>
<td width="243"><font face="Tahoma" size="2"><b>
<input type="text" name="brugernavn" value="<%=request.cookies("Brugere")("brugernavn")%>" size="20" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000">
</b></font>
</td>
</tr>
<tr>
<td width="98">
<img border="0" src="gfx/kodeord.bmp">
</td>
<td width="243"><font face="Tahoma" size="2"><b>
<input type="password" name="kode" value="<%=request.cookies("Brugere")("password")%>" size="20" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000">
</b></font>
</td>
</tr>
<tr>
<td width="98">
<img border="0" src="gfx/gemlogin.bmp">
</td>
<td width="243"><font face="Tahoma" size="2"><b>
<INPUT TYPE=CHECKBOX CHECKED name="save"> </b></font>
</td>
</tr>
</table><br>
<font face="Tahoma" size="2"><b>
<input type="image" src="gfx/login.bmp" style="background-color: #FFFFFF; font-family: tahoma; font-size: 10pt; border: 1 solid #FFFFFF" Log name="login">
</b></font>
</form>
</body>
</html>
- GODKENDSIDEN -
<html>
<head>
<title>Godkender login</title>
</head>
<body>
<%
Dim fejl, username, password
fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
kode = Trim(Replace(Request.Form("kode"), "'", "''"))
If brugernavn = "" Then
response.redirect "needuser_login.asp"
fejl = true
End If
If kode = "" Then
response.redirect "needpass_login.asp"
fejl = true
End If
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("community.mdb")
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and kode = '" & kode & "'"
Set rs = Conn.Execute(strSQL)
If Not rs.eof Then
Response.Write "<p><b> </b>"
Response.Write "<p> </p>"
Session("login") = true
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Response.Write "<script>parent.location.replace('http://www.frip.dk/kedde/test/user_interface.htm');</script>"
If request.form("save") = "on" then
Response.Cookies("Brugere")("brugernavn") = session("brugernavn")
Response.Cookies("Brugere")("kode") = kode
Response.Cookies("Brugere").expires = Date+365
Else
Response.Cookies("Brugere").expires = Date-1000
End If
Else
response.redirect "wrong_login.asp"
End If
Conn.Close
Set Conn = Nothing
End If
%>
</body>
</html>
