sammenligne variabler og udtrække

Hej ... jeg står med et problem her som jeg ik fatter hvorfor ik virker :D ... jeg har lavet et connect til min database og har valgt kun at udtrække en celle. Cellen indeholder en dato altså data som "13-08-02".

jeg ønsker nu at sammenligne den værdi der står i cellen med forskellige datoer.

eksempel:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/kampe.mdb")

SQLstmt = "SELECT top 1 * FROM kampe ORDER BY ID desc;"

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
%>
<%
  DO WHILE NOT rs.EOF
                     
  kampdag = rs("dato")
%>

Jeg ønsker nu at sammenligne variablen kampdag med følgende:

<% dim igaar, forgaars, gemdag

  igaar = date-1
  forgaars = date-2
%>

<% if kampdag = igaar then %>
<% gemdag = "igaar" %>
<% else %>
<% gemdag = "forgaars" %>
<% end if %>


mit problem er at jeg med ovenstående får forkert/intet output ... hvad gør jeg galt ?

S.U. snarest, på forhånd tak