sentencia IF Else

Potro · #1 (**permalink**) 08/08/2005, 10:53

Hola amigos del foro de ASP saben tengo la siguiente duda:

Tengo este codigo el cual muestra los resultados de un query que pide 5 días antes a la fecha actual si encuentra algo pues lo muestra, el chiste que quiero que cuando no encuentre nada me mande a otra página como le puedo hacer aqui les pongo el codigo..

<%

Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("vigencia.mdb")&";"

sql = "SELECT * FROM vigencia where fecha >= now -5"
Set result = con.Execute(sql)

Do While Not result.EOF
Response.Write "<a href=vigencia.asp?id_laredo=" &result.Fields("id_laredo") & ">"&result.Fields("fecha")&"</a> • " &result.Fields("uno") & ""
result.MoveNext
Loop

result.Close
Set result = Nothing
con.Close
Set con = Nothing

%>

Me dicen que le puedo poner un If pero la verdad no me ha salido ya le movi varias veces pero no lo consigo.

Espero que me aya explicado bien

SALUDOS:::

Myakire · #2 (**permalink**) 08/08/2005, 11:15

If Not result.EOF Then
Response.Redirect "otrapagina.asp"
End If
Do While Not result.EOF
....

Potro · #3 (**permalink**) 08/08/2005, 11:37

Myakire mira lo puse asi esta bien por que no me manda a la pagina...

<%

Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("vigencia.mdb")&";"

sql = "SELECT * FROM vigencia where fecha >= now"
Set result = con.Execute(sql)

If Not result.EOF Then
Response.Redirect "http://www.google.com"
End If
Do While Not result.EOF
Response.Write "<a href=vigencia.asp?id_laredo=" &result.Fields("id_laredo") & ">"&result.Fields("fecha")&"</a> • " &result.Fields("uno") & ""
result.MoveNext
Loop

result.Close
Set result = Nothing
con.Close
Set con = Nothing

%>

Potro · #4 (**permalink**) 08/08/2005, 11:49

ok Myakire ya le entendi gracias me ayudara mucho esto...

edumferreyra · #5 (**permalink**) 08/08/2005, 11:49

Es al revés, vos querés que redirecciona si no hay nada, entonces,

If result.EOF Then
Response.Redirect "http://www.google.com"
End If

El Not no va.
Slds.

Myakire · #6 (**permalink**) 08/08/2005, 12:05

Cierto, fue un error de "Copy-Paste"

Saludos