Frågan#1
fett fel när ja ska logga in på min admin i mitt forum! (men bara när ja kör lokalt!)
:OO
här har vi fel messet:
Response object error 'ASP 0156 : 80004005'
Header Error
/silentworld/forum3/admin.asp, line 64
The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.
oh här är koden
<body onLoad="<%=mess%>">
<%'admin funkotion
Function FixaTecken(str)
FixaTecken = Replace(Trim(str),"'","''")
End function
db = Server.MapPath("db/forum.mdb") 'Sökvägen till databasen
Admin1 = "admin"
Admin2 = "xxxxxxx"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
If Request.QueryString("do") = "" Then%>
<table width="450" align="center">
<form name="loggain" method="post" action="admin.asp?do=check">
<tr>
<td colspan="2"><font size="2"><b>Admin:</b></font></td>
</tr>
<tr>
<td height="14" colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td><b>Adminnamn:</b></td>
<td><input type="text" name="admin1" size="15">
</tr>
<tr>
<td><b>Lösenord:</b></td>
<td><input type="password" name="admin2" size="15">
</tr>
<tr>
<td colspan="2" height="14"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="Logga in"></td>
</tr>
</form>
</table>
<%End If
If Request.QueryString("do") = "check" Then
If Request.Form("admin1") = Admin1 AND Request.Form("admin2") = Admin2 Then
login="ok"
Else
Response.Redirect "admin.asp?mess=fel"
End If
If login="ok" Then
Session("admin") = "ok"
Session.TimeOut = 40
Response.Redirect "admin.asp?do=inne"
End If
End If
If Request.QueryString("do") = "inne" Then%>
<table width="450" align="center">
<tr>
<td height="14"><font size="2"><b><a href="admin.asp?do=inne">Forumadmin:</a> </b></font></td>
<td height="14" align="right"><font size="2"><b><a href="admin.asp?do=logut">Logga ut</a> </b></font></td>
</tr>
<tr>
<td colspan="2"><img src="bilder/dot2.gif"></td>
</tr>
</table>
<%If Request.Querystring("action")= "" AND Session("admin") = "ok" Then%>
<table width="450" align="center">
<%Set RecSet = Server.CreateObject("ADODB.Recordset")
Const faps1 = 15
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
With RecSet
.CursorLocation = 3
.CacheSize = faps1
End With
SQL = "Select * From forum Order By datum desc"
RecSet.Open SQL, Conn
If RecSet.EOF Then%>
<tr>
<td height="14">Inga inlägg i forumet</td>
</tr>
</table>
<%Else%>
<tr bgcolor="<%=Color%>" width="14">
<td width="150"><b>Rubrik:</b></td>
<td width="95"><b>Datum:</b></td>
<td width="90"><b>Namn:</b></td>
<td align="right" width="50"> </td>
</tr>
<tr>
<td colspan="4"><img src="bilder/dot2.gif"></td>
</tr>
<%With RecSet
.MoveFirst
.PageSize = faps1
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize%>
<tr>
<td width="150"><%If RecSet("svarsid") = 0 Then%><%Else%> - <%End If%><b><%If Len(RecSet("rubrik")) > 20 Then%><%=Left(RecSet("rubrik"),20)%>...<%Else%><%=RecSet("rubrik")%><%End If%></td>
<td width="95"><%=FormatDateTime(RecSet("Datum"),2)%></b></td>
<td width="90"><%=RecSet("namn")%></b></td>
<td align="right" width="50"><a href="admin.asp?do=inne&action=change&id=<%=RecSet("id")%>"><img src="bilder/update.gif" border="0" alt="Ändra"></a> <a href="javascript:del('admin.asp?do=inne&action=delete&id=<%=RecSet("id")%>&uid=<%=RecSet("svarsid")%>')"><img src="bilder/trash.gif" border="0" alt="Ta bort"></a></td>
</tr>
<%
Count = Count + 1
RecSet.MoveNext
Loop
If Sidor > 1 Then%>
<tr>
<td colspan="4"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td colspan="4"><b>
<%If Sidor <> 1 Then
For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><font color="#ff0000"><%=Sid%></font><%Else%> <a href="admin.asp?do=inne&sida=<%=Sid%>"><%=Sid%></a> <%End If%>
<%Next%></b></font>
</td>
</tr>
<%End If
End If%>
<%If Session("mess") <> "" Then%>
<tr>
<td colspan="4"><img src="bilder/dot2.gif"></td>
</tr>
<tr>
<td colspan="4" align="center"><b>
<%
Response.Write Session("mess")
Session("mess") = ""
%></b>
</td>
</tr>
<%End If%>
</table>
<%
RecSet.Close
Set RecSet = Nothing
End If
End If
If Request.Querystring("action")= "change" AND Session("admin") = "ok" Then
Set RecSet = Conn.Execute("Select * From forum Where id="& Request.Querystring("id"))%>
<table width="450" align="center">
<form method="post" action="admin.asp?do=inne&action=andrat&id=<%=Request.Querystring("id")%>" name="change">
<%If RecSet("email") <> "" Then%>
<tr>
<td>Postat av: <a href="mailto:<%=RecSet("email")%>"><b><%=RecSet("namn")%></b></a> | <%=RecSet("datum")%></td>
</tr>
<%Else%>
<tr>
<td>Postat av: <b><%=RecSet("namn")%></b> | <%=RecSet("datum")%></td>
</tr>
<%End If%>
<tr>
<td><b>Rubrik:</b><br><input type="text" name="rubrik" size="55" value="<%=RecSet("rubrik")%>"></td>
</tr>
<tr>
<td><b>Inlägg:</b><br><textarea cols="75" rows="10" name="inlagg" size="45"><%=RecSet("inlagg")%></textarea>
</td>
</tr>
<tr>
<td>
<input type="Submit" name="andra" value="Ändra">
</td>
</tr>
</form>
</table>
<%RecSet.Close
Set RecSet = Nothing
End If
If Request.Querystring("action") = "andrat" AND Session("admin") = "ok" Then
Rubrik = Request.Form("rubrik")
Inlagg = FixaTecken(Request.Form("inlagg"))
Conn.execute("Update forum Set rubrik='" & Rubrik & "', inlagg='" & Inlagg & "' Where id = "& Request.Querystring("id"))
Session("mess") = "Inlägget är ändrat!"
Response.Redirect "admin.asp?do=inne"
End If
If Request.Querystring("action") = "delete" AND Session("admin") = "ok" Then
Set RS = Conn.Execute("Select * From forum Where id="& Request.Querystring("id"))
If RS("svarsid") = 0 Then
Conn.Execute("Delete * From forum Where id=" & Request.Querystring("id"))
Conn.Execute("Delete * From forum Where svarsid="& Request.Querystring("id"))
Else
Conn.Execute("Delete * From forum Where id=" & Request.Querystring("id"))
Conn.Execute("Update forum Set Svar=Svar-1 Where id ="& Request.Querystring("uid"))
End If
Session("mess") = "Inlägget är borttaget och alla svar om du raderat ett huvudinlägg!"
Response.Redirect "admin.asp?do=inne"
End If%>
<table width="450" align="center">
<tr>
<td colspan="2" height="14"><img src="bilder/dot2.gif"></td>
</tr>
</table>
<%End If
If Request.Querystring("do") = "logut" Then
Session.Abandon
Response.Redirect "index.asp"
End If
Conn.Close
Set Conn = Nothing%>
</body>
kan nån komma på problemet??
//Webmaster på silentworld :q
