
20/12/2010, 15:29
|
| | Fecha de Ingreso: diciembre-2010 Ubicación: Perú
Mensajes: 14
Antigüedad: 14 años, 3 meses Puntos: 0 | |
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() |