If Then Else

[eduvivi]

Hola a todos tengo una pag.asp que tiene un formulario y toma un dato y lo envia a otra pag2.asp que recibe la info y busca en una BD e imprime los datos coincidentes en pantalla.
Lo que quiero hacer es una condicion para que si no hay coincidencias se redireccione a otra pag3.asp que le hace un comentario de confirmacion que no hubo coincidencias.

El codigo que tengo es este y no me funciona:
<%
If Request.Form <> "" Then
Response.Redirect("pag3.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)
%>
aca va toda la info a imprimir en pantalla

y despues cierro todo
<%
end if
oRS.close
set oRS=nothing
Conn.Close
Set Conn = Nothing
%>
Gracias de antemano :)

[AlZuwaga]

Yo eliminaría la tercer página ya que el comentario de "no existen resultados coincidentes" se puede hacer directamente en la página que consulta los datos. Algo así (y algunas modificaciones que hago porque no entendí la lógica):


<%
If Request.Form = "" Then
Response.Redirect("pag1 .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)
%>

<% If oRS.BOF AND oRS.EOF then %>

No hay coincidencias, vuelva a intentar su búsqueda

<% Else %>

aca va toda la info a imprimir en pantalla

<% End if %>

y despues cierro todo
<%
end if
oRS.close
set oRS=nothing
Conn.Close
Set Conn = Nothing
%>


Te marco en negritas los agregados y en itálica las modificaciones.

saludos
diego

[AlZuwaga]

Ummm... no salió la itálica en esta línea:

If Request.Form = "" Then

pero te digo que modifiqué el <> que vos tenías por =

[eduvivi]

Hola dazuaga, te agradezco ya funcionó perfectamente y ademas te vuelvo a agradecer ya que en verdad no hacia falta esa tercera página.

Saludos y mil gracias
Eduardo :)

[AlZuwaga]

de nada