Login system

Hey. jeg skal lave et login, hvor brugere konto kun gælder for en hvis periode.
Første gang de logger ind, bliver der sat en start dato ved hjælp af f.eks. "Now" mit første spørgsmål er så, hvordan man for den til at ligge en måned til.

Mit andet spørgsmål går på, hvordan man skriver If sætningen, for den jeg har nu virker ikke. den hopper ned til "Else"

Håber i kan hjælpe

KodeForm = Request.Form("KodeForm")

strSQL = "SELECT Kode, Dato_Start, Dato_Slut From koder"
Set rs = Conn.Execute(strSQL)

Kode = rs("Kode")
Dato_Start = rs("Dato_Start")
Dato_Slut = rs("Dato_Slut")
       
Dato_Nu = " & Now & "           
           

If ("" + KodeForm = Kode AND Dato_Slut > Dato_Nu) then
Response.Write(":-)")   
Response.write("<br>")
Response.write("Slut " & Dato_slut & "")
Else
Response.write("KAN DU KOMME VÆK")
End If