<% Set objDataConn = Server.CreateObject("ADODB.Connection") ' ****** Nedanstående måste modifieras efter dina förhållanden! ******* objDataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\kASPer\aForum\qwerty123.mdb" Set objMessageLast = Server.CreateObject("ADODB.RecordSet") objMessageLast.Open "SELECT message_timestamp FROM messages Order By message_timestamp DESC ",objDataConn newestMessage = objMessageLast.Fields("message_timestamp") senaste = DateDiff("d",newestMessage,Now()) newPost = "" ' ****** Nedanstående måste modifieras efter dina förhållanden! ******* if senaste <= 3 Then newPost = "" objMessageLast.Close Set objMessageLast = Nothing %>

• Diskussionforum, senaste meddelandet <%=newestMessage%> <%=newPost%>