<%Dim objRs
Set objRs = getRecordset("qry_Forum_FK_Forum_Id", Array("FK_Forum_Id"), adCmdStoredProc)
If Not objRs.EOF Then
%>
<--
Back |
|
DATE |
<%=objRs.Fields.Item("Rubrik").Value%>
">
|
<%bBGColor = True
strBGColor = " bgcolor='#F7F7E8'"
Do Until objRs.EOF%>
>
<%=objRs.Fields.Item("Datum").Value%> |
<%=objRs.Fields.Item("Namn").Value%> <%=Replace(objRs.Fields.Item("Text").Value & "", vbCrLf, " ")%> |
<%bBGColor = Not bBGColor
objRs.MoveNext
Loop
End If
objRs.Close
Set objRs = Nothing%>
|
|
|