hjælp...
Jeg får følgende fejl:Response object error \'ASP 0156 : 80004005\'
Header Error
/moe/Overlund/retindlaeg.asp, line 113
The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.
Min side virkede fint på min personal webserver, men når den kommer på nettet virker den ikke, er der nogen der kan svare mig på hvordan jeg får min side til at virke. Herunder er koden:
<%Response.Expires = 0%>
<% lcid = 1030 %>
<!--#include file=\"smileys.asp\"-->
<%
If Not Session(\"Adgang\") = \"Godkendt\" Then
Response.Redirect(\"loginOverlund.asp?valg=forbudt\")
End If
%>
<html>
<head>
<title>Ret indlæg</title>
<style type=\"text/css\">
<!--
a { text-decoration: none; color: #0A246A}
a:hover { color: #0A246A; text-decoration: underline}
-->
</style>
<!--- Menu start---------------------------------------------------------------------->
<!--#include file=\"retmenu.inc\"-->
<!--- Menu slut---------------------------------------------------------------------->
<br><br>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../database/bruger.mdb\")
SQLstmt = \"SELECT * FROM persondata WHERE id = \" & session(\"usrID\") & \";\"
Conn.Execute (SQLstmt)
Set Ps = conn.Execute(SQLstmt)
%>
<center>
<table border=\"0\" width=\"500\" bgcolor=\"#FFFFFF\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1px solid #000000; ; border-collapse:collapse\" bordercolor=\"#111111\">
<tr>
<td valign=\"middle\" bgcolor=\"#A6CAF0\" width=\"500\" colspan=\"2\" height=\"20\"><b><font face=\"Arial\" size=\"2\" color=\"#0A246A\">Historiske data om, <%=ps(\"Name\")%></font></b></td>
</tr>
</table>
</center>
<% mode=request(\"mode\")
\'--- Nyheder Opret ----------------------------------------------------------------------------------------------
if mode=\"opret\" then %>
<center>
<table width=\"500\" border=\"0\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<tr>
<td bgcolor=\"#FFFFFF\" width=\"500\" align=\"center\"><strong>Skriv et indlæg</strong></b></td>
</tr>
<td bgcolor=\"#FFFFFF\" colspan=\"2\" width=\"500\">
<center>
<strong>Her kan du se hvordan smiley hovederne du kan vælge ser ud</strong><br><br>
<img src=\"../billeder/stort_smil.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Stort Smil |
<img src=\"../billeder/smil.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Smil |
<img src=\"../billeder/sej.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Sej |
<img src=\"../billeder/godkender.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Godkender |
<img src=\"../billeder/afviser.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Afviser |
<img src=\"../billeder/ked.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Ked<br><br>
<img src=\"../billeder/shokeret.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Shokeret |
<img src=\"../billeder/skummelt.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Skummelt |
<img src=\"../billeder/vred.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"\"> Vred
</center>
</td>
</tr>
<td bgcolor=\"#FFFFFF\" width=\"500\" align=\"center\"><strong>Formen</strong></td>
</tr>
<td bgcolor=\"#6699CC\" colspan=\"2\" width=\"500\">
<form action=\"retindlaeg.asp?mode=opret\" method=\"post\">
<div align=\"center\">
<center>
<table Width=\"500\" border=\"0\" cellspacing=\"10\" cellpadding=\"0\" class=\"ContentStyle\" bgcolor=\"#FFFFFF\" style=\"border-collapse: collapse\" bordercolor=\"#111111\">
<tr>
<td align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\">
<%
\'Åbner connection til databasen
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../database/db.mdb\")
\'Hvis brugeren har submittet formularen
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Tjecker om felterne er udfyld
if (Request.Form(\"title\") <> \"\" AND Request.Form(\"nyhed\") <> \"\" AND Request.Form(\"smiley\") <> \"\") then
\'Tilføjer brugeren til databasen
Set rs = Server.CreateObject(\"ADODB.Recordset\")
strSQL = \"select * from nyheder\"
rs.Open strsql, conn, 1, 3
\'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs(\"title\") = Server.HTMLEncode(Request(\"title\"))
rs(\"nyhed\") = (Request(\"nyhed\"))
rs(\"smiley\") = Server.HTMLEncode(Request(\"smiley\"))
rs(\"dato\") = date()
rs(\"time\") = Time()
rs(\"Username\") =ps(\"id\")
rs.update
rs.Close
set rs = nothing
else
Response.Write(\"<strong><font color=\'red\'>Du mangler at udfylde felter!</font></strong>\")
end if
end if
<b>Response.Redirect (\"retindlaeg.asp\")</b>
%>
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\"><b>Title <font color=\"#336699\">*</font></b></td><td align=\"right\"><input name=\"title\" type=\"textbox\" class=\"InputTable\" size=\"40\"></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b>Indlæg <font color=\"#336699\">*</font></b><br><br><br><font color=\"#FF0000\">Der kan god bruges HTML taks i teksten</font></td>
<td align=\"right\" bgcolor=\"#FFFFFF\"><textarea cols=\"39\" rows=\"13\" name=\"nyhed\"></textarea></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\"><strong>Smiley <font color=\"#336699\">*</font></strong></td><td align=\"right\">
<select name=\"smiley\" class=\"InputTable\">
<option value=\"[:=)]\">Stort Smil</option>
<option value=\"[=)]\">Smil</option>
<option value=\"[;-)]\">Sej</option>
<option value=\"[:)]\">Godkender</option>
<option value=\"[:(]\">Afviser</option>
<option value=\"[;(]\">Ked</option>
<option value=\"[:o]\">Shokeret</option>
<option value=\"[:D:]\">Skummelt</option>
<option value=\"[v:]\">Vred</option>
</select>
</tr>
<tr>
<td align=\"left\" valign=\"top\">
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\"><input name=\"submit\" type=\"submit\" class=\"Button\" value=\"Opret Indlæg\"></td>
<td align=\"right\" bgcolor=\"#FFFFFF\"><input name=\"reset\" type=\"reset\" class=\"Button\" value=\"Slet og Start Forfra\"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</form>
</center>
<% \'--- Nyheder Ret ----------------------------------------------------------------------------------------------------
Elseif mode=\"ret\" then %>
<% strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../database/db.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open strDSN
sql =\"SELECT * FROM nyheder Where Id=\" & request(\"ID\") & \";\"
Set rs = Conn.Execute(sql)
%>
<center>
<table width=\"500\" border=\"0\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<tr>
<td bgcolor=\"#6699CC\" width=\"500\" align=\"center\"><strong>Rediger Info</strong></td>
</tr>
<td bgcolor=\"#6699CC\" colspan=\"2\">
<form action=\"retindlaeg.asp?mode=rettet&id=<%=rs(\"id\")%>\" method=\"post\">
<div align=\"center\">
<center>
<table width=\"500\" border=\"0\" cellspacing=\"10\" cellpadding=\"0\" class=\"ContentStyle\" bgcolor=\"#FFFFFF\" style=\"border-collapse: collapse\" bordercolor=\"#111111\">
<tr>
<td align=\"left\" valign=\"top\" width=\"173\" bgcolor=\"#FFFFFF\"><b>Title <font color=\"#336699\">*</font></b></td>
<td align=\"right\" width=\"322\"><input name=\"title\" type=\"textbox\" class=\"InputTable\" size=\"40\" value=\"<%=rs(\"title\")%>\"></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"173\" bgcolor=\"#FFFFFF\"><b>Indlæg <font color=\"#336699\">*</font></b><br><br><br><font color=\"#FF0000\">Der kan god bruges HTML taks i teksten</font></td>
<td align=\"right\" width=\"322\"><textarea cols=\"39\" rows=\"10\" name=\"nyhed\"><%=rs(\"nyhed\")%></textarea></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"173\"><b>Smiley <font color=\"#336699\">*</font></b></td>
<td align=\"right\" width=\"322\">
<select name=\"smiley\" class=\"InputTable\">
<% if rs(\"smiley\") = \"[:=)]\" then
response.write \"<option value=\"\"[:=)]\"\" SELECTED>Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
elseif rs(\"smiley\") = \"[=)]\" then
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\" SELECTED>Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
elseif rs(\"smiley\") = \"[;-)]\" then
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\" SELECTED>Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
elseif rs(\"smiley\") = \"[:)]\" then
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\" SELECTED>Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
elseif rs(\"smiley\") = \"[:(]\" then
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\" SELECTED>Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
elseif rs(\"smiley\") = \"[;(]\" then
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\" SELECTED>Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
elseif rs(\"smiley\") = \"[:o]\" then
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\" SELECTED>Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
elseif rs(\"smiley\") = \"[:D:]\" then
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\" SELECTED>Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\">Vred</option>\"
else
response.write \"<option value=\"\"[:=)]\"\">Stort Smil</option>\"
response.write \"<option value=\"\"[=)]\"\">Smil</option>\"
response.write \"<option value=\"\"[;-)]\"\">Sej</option>\"
response.write \"<option value=\"\"[:)]\"\">Godkender</option>\"
response.write \"<option value=\"\"[:(]\"\">Afviser</option>\"
response.write \"<option value=\"\"[;(]\"\">Ked</option>\"
response.write \"<option value=\"\"[:o]\"\">Shokeret</option>\"
response.write \"<option value=\"\"[:D:]\"\">Skummelt</option>\"
response.write \"<option value=\"\"[v:]\"\" SELECTED>Vred</option>\"
end if
%>
</select>
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"173\"><input name=\"submit\" type=\"submit\" class=\"Button\" value=\"Rediger indlæg\"></td>
<td align=\"right\" width=\"322\"><input name=\"reset\" type=\"reset\" class=\"Button\" value=\"Slet og Start Forfra\"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
<% \'--- Nyheds Rediger Ret -----------------------------------------------------------------------------------------------
Elseif mode=\"rettet\" then %>
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../database/db.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open strDSN
sql = \"UPDATE nyheder SET title = \'\" & request.form(\"title\") & \"\'\"
sql = sql & \", nyhed= \'\" & request.form(\"nyhed\") &\"\'\"
sql = sql & \", smiley= \'\" & request.form(\"smiley\") &\"\'\"
sql = sql & \"WHERE Id = \" & request(\"ID\") & \";\"
Set rs = Conn.Execute (sql)
Conn.Close
Response.Redirect (\"retindlaeg.asp\")
%>
<% \'--- Forsiden -------------------------------------------------------------------------------------------------------
else %>
<table align=\"center\" bgcolor=\"#000000\" width=\"500\" cellspacing=\"1\" cellpadding=\"2\">
<tr>
<td bgcolor=\"6699CC\" width=\"500\">
<center>
<a href=\"retindlaeg.asp?mode=opret\" onMouseOver=\"window.status=\'Opret et nyt indlæg\'; return true;\" onMouseOut=\"window.status=\'\'\">Opret nyt indlæg</a>
<strong>Indlæg</strong>
<a href=\"retindlaeg.asp?mode=opret\" onMouseOver=\"window.status=\'Opret et nyt indlæg\'; return true;\" onMouseOut=\"window.status=\'\'\">Opret nyt indlæg</a>
</center>
</td>
</tr>
</table>
<br>
<%
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"../database/db.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Her hiver vi indholdet af databasen ud
sql = \"SELECT * From nyheder WHERE username LIKE \'\" & session(\"UsrId\") & \"\'ORDER BY id DESC;\"
Set rs = Con.Execute(Sql)
%>
<table align=\"center\" width=\"500\" cellspacing=\"0\" cellpadding=\"0\" class=\"ContentStyle\">
<tr>
<td width=\"500\" valign=\"top\">
<table width=\"500\" border=\"0\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<% Do While Not rs.EOF %>
<tr>
<td bgcolor=\"#6699CC\" width=\"500\"><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"ContentStyle\" width=\"100%\">
<tr><td><%=rs(\"title\")%></td><td align=\"right\"><a href=\"retindlaeg.asp?mode=ret&id=<%=rs(\"id\")%>\" onMouseOver=\"window.status=\'Rediger indlæget\'; return true;\" onMouseOut=\"window.status=\'\'\">Rediger</a> /
<a href=\"slet.asp?id=<%=rs(\"id\")%>\" onMouseOver=\"window.status=\'Slet indlæget\'; return true;\" onMouseOut=\"window.status=\'\'\">Slet</a>
</td></td></table></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<tr>
</tr>
</table>
<br>
<% End if %>
</td>
</tr>
</table>
</center>
</body>
<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%></html>
