Looper ikke database kald.

Efter jeg er skiftet fra Access til MS Sql vil denne funktion ikke loope.

Den virker sådan den henter en tekst fra databasen efter dato, og viser den kun hvis dags dato er inden for dato1 & dato2.

Håber en kan hjælpe her ...

---------------
date1 = date +1
date2 = date -1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = ""& conn &""
strQuery = "SELECT * FROM nyhedrulle order by dato1 desc"
Set RS = Conn.Execute(strQuery)
Do While Not RS.EOF
If DateDiff("d", date1, RS("dato1")) < 0 And DateDiff("d", date2, RS("dato2")) > 0 Then
ss2 = rs("beskrivelse")
ss1 = rs("tekst")
tekst1 = tekst1 + ss1 &"$"& ss2 &"§"
end if
RS.MoveNext
loop
---------------------