Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/12/2010, 15:29
politikaperu
 
Fecha de Ingreso: diciembre-2010
Ubicación: Perú
Mensajes: 14
Antigüedad: 13 años, 4 meses
Puntos: 0
Pregunta Redireccion en caso de

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()