error '800a0400'

[eduvivi]

Hola a todos, alguien sabe que significa este error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/scanner/laquiniela2.asp, line 110

End if
^
Gracias :)

[Korrikalari]

Hola eduvivi:

Un poco de código con la línea del error ?

Korrikalari

[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 :)

[eduvivi]

Perdon la linea de error la del penultimo
end if
<%End if%>
<% oRS.MoveNext
loop
End if
oRS.close
set oRS=nothing
Conn.Close
Set Conn = Nothing
%>

[dimoito]

Que yo sepa esto es un error ortográfico, y normalmente se produce cuando te dejas el signo & en una concatenación.
Por ejemplo si haces:
sSQL = "Select * from tabla where id=" id
(y aquí he he dejado el &).
Tampoco nos has puesto la linea del error, pero supongo que será algo de eso

[Korrikalari]

Hola de nuevo:

Antes de nada, comprueba que Request.form("T1") tiene algún valor, ya que parece que no le llega.

Korrikalari

[Sergiete]

El error no se muy bien lo que será pero yo empezaria por cuidar un poco la estructuracion de la programación.
No es demasiado correcto abrir un if con un while dentro y poner el end if dentro del while, amos esto:
If xxx Then
xxxx
while xxx do
xxx
end if
movenext()
loop

Esto es un fallo gordo. El end if se pondría despues del loop o bien el If dentro del while, y esto no debería afectar a la ejecución, pero si en cualquier caso afecta lo suyo sería buscar otra forma de hacerlo.

[eduvivi]

Hola a todos y muchas gracias por la ayuda, evidentemente tenia razon Sergiete, ya que habia un error en la estructuracion de la programación, lo que hice fue cerrar primero el do while y despues los End If de esta forma
<%oRS.MoveNext
loop%>
<% End if %>
<% End if
oRS.close
set oRS=nothing
Conn.Close
Set Conn = Nothing
%>
y asi funciona perfectamente, muchisimas gracias a todos por la gran ayuda.
Eduardo :)