Det finns 5 myheter i tabellen
Sen skall de som inte är aktuella uteslutas.
efter 'if date1 < date() AND date2 > date() then'
gör det att INGA nyheter visas.
Det är inte fel på datumen iövrigt.


<%
newsSQL = "SELECT * FROM news WHERE show = true ORDER BY date DESC"
RS2.open newsSQL, CONN, 1, 1
if RS2.Recordcount > 0 then
Do Until RS2.EOF
date1=FormatDateTime(RS2("enddate"),2)
date2=FormatDateTime(RS2("startdate"),2)

if date1 > date() AND date2 < date() then

'if FormatDateTime(RS2("enddate")) > date() AND FormatDateTime(RS2("startdate")) < date() then
text = replace(RS2("text"), "<br>", "")
text = left(text,80)
%>
<tr>
<td width="240" align="left" valign="top" class="text">
<%=RS2("date")%>&nbsp;&nbsp;<%=RS2("headline")%><br>
<%=text%>...<br>
<!-- <%=FormatDateTime(RS2("startdate")) & " " & FormatDateTime(RS2("enddate"))%><br>
<%=(RS2("startdate")) & " " & (RS2("enddate"))%><br> -->

</td>
</tr>
<tr>
<td width="240" height="15" align="left" valign="top"><img src="img/nopix.gif" width="240" height="15"></td>
</tr>
<%
end if

RS2.MoveNext
Loop
else%>
<tr>
<td width="240" height="15" align="left" valign="top" class="text"><br><br>Inga aktuella nyheter just nu.</td>
</tr>
<%
end if
RS2.CLOSE
%>

Börja med att ha:

<%
Function connect()
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("/din databas.mdb") & ";"
Set connect = objConn
End Function

set objConn = Connect()
%>

i en egen fil och inkludera den på sidan.

ha sen
<%Set RS1=objConn.Execute("SELECT * from nånting where date = nånting")
do until RS1.eof%>

<%Set RS2=objConn.Execute("SELECT * from nånting where date = nånting")
do until RS2.eof%>

skriv sen ut nyheterna med <%=RS1("kolumnnamn")%> och eller <%=RS2("kolumnnamn")%>

jag använder själv top5 för att visa 5 senaste.....alla andra visas inte

nyhetsfunktionen är uppbyggd enl följande:
tabellnamn: newx
fältnamn: id, headline, text, date, startdate, enddate, image, show

headline rubrik
text nyhetstext
image nyhetsbild
date skall visa önskat datum för nyheten
startdate f r o m detta datumet skall nyheten listas just på denna sida
enddate t o m detta datumet skall nyheten listas just på denna sida

show är en boolean som gör att man kan välja att dölja nyheten helt


efter utgånget enddate så är det tänkt att nyheten skall visas på nyhetsarkivsidan. Inga problem där...