DB Forbinelse

Hej,

Det her script virker fint men kan det ikke gøres på en nemmere måde ?

<%
strSQL = "SELECT * FROM udfordringer WHERE godkendt='True' ORDER BY id desc;"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.Write "<font size='1' face='Verdana' color='#FF0000'><center><br><b>Ingen biler bliver udfordret i øjeblikket !</b><br><br></center></font>"
else
Do Until rs.EOF

Udfordringid = RS("id")
Udfordringid1 = RS("bilid1")
Udfordringid2 = RS("bilid2")
Udfordringtekst1 = RS("tekst1")
Udfordringtekst2 = RS("tekst2")
Udfordringslutdato = RS("slutdato")

Session.LCID = 1030
datoidag = (Date())

datotilbage = datediff("d",datoidag,Udfordringslutdato) ' Udregner datoen VIP brugeren har tilbage.
if datotilbage < "1" then
else
ingenudfordre1 = "Nej"
%>

Det jeg mener er at den tjekker efter dato, men kan det samme ikke gøres når jeg kontakter databasen ?