forum virker ikke !!!
Jeg har hentet et færdigt asp forum på www.activeserver..... men det virker ikke når jeg oploader det til min side hos viborgnet som understøtter asp samt fp.ext.jeg laver et bibliotek på serveren og dumper alle filerne heri.samt et link fra forsiden til filen default.asp.
filen forumpost.asp ser således ud:
<!--#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=\"#999966\" text=\"#000000\" link=\"#000000\" vlink=\"#000000\" alink=\"#FFFFFF\"
topmargin=\"2\" leftmargin=\"0\" marginwidth=\"0\" marginheight=\"2\">
<div align=\"center\"><center>
<table border=\"0\" width=\"600\" cellspacing=\"1\" cellpadding=\"0\" bgcolor=\"#CCCC99\">
<tr>
<td width=\"100%\" bgcolor=\"#000000\"><strong><font face=\"Verdana\" color=\"#CCCC99\"><small>Forum:
<% If Posted = 0 Then Response.Write strForum%> </small></font></strong></td>
</tr>
<tr>
<td width=\"100%\"><% If Posted = 0 Then %>
<p align=\"left\"><font face=\"Verdana\"><b><small><a href=\"default.asp\">Til
oversigt</a></small></b></font> <%End If%> </td>
</tr>
<tr>
<td width=\"100%\"><%
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\" width=\"100%\"
cellspacing=\"1\" cellpadding=\"0\">
<tr>
<td align=\"left\" bgcolor=\"#BBBB88\"><small><font face=\"Verdana\">Navn:</font></small></td>
<td align=\"left\" bgcolor=\"#BBBB88\"><font face=\"Verdana\"><small><input type=\"text\"
name=\"name\" size=\"20\"></small></font></td>
</tr>
<tr>
<td align=\"left\" bgcolor=\"#BBBB88\"><small><font face=\"Verdana\">E-mail:</font></small></td>
<td align=\"left\" bgcolor=\"#BBBB88\"><small><font face=\"Verdana\"><input type=\"text\"
name=\"email\" size=\"20\"></font></small></td>
</tr>
<tr>
<td align=\"left\" bgcolor=\"#BBBB88\"><small><font face=\"Verdana\">Emne:</font></small></td>
<td align=\"left\" bgcolor=\"#BBBB88\"><small><font face=\"Verdana\"><input type=\"text\"
name=\"Subject\" size=\"30\"></font></small></td>
</tr>
<tr>
<td valign=\"top\" align=\"left\" bgcolor=\"#BBBB88\"><font face=\"Verdana\"><small>Besked:</small></font></td>
<td align=\"left\" bgcolor=\"#BBBB88\"><textarea rows=\"8\" name=\"Comment\" cols=\"50\"></textarea></td>
</tr>
</table>
<p><input type=\"submit\" value=\"Send\" name=\"Action\"></p>
</form>
<% Else %>
<p align=\"center\"><font face=\"Verdana\"><small> </p>
</small></font><p align=\"center\"><font face=\"Verdana\"><small>Dit indlæg er nu optaget i
forumet</small></font></p>
<p align=\"center\"><font face=\"Verdana\"><a href=\"default.asp\"><small>Til oversigt</small></a></p>
</font><p><% End If %> </td>
</tr>
</table>
</center></div>
</body>
</html>
