<%
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,"
")
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 ASC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strSvar = strSvar & "| Re: " & strSubject & " (" & Server.HTMLEncode(rs("Name")) & ", " & rs("FormDate") & " " & rs("FormTime") & ")"
strSvar = strSvar & " |
" & Replace(Server.HTMLEncode(rs("Comment")),vbCrLf,"
") & "
|
"
rs.MoveNext
Loop
End If
rs.Close
myConn.Close
Set myConn = Nothing
%>
StolPaaOs.dk -> Forum [ Lęs besked ]
| Forum: <%=strForum%> |
| <%=strDescription%> |
|
| Emne: |
<%=strSubject%> |
| Navn: |
<%=strName%> |
| E-mail: |
<%=strEmail%> |
| Dato: |
<%=dtmFormDate%> <%=dtmFormTime%> |
| <%=strComment%> |
| Svar: |
|