<a href=\"forumthreads.asp?ForumId=8\">
Jeg sidder og arbejder med et forum og har næsten fået det til at fungerer som jeg gerne vil have. Jeg mangler kun en sidste ting.
Følgende kode er den side man udfylder og brugerens indlæg bliver smidt ind i databasen. I toppen af siden er der et link der fører tilbage til en side med samme \"forumID\" linket ser sådan ud:
<a href=\"forumthreads.asp?ForumId=<%=intForumID%>\">[Emner]</a>
Problemet er så at jeg længere nede på siden efter at man har inputtet sit indlæg og trykket på knappen kommer til en sider der takker for indlægget. Her er også et link og det ville jeg gerne have til at pege på det samme sted som det forrige link. Kan dette lade sig gøre??
Forumet kan ses på
http://www.integra2ren.dk/ (...) Prøv og klik igenner og se problemet efter at man har udfyldt og indsendt sit indlæg. Hvis man klikker på [her] kommer man helt ud til default siden. Jeg vil gerne sende brugeren til oversigetn over indlæg i det respektive forum.
Koden er som flg:
<!--#include file=\"functions.inc\"-->
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Posted = 0
If Len(Trim(Request.Form(\"Subject\"))) = 0 AND Len(Trim(Request.Form(\"Comment\"))) = 0 Then
strSQL = \"SELECT * FROM Forums WHERE (ID = \" & Request(\"ForumID\") & \")\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intForumID = rs(\"ID\")
strForum = rs(\"Forum\")
End If
Else
strSQL = \"INSERT INTO Entries\"
If Len(Trim(Request.Form(\"MessageId\"))) = 0 Then
strSQL = strSQL & \" (Name, Email, Subject, Comment, ForumId, Orgthread)\"
strSQL = strSQL & \" VALUES(\'\" & DBFix(Trim(Request.Form(\"Name\"))) & \"\', \'\" & DBFix(Trim(Request.Form(\"Email\"))) & \"\', \'\" & DBFix(Trim(Request.Form(\"Subject\"))) & \"\', \'\" & DBFix(Trim(Request.Form(\"Comment\"))) & \"\', \'\" & DBFix(Trim(Request(\"ForumId\"))) & \"\', TRUE);\"
Else
tempSQL = \"SELECT Subject FROM Entries WHERE (Id = \" & Request(\"MessageId\") & \")\"
Set tempRS = myConn.Execute(tempSQL)
strSQL = strSQL & \" (Name, Email, Comment, ForumId, ReplyId, Subject)\"
strSQL = strSQL & \" VALUES(\'\" & DBFix(Trim(Request.Form(\"Name\"))) & \"\', \'\" & DBFix(Trim(Request.Form(\"Email\"))) & \"\', \'\" & DBFix(Trim(Request.Form(\"Comment\"))) & \"\', \'\" & DBFix(Trim(Request(\"ForumId\"))) & \"\',\'\" & DBFix(Trim(Request(\"MessageId\"))) & \"\',\'\" & DBFix(Trim(tempRS(\"Subject\"))) & \"\' );\"
tempRS.Close
End If
myConn.Execute(strSQL)
Posted = 1
End If
myConn.Close
%>
<html>
<head>
<title>ASPForum [ Post en besked ]</title>
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#000000\" vlink=\"#000000\" alink=\"#FFFFFF\"
topmargin=\"2\" leftmargin=\"0\" marginwidth=\"0\" marginheight=\"2\">
<div align=\"center\"><center>
<table border=\"0\" width=\"400\" cellspacing=\"0\" cellpadding=\"0\">
<tr bgcolor=\"#efefef\">
<td><font face=\"Verdana\" color=\"#990000\" size=\"2\"><strong>Forum:</strong>
<% If Posted = 0 Then Response.Write strForum%> - Tilføj indlæg</font></td>
</tr>
<tr align=\"center\">
<td height=\"13\"><% If Posted = 0 Then %> <font face=\"Verdana\" size=\"2\"><a href=\"default.asp\">[Indgang]</a>
<a href=\"forumthreads.asp?ForumId=<%=intForumID%>\">[Emner]</a></font>
<%End If%><hr> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><%
If Len(Trim(Request.Form(\"Subject\"))) = 0 AND Len(Trim(Request.Form(\"Comment\"))) = 0 Then
%>
<form method=\"POST\" action=\"forumpost.asp\">
<input type=\"hidden\" name=\"ForumID\" value=\"<%=intForumID%>\">
<input type=\"hidden\"
name=\"MessageID\" value=\"<%=Trim(Request(\"MessageID\"))%>\">
<table border=\"0\" cellspacing=\"1\" cellpadding=\"0\">
<tr>
<td align=\"left\" ><font size=\"2\"><small><font face=\"Verdana\">Navn:</font></small></font></td>
<td align=\"left\" ><font face=\"Verdana\"><small>
<input type=\"text\"
name=\"name\" size=\"20\">
</small></font></td>
</tr>
<tr>
<td align=\"left\" ><font size=\"2\"><small><font face=\"Verdana\">E-mail:</font></small></font></td>
<td align=\"left\" ><small><font face=\"Verdana\">
<input type=\"text\"
name=\"email\" size=\"20\">
</font></small></td>
</tr>
<tr>
<td align=\"left\" ><font size=\"2\"><small><font face=\"Verdana\">Emne:</font></small></font></td>
<td align=\"left\" ><small><font face=\"Verdana\">
<input type=\"text\"
name=\"Subject\" size=\"30\">
</font></small></td>
</tr>
<tr>
<td valign=\"top\" align=\"left\" ><font face=\"Verdana\" size=\"2\"><small>Besked:</small></font></td>
<td align=\"left\" >
<textarea rows=\"8\" name=\"Comment\" cols=\"30\"></textarea>
</td>
</tr>
<tr>
<td valign=\"top\" align=\"left\" > </td>
<td >
<input type=\"submit\" value=\"Tilføj indlæg\" name=\"Action\">
</td>
</tr>
</table>
<p> </p>
</form>
<% Else %>
<p align=\"center\"><font face=\"Verdana\" size=\"2\"><small>Tak for dit indlæg<br>
Du kan se oversigten over indlæg
----------her kommer problemet------------
<a href=\"forumthreads.asp?ForumId=8\">[her]/a></small></font></p>
<p align=\"center\"></p>
<p><% End If %>
</td>
</tr>
</table>
</center></div>
</body>
</html>
