" rsDebatt.MoveNext Loop Else Response.Write "

Inga inlägg finns inlagda!

" End If CloseDB(rsDebatt) %>
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 "" Response.Write "" If Not Len(rsDebatt("Epost")) = 0 Then Response.Write "" End If Response.Write "" Response.Write "" Response.Write "
" & SvensktDatum(rsDebatt("Datum")) & "
" & rsDebatt("Namn") & "
" & rsDebatt("Epost") & "
" & rsDebatt("Text") & "
 
" Response.Write "