<%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%>
|
|
|