| Debatt |
| Skriv ett inlägg (inloggning krävs) |
|
<%
Dim strDebatt
Dim rsDebatt
strDebatt = "SELECT * FROM `tblDebatt` ORDER BY Datum DESC"
Set rsDebatt = malmhaugRS(strDebatt)
If Not rsDebatt.EOF And Not rsDebatt.BOF Then
Do While Not rsDebatt.EOF
Response.Write " |
"
Response.Write ""
Response.Write "| " & SvensktDatum(rsDebatt("Datum")) & " | "
Response.Write "| " & rsDebatt("Namn") & " | "
If Not Len(rsDebatt("Epost")) = 0 Then
Response.Write "| " & rsDebatt("Epost") & " | "
End If
Response.Write "| " & rsDebatt("Text") & " | "
Response.Write "| | "
Response.Write " "
Response.Write " |
"
rsDebatt.MoveNext
Loop
Else
Response.Write "Inga inlägg finns inlagda!
"
End If
CloseDB(rsDebatt)
%>