<%@LANGUAGE="VBSCRIPT"%> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> El Humor de Rogelio - Chiste
  
 

 
 
 
© Portal Local, S.L.
   
...pulse este botón para cerrar la ventana.
     
 

Una ausencia inexcusable.

Un hombre tenía unas entradas para la final del mundial de fútbol. Cuando se sienta en su asiento un hombre se le acerca y le pregunta si está libre el asiento de al lado. Él contesta que está libre
- ¡Es increíble que no haya venido su dueño! ¿Quién en su sano juicio puede tener una entrada como ésta para la final de un mundial, el mayor acontecimiento del mundo, y no la usa?
- Bueno, la verdad es que es mío. Yo compré la entrada hace dos años. Se supone que mi esposa me iba a acompañar pero falleció. Este es el primer mundial en que no vamos a estar juntos desde que nos casamos en 1982.
- ¡Oh, qué pena me da oír eso! ¿Pero no pudo encontrar a alguien más, un amigo, un pariente o un vecino para ocupar el asiento.
- Pues no. Todos están en el entierro.