PROBLEMA "EXCEPCION"

[Zurfo]

¿Olvidaste tu numero de cliente o clave? CLICK AQUI!</tt></A>")
Else


Dim Base1, SQL1, Rs1
Dim FECHA
FECHA = Request.Form("Dia") & "/" & Request.Form("Mes") & "/" & Request.Form("Ano")
Response.Write(Fecha)
Set Base1 = Server.CreateObject("ADODB.Connection")
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Base1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("112.mdb")

SQL1 = "SELECT * FROM NOTCRED WHERE Cliente = '" & CLIENTE & "' AND "
SQL1 = SQL1 & "fecha = '" & FECHA & "'"
Set Rs1 = Base1.Execute(SQL1)
Response.write("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0><TBODY><TR>")
Response.Write("<TD ALIGN=LEFT VALIGN=TOP WIDTH=100><B Class=Datos>Folio:<BR>Nombre:<BR>Di reccion:</TT></TD><TD ALIGN=LEFT VALIGN=TOP WIDTH=350><TT Class=Datos>" & Rs1("Folio") & "<BR>" & Rs1("Cliente") & " " & Rs1("NombreCte") & "<BR>" & Rs1("Direccion") & "</TT></TD>")
Response.write("</TR><TR><TD HEIGHT=20 COLSPAN=2> </TD></TR><TR><TD ALIGN=LFT VALIGN=TOP COLSPAN=2><TABLE BORDER=0 CELLDDING=0 CELLSPACING=0><TBODY><TR>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=50><B CLASS=DATOS>Cantidad</B></TD><TD ALIGN=CENTER VALIGN=TOP WIDTH=100><B CLASS=DATOS>Titulo</B></TD><TD ALIGN=CENTER VALIGN=TOP WIDTH=100><B CLASS=DATOS>Edicion</B></TD><TD ALIGN=CENTER VALIGN=TOP WIDTH=100><B CLASS=DATOS>Precio</B></TD><TD ALIGN=CENTER VALIGN=TOP WIDTH=100><B CLASS=DATOS>Total</B></TD></TR><TR>")
While (not Rs1.Eof)
Response.Write("<TD ALIGN=CENTER VALIGN=TOP><TT Class=Datos>" & Rs1("Cantidad") & "</TT></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP><TT Class=Datos>" & Rs1("Titulo") & "</TT></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP><TT Class=Datos>" & Rs1("Edicion") & "</TT></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP><TT Class=Datos>" & Rs1("Precio") & "</TT></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP><TT Class=Datos>" & Rs1("Total") & "</TT></TD></TR><TR>")
Rs1.movenext
Wend
Response.write("</TR></TBODY></TABLE></TD