<% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;" strSQL = "SELECT subject, name, spoawardnom, date, comment, ReplyId, forumid, id FROM Entries WHERE (spoawardnom IS NOT NULL)" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While Not (rs.EOF Or rs.BOF) strSpoawardnom = rs("spoawardnom") strSubject = rs("subject") strName = rs("name") strDate = rs("date") strComment = rs("comment") strReplyID = rs("ReplyId") strForumID = rs("forumid") strID = rs("id") If strReplyID = "0" Then strReplyID = strID End if strPrint = strPrint & "Det nominérede indlćg:
" strPrint = strPrint & "Skrevet af: " & strName & "
" strPrint = strPrint & "Skrevet d. " & strDate & "
" strPrint = strPrint & "Enme: " & strSubject & "
" strPrint = strPrint & "Indhold: " & strComment & "
" strPrint = strPrint & "Nominéringerne: " & strSpoawardnom & "

---

" strPrint = strPrint & "

" rs.MoveNext Loop End If myConn.Close Set myConn = Nothing If strPrint = "" Then strPrint = "Der er ikke nogen nominérede indlćg" End if %> <%=strPrint%>