<% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM andmeld WHERE (ID = " & Request("id") & ")" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF strSQL = "SELECT *, DATE_FORMAT(date,'%d-%m-%Y') AS FormDate, TIME_FORMAT(date,'%H:%i') AS FormTime FROM andmeld WHERE (id =" & rs("id") & ")" Set formatDate = myConn.Execute(strSQL) dtmFormatDate = formatDate("FormDate") strSQL = "SELECT Count(*) AS ItemCount FROM andmeld Where (id = " & rs("id") & ")" Set recordCount = myConn.Execute(strSQL) strTITLE = rs("titel") strHTML = strHTML & "" & dtmFormatDate & "" & strTITLE & " (" & rs("person") & ")Karakter : " & rs("karakter") & "/6


StolPaaOs.dk er ikke ansvarlige for ulykker der måtte opstå i forbindelse med at have læst denne artikel." ' strHTML = strHTML & "" strHTML2 = strHTML2 & "" & rs("indledning") & "

" & rs("indhold") & "" rs.MoveNext Loop End If myConn.Close Set myConn = Nothing %> <%=strHTML%> <%=strHTML2%>