Header-fejl
Jeg får denne fejlResponse-objekt fejl 'ASP 0156 : 80004005'
Headerfejl
/nyreservation/login.asp, linje 91
HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.
Jeg er klar over, at fejlen ligger omkring min Response.redirect, men jeg har før brugt asp-delen på en anden side uden problemer.
Dette her giver fejlen!
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>nn</title>
<LINK REL="StyleSheet"
HREF="style.css"
TYPE="text/css">
</head>
<body topmargin="0" leftmargin="0">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" bgcolor="#98C4B8" height="45"><img border="0" src="images/banner.jpg" width="398" height="45">
</td>
<td width="50%" bgcolor="#98C4B8" height="45"><font face="Verdana" size="4">
<p align="center">
<% Response.write WeekdayName(DatePart("W", Date, 1))%>
<% Response.Write "den " & FormatDateTime(Now, vbLongDate)%>
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="100%" background="images/sortstreg3.gif"> </td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="20%" bgcolor="#98C4B8">
<p align="center"><font face="Verdana" size="1">Referater</font></td>
<td width="20%" bgcolor="#98C4B8">
<p align="center"><font face="Verdana" size="1">Brugervejledninger</font></td>
<td width="20%" bgcolor="#98C4B8">
<p align="center"><font face="Verdana" size="1">Admin</font></td>
<td width="20%" bgcolor="#98C4B8"> </td>
<td width="20%" bgcolor="#98C4B8"> </td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="2%"></td>
<td width="96%" background="images/sortstreg1.gif"> </td>
<td width="2%"></td>
</tr>
</table>
<%
'asp herfra------------------------
' bruges til at tjekke om brugeren finde i db ved login
' Sender resultaterne fra tilføj links til databasen
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/nyreservation/xxx.mdb")
Conn.Open DSN
strUsername = Trim(Replace(Request.Form("username"),"'",""))
strPassword = Trim(Replace(Request.Form("password"),"'",""))
strSQL ="SELECT * FROM login WHERE UCase(username) = '" & UCase(strUsername) & "' AND UCase(Password) = '" & UCase(strPassword) & "'"
set rs = Conn.execute(strSQL)
if not rs.EOF then
response.write rs("username")
end if
'først tjekke om brugeren findes ved at tjekke om recordsetet er tomt.
if not rs.EOF then
if LCase(rs("username")) = LCase(strUsername) then
'LOGIN OK
session("brugernavn") = LCase(strUsername)
session("brugerID") = rs("Id")
Response.Redirect("meddelelse_form.asp")
else
'INGEN BRUGER FUNDET
'Eller en blev fundet men databasen bruger navn passer ikke med det
'indtastede brugernavn
end if
else
'brugeren ikke fundet lave det som skal ske hvis brugeren ikke er fundet her
response.write "<p><font color=black face=verdana size=3><b>Forkert brugernavn eller password.<br> Prøv igen.</b></p><br>"
end if
Conn.Close
Set Conn = Nothing
%>
<table border="0" width="100%">
<tr>
<td width="2%"></td>
<td width="96%" background="images/sortstreg1.gif"> </td>
<td width="2%"></td>
</tr>
<tr>
<td width="100%" colspan="3">
<p align="center"><font face="Verdana" size="1">© 2004</font></td>
</tr>
</table>
<p align="center"> </p>
</body>
</html>
