Tema: Biblioteca de Clases,Funciones y Sub-rutinas.
Ver Mensaje Individual
  #84 (permalink)  
Antiguo 12/08/2005, 02:33
rrufo
 
Fecha de Ingreso: enero-2002
Mensajes: 1.438
Antigüedad: 22 años, 10 meses
Puntos: 0
Código: 
  ' Añadir la query string a la redirect URL 
  MM_editRedirectUrl = "pagina2.asp"

  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

   If (MM_editRedirectUrl <> "") Then
     Response.Redirect(MM_editRedirectUrl)
   End If