22/12/2010, 06:57
|
 | Colaborador | | Fecha de Ingreso: junio-2008
Mensajes: 5.032
Antigüedad: 15 años, 10 meses Puntos: 1012 | |
| Respuesta: Redireccion en caso de
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 |