<%@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 buena excusa.

Un hombre, en su cincuentena de edad, se compró un BMW y salió a darle caña por la autopista, a toda velocidad. Al instante, vio las luces roja y azul de una patrulla siguiéndolo.
- No hay forma de que me alcancen con este coche - pensó y aceleró a fondo.
Inmediatamente, se dio cuenta del lío en el que se estaba metiendo, y paró a un lado de la autopista. El policía se acerca, no dice nada, toma el permiso de conducir, lo mira muy despacio, da una vuelta alrededor del coche y dice finalmente:
- Mire amigo...ha sido un día muy pesado, es viernes y estoy a punto de terminar mi turno de patrulla. No tengo ganas de ningún papeleo, así que, si me da una excusa por su exceso de velocidad que no haya oído nunca, le dejo irse de aquí ahora mismo.
El hombre lo piensa unos segundos y responde:
- La semana pasada mi esposa se fugó de casa con un policía. ¡Tenia miedo de que usted estuviera tratando de devolvérmela!
- Buen fin de semana - dijo el policía.