<% closeConn() OpenConn( "forum.mdb" ) Dim strSQL, rs set rs = server.createobject("ADODB.recordset") strSQL = "SELECT * FROM Fora WHERE (ID = " & Request("ForumID") & ")" rs.Open strSQL,conn Dim intForumID Dim strForumNavn Dim strForumBeskrivelse If Not (rs.BOF Or rs.EOF) Then intForumID = rs("ID") strForumNavn = rs("ForumNavn") strForumBeskrivelse = rs("ForumBeskrivelse") End If rs.close strSQL = "SELECT *, Format$([DagsDato],'dd/mm/yyyy') AS FormDate, Format$([DagsDato],'hh:mm') AS FormTime FROM Data WHERE (ID = " & Request("ID") & ") AND (ForumSvar = True) ORDER BY ID DESC" 'Set rs = myConn.Execute(strSQL) rs.Open strSQL,conn ' -> DETTE ER VARIABLERNE FRA DATABASEN. Dim intKommentarID Dim strNavn Dim strEmail Dim strEmne Dim strKommentar Dim dtmFormDate Dim dtmFormTime If Not (rs.BOF Or rs.EOF) Then intKommentarID = rs("ID") strNavn = rs("Navn") strEmail = rs("Email") strEmne = rs("Emne") strKommentar = rs("Kommentar") dtmFormDate = rs("FormDate") dtmFormTime = rs("FormTime") End If rs.close strSQL = "SELECT *, Format$([DagsDato],'dd/mm/yyyy') AS FormDate, Format$([DagsDato],'hh:mm') AS FormTime FROM Data WHERE (SvarID = " & Request("ID") & ") AND (ForumSvar = False) ORDER BY ID DESC" rs.Open strSQL,conn %>
Emne: <%=strForumNavn%>
Beskrivelse:<%=strForumBeskrivelse%>
Indlæg af: <%if strEmail<>"" then%><%end if%><%=strNavn%><%if strEmail<>"" then%><%end if%>, <%=dtmFormDate%> kl. <%=dtmFormTime%>
<%=strEmne%>
<% If Not isNull(strKommentar) Then ' strKommentar = Replace(strKommentar, " ", "       ", 1, -1, 1) ' strKommentar = Replace(strKommentar, " ", "      ", 1, -1, 1) ' strKommentar = Replace(strKommentar, " ", "     ", 1, -1, 1) ' strKommentar = Replace(strKommentar, " ", "    ", 1, -1, 1) ' strKommentar = Replace(strKommentar, " ", "   ", 1, -1, 1) ' strKommentar = Replace(strKommentar, " ", "  ", 1, -1, 1) strKommentar = Replace(strKommentar, vbCrLf, "
" & vbCrLf, 1, -1, 1) ' strKommentar = Replace(strKommentar, ">", ">") ' strKommentar = Replace(strKommentar, "<", "<") strKommentar = Replace(strKommentar, """, chr(32)) strKommentar = Replace(strKommentar, ":-)", "") strKommentar = Replace(strKommentar, ":-D", "") strKommentar = Replace(strKommentar, "8-)", "") strKommentar = Replace(strKommentar, ":-o", "") strKommentar = Replace(strKommentar, ":)", "") strKommentar = Replace(strKommentar, ":D", "") strKommentar = Replace(strKommentar, "8)", "") strKommentar = Replace(strKommentar, ":o", "") Response.Write strKommentar End If %>

Besvar indlægget
<% Dim strErr strErr = "Ingen svar på dette indlæg!" If rs.EOF Then strErr = ""& strErr &"" %>

<%=strErr%> 

<% Else If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF %>
<%if rs("Email") <> "" then%>"><%end if%><%=rs("Navn")%><%if rs("Email") <> "" then%><%end if%>, <%=rs("FormDate")%> kl. <%=rs("FormTime")%>
<%=rs("Emne")%>
<% strKommentar = rs("Kommentar") If Not isNull(strKommentar) Then 'strKommentar = Replace(strKommentar, " ", "       ", 1, -1, 1) 'strKommentar = Replace(strKommentar, " ", "      ", 1, -1, 1) 'strKommentar = Replace(strKommentar, " ", "     ", 1, -1, 1) 'strKommentar = Replace(strKommentar, " ", "    ", 1, -1, 1) 'strKommentar = Replace(strKommentar, " ", "   ", 1, -1, 1) 'strKommentar = Replace(strKommentar, " ", "  ", 1, -1, 1) strKommentar = Replace(strKommentar, vbCrLf, "
" & vbCrLf, 1, -1, 1) 'strKommentar = Replace(strKommentar, ">", ">") 'strKommentar = Replace(strKommentar, "<", "<") strKommentar = Replace(strKommentar, """, chr(32)) strKommentar = Replace(strKommentar, ":-)", "") strKommentar = Replace(strKommentar, ":-D", "") strKommentar = Replace(strKommentar, "8-)", "") strKommentar = Replace(strKommentar, ":-o", "") strKommentar = Replace(strKommentar, ":)", "") strKommentar = Replace(strKommentar, ":D", "") strKommentar = Replace(strKommentar, "8)", "") strKommentar = Replace(strKommentar, ":o", "") Response.Write strKommentar End If %>
 
<% rs.MoveNext Loop End If End If rs.Close Set rs = Nothing closeConn() %>