HJÆLP!!
Hey der!!her et problem med et script, men kan ikke finde fejlen... eksperten er vel svaret :)
Her er koden , og siden kan ses på http://www.zerozone.dk/cs/login/login.asp
Håber i kan hjælpe
---------------------Code start---------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("BangDesign.mdb")
Conn.Open DSN
strSQL = "Select * from jwnews"
set rscount = conn.execute("select count(id) as antal from jwnews")
antal = rscount("antal")
set rscount = nothing
%>
<%
mode = Request("mode")
Response.Buffer = True
%>
<html>
<head>
<title>jwnews 1.0 ASP</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<p>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF" valign="top" colspan="2">
<div align="center"> <br>
<table border="0" width="488" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td bgcolor="#f7f7f7" valign="top" class="menuoverskrift" colspan="2">
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr>
<td>
<% if mode = "" then %>
<font size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>Login</b></font><br>
<font size=2 color=#0099FF><%=Request.Querystring("error")%></font><br>
<form method=post action=login.asp?mode=login>
Brugernavn: <input type=text name=brugernavn><br>
Password:
<input type=text name=password>
<input type=submit value=Login>
</form>
<% end if %>
<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("BangDesign.mdb")
strSQL = "SELECT * FROM Brugere where Brugernavn = '" & Request.form("brugernavn") & "'"
Set rs = myConn.Execute(strSQL)
If rs.BOF Or rs.EOF Then
Response.Redirect("login.asp?error=Ingen bruger med det navn!")
end if
if rs("Password") = Request.form("password") then
session("Brugernavn") = rs("brugernavn")
Response.Redirect("oversigt.asp")
else
Response.Redirect("login.asp?error=Du har indtastet forkert password!")
end if
myConn.Close
Set myConn = Nothing
end if %>
<p> </p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
</div>
</td>
</tr>
</table>
</body>
---------------------code slut---------------------
