error '800a0400'

[eduvivi]

Primero tengo esto que es una condicion de un dato que viene de otra pagina de un formulario:
<%
If Request.Form = "" Then
Response.Redirect("laquiniela.asp")
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=" & Server.MapPath("result.mdb"))
strSQL = "Select * from anteriores where fecha ='" & Request.form("T1")&"'"

Set oRS = Conn.Execute(strSQL)
%>

despues esto
<% If oRS.BOF AND oRS.EOF then %>
aqui escribo no hay coincidencia bla ba bla...
despues
<% Else %>
y seguido escribo todos los datos que trae de la BD
aqui hago una repeticion de datos ya que son varios y necesito hacer dos columnas con los mismos y escribo esto
<% do while (not oRS.eof)%>
aqui las columnas con los datos
despues al final cierro todo
<% End if %>
<% oRS.MoveNext
loop
End if
oRS.close
set oRS=nothing
Conn.Close
Set Conn = Nothing
%>

Eduardo :)