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

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