Hjælp til login script
Jeg har en asp admin side som jeg ønsker login til. Jeg har en database hvori der er en tabel kaldet BrugerDB. Heri står det brugernavn og adgangskode der kan bruges til login. Jeg har forsøgt at kopiere scriptet over fra noget jeg har brugt tidligere (som en bekendt har lavet for mig). Her følger hele siden med login. Meningen er så at man skal stilles videre til adm.asp ved korrekt login, men det virker ikke. Den melder ingen fejl udover siden kan ikke vises. Kan nogen se fejl i følgende?:<!-- #INCLUDE FILE="adovbs.inc" -->
<%
IF Request("login") = "bad" THEN
Response.Write "<center><font face=""ariel"" size=""2"">Adgang nægtet, prøv igen.</font></center>"
END IF
IF Request("login") = "check" THEN
Dim Path, FinalPath, DSN
path = split(StrReverse(server.mappath(Request.ServerVariables("PATH_INFO"))),"\",2)
finalpath = StrReverse(path(1))
News = "DBQ=" & finalpath &"\..\Fpdb\database.mdb;DefaultDir=" & finalpath & "\..\Fpdb ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
'Connect to database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.CursorLocation = adUseClient
Conn.Open News
'Create recordset and retrieve information
SQL = "SELECT * FROM BrugerDB WHERE username = '" & Request.Form("name") & "'"
Set rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open SQL, Conn, adOpenStatic, adLockReadOnly
IF rs("password") = Request.Form("pass") THEN
Response.Cookies("SavedLogin")("Username") = rs("username")
Response.Cookies("SavedLogin")("pass") = rs("password")
Response.Cookies("SavedLogin")("Status") = rs("Status")
Response.Cookies("SavedLogin")("email") = rs("email")
Response.Cookies("SavedLogin")("tid") = now
Response.Cookies("SavedLogin").expires = date + 30
Session("login") = "true"
Response.Redirect "adm.asp"
ELSE
Response.Redirect "login.asp?login=bad"
END IF
END IF
%>
<title>admin - login</title>
<body>
<p>
<p align="center">
<p align="center">
<b><font face="Arial" size="4" color="#FFFFFF">Køb & Salg administration</font></b><form method="POST" action="login.asp?login=check">
<div align="center">
<table border="1" width="300" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#000000" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td width="50%">
<p align="right"><font face="Arial" size="2"><b>Username:</b></font></td>
<center>
<td width="50%"><input type="text" name="name" value="<%=Request.Cookies("SavedLogin")("Username")%>" size="20"></td>
</tr>
</center>
<tr>
<td width="50%">
<p align="right"><b><font size="2" face="Arial">Password:</font></b></td>
<center>
<td width="50%"><input type="password" name="pass" value="<%=Request.Cookies("SavedLogin")("pass")%>" size="20"></td>
</tr>
</table>
</center>
</div>
<%
IF Request.Cookies("SavedLogin")("tid") = "" THEN
ELSE
%>
<p align="center"><font face="Arial" size="1">Du var sidst logget på <%=Request.Cookies("SavedLogin")("tid")%></font></p>
<%END IF%>
