Jeg har et forum som fungerer fint. Det der er problemet er når svarene skal vises skal en lille mappe skifte fra en lukket mappe til åben mappe.
http://www.integra2ren.dk/ (...)Koden til denne side ser sådan ud:
<!--#include file=\"functions.inc\"-->
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
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\")
strDescription = rs(\"Description\")
End If
strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ID = \" & Request(\"Id\") & \") AND (OrgThread = True)\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intMessageID = rs(\"ID\")
strSubject = Server.HTMLEncode(rs(\"Subject\"))
strName = Server.HTMLEncode(rs(\"Name\"))
strEmail = Server.HTMLEncode(rs(\"Email\"))
dtmFormDate = rs(\"FormDate\")
dtmFormTime = rs(\"FormTime\")
strComment = Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\"<br>\")
End If
strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ReplyId = \" & Request(\"Id\") & \") AND (OrgThread = False) ORDER BY ID DESC\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strSvar = strSvar & \"<li><font face=Verdana size=1><strong><a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\" ><img src=images/folder_1.gif width=19 height=16 border=0></a> <em>(\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</em></strong></font></li>\"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
strSvar = strSvar & \"<br><font face=Verdana size=1>\" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\"<br>\") & \"</font><br> \"
End If
rs.MoveNext
Loop
End If
rs.Close
myConn.Close
Set myConn = Nothing
%>
<html>
<head>
<title>ASPForum [ Læs 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\" bgcolor=\"#ffffff\" height=\"176\">
<tr>
<td colspan=\"3\" bgcolor=\"#efefef\"><font face=\"Verdana\" size=\"2\"
color=\"#990000\"><strong>Forum: </strong><%=strForum%> - <%=strSubject%> </font></td>
</tr>
<tr>
<td valign=\"top\" colspan=\"2\">
<div align=\"center\"><font face=\"Verdana\" color=\"#990000\"
size=\"2\"><a href=\"default.asp\">[Indgang]</a>
<a href=\"forumthreads.asp?ForumId=<%=intForumID%>\">[Emner]</a></font>
</div><hr>
</td>
</tr>
<tr>
<td valign=\"top\" width=\"281\"><font face=\"Verdana\" color=\"#668097\" size=\"2\"><strong>Emne:</strong></font></td>
<td valign=\"top\" width=\"119\"><font face=\"Verdana\" color=\"#668097\" size=\"2\"><strong>Indlæg:</strong></font></td>
</tr>
<tr>
<td colspan=\"3\" height=\"113\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#ffffff\">
<tr>
<td width=\"250\" align=\"left\"><font face=\"Verdana\" size=\"1\" ><strong><%=strSubject%></strong></font></td>
<td width=\"150\" rowspan=\"2\" valign=\"top\" align=\"right\" >
<table width=\"120\" border=\"0\">
<tr>
<td><font face=\"Verdana\" size=\"1\"><%=dtmFormDate%>-<%=dtmFormTime%></font></td>
</tr>
<tr>
<td><font face=\"Verdana\" size=\"1\" ><%=strName%></font></td>
</tr>
<tr>
<td><font face=\"Verdana\" size=\"1\"><a href=\"mailto:<%=strEmail%>\"><img src=\"images\\brev.gif\" width=\"18\" height=\"11\" border=\"0\"></a></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=\"250\" valign=\"top\" height=\"57\" ><font face=\"Verdana\" size=\"1\"><%=strComment%><br>
<a href=\"forumpost.asp?ForumId=<%=intForumID%>&MessageId=<%=intMessageID%>\"><small><b>[Besvar]</b></small></a></font></td>
</tr>
<tr>
<td align=\"left\" colspan=\"2\">
<hr noshade size=\"1\" color=\"#000000\">
</td>
</tr>
<tr>
<td bgcolor=\"#efefef\" align=\"left\" colspan=\"2\"><font face=\"Verdana\" color=\"#990000\"><strong><small><%=strSvar%></small></strong></font></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
</body>
</html>
Som i kan se bliver svarene vist via strSvar = strSvar & \"........
Der i er linket der viser svaret under overskriften og her har jeg forsøgt at få den lille mappe byttet med den åbne. Men det virker ikke.
