Redireccion en caso de

politikaperu · #1 (**permalink**) 20/12/2010, 15:29

Amigos tengo este script que hace que el usuario acceda a una URL que está guardada en un campo ART_URL de la tabla ENLACES. Por cierto abre en una ventana nueva. Lo que quiero es redirigir al usuario en caso que la URL registrada en el campo ART_URL no esté disponible por error (página inexistente, error de servidor, etc)

<% Dim rsDetail__MMColParam, rsDetail, rsDetail_numRows
rsDetail__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rsDetail__MMColParam = Request.QueryString("ID")
End If %>

set rsDetail = Server.CreateObject("ADODB.Recordset")
rsDetail.ActiveConnection = MM_connDUarticle_STRING
rsDetail.Source = "SELECT ART_URL FROM ENLACES WHERE ART_ID = " + Replace(rsDetail__MMColParam, "'", "''") + ""
rsDetail.CursorType = 0
rsDetail.CursorLocation = 2
rsDetail.LockType = 3
rsDetail.Open()
rsDetail_numRows = 0
Response.Redirect(rsDetail.Fields.Item("ART_URL"). Value)
rsDetail.Close()

IsaBelM · #2 (**permalink**) 20/12/2010, 16:31

si la consulta no trae ningún registro o ha habido algún problema en la consulta

Cita:

<% On Error Resume Next %>

if Err.number <> 0 then
Response.Redirect("pagina de error")
elseif not rsDetai.eof = True then
Response.Redirect("pagina no hubo resultados")
else
Response.Redirect(rsDetail.Fields.Item("ART_URL"). Value)

politikaperu · #3 (**permalink**) 21/12/2010, 23:38

IsaBelM primero gracias por responder.
Quiero comentarte que probé el codigo que me mandaste.
tal como está el codigo no funciona.... te cuento que no soy programador y entonces se me complica entender tu respuesta.

Te cuento que el usuario hace click en el archivo xx.asp?id=10 que contiene el script. se abre una ventana y redirige a la URL almacenada en el campo ART_URL.

Lo que deseo es que si la url almacenada ya no es valida, que entonces redirija al usuario a otra página.... te mando el script completo.

<% dim cmdArticles__varLink, cmdArticles
if(Request.QueryString("ID") <> "") then cmdArticles__varLink = Request.QueryString("ID") %>
<% set cmdArticles = Server.CreateObject("ADODB.Command")
cmdArticles.ActiveConnection = MM_connDUarticle_STRING
cmdArticles.CommandText = "UPDATE DIRECTORIO SET ART_VIEWS = ART_VIEWS + 1 WHERE ART_ID = " + Replace(cmdArticles__varLink, "'", "''") + ""
cmdArticles.CommandType = 1
cmdArticles.CommandTimeout = 0
cmdArticles.Prepared = true
cmdArticles.Execute()
Set cmdArticles = Nothing %>
<% Dim rsDetail__MMColParam, rsDetail, rsDetail_numRows
rsDetail__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rsDetail__MMColParam = Request.QueryString("ID")
End If %>
<% set rsDetail = Server.CreateObject("ADODB.Recordset")
rsDetail.ActiveConnection = MM_connDUarticle_STRING
rsDetail.Source = "SELECT ART_URL FROM ENLACES WHERE ART_ID = " + Replace(rsDetail__MMColParam, "'", "''") + ""
rsDetail.CursorType = 0
rsDetail.CursorLocation = 2
rsDetail.LockType = 3
rsDetail.Open()
rsDetail_numRows = 0
Response.Redirect(rsDetail.Fields.Item("ART_URL"). Value)
rsDetail.Close() %>

Mucha gracias por tu tiempo

IsaBelM · #4 (**permalink**) 22/12/2010, 06:57

Cita:

<% On Error Resume Next %> ' Esto lo has de poner antes de nada, incluso lo puedes poner antes que la etiqueta <html>

<% dim cmdArticles__varLink, cmdArticles
if(Request.QueryString("ID") <> "") then cmdArticles__varLink = Request.QueryString("ID") %>
<% set cmdArticles = Server.CreateObject("ADODB.Command")
cmdArticles.ActiveConnection = MM_connDUarticle_STRING
cmdArticles.CommandText = "UPDATE DIRECTORIO SET ART_VIEWS = ART_VIEWS + 1 WHERE ART_ID = " + Replace(cmdArticles__varLink, "'", "''") + ""
cmdArticles.CommandType = 1
cmdArticles.CommandTimeout = 0
cmdArticles.Prepared = true
cmdArticles.Execute()
Set cmdArticles = Nothing %>
<% Dim rsDetail__MMColParam, rsDetail, rsDetail_numRows
rsDetail__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rsDetail__MMColParam = Request.QueryString("ID")
End If %>
<% set rsDetail = Server.CreateObject("ADODB.Recordset")
rsDetail.ActiveConnection = MM_connDUarticle_STRING
rsDetail.Source = "SELECT ART_URL FROM ENLACES WHERE ART_ID = " + Replace(rsDetail__MMColParam, "'", "''") + ""
rsDetail.CursorType = 0
rsDetail.CursorLocation = 2
rsDetail.LockType = 3
rsDetail.Open()
rsDetail_numRows = 0

if Err.number <> 0 then
Response.Redirect("pagina de error")
elseif not rsDetai.eof = True then
Response.Redirect("pagina no hubo resultados")
else
Response.Redirect(rsDetail.Fields.Item("ART_URL"). Value)

rsDetail.Close() %>

si no te queda claro busca información sobre el manejador de errores On Error Resume Next