Funciones para recoger datos ASP

Bueno otro golpe de genialidad como el response.write, pero ahora con el request.querystring y el request.form, harto estaba de escribir esto!! así que monto estas dos chorras/funciones, que ademas me limpian lo que me hayan pasado ;)

function rf(s)'hace el request form
rf=limpia(request.form(s),false)
end function
function rq(s)'hace el request query
rq=limpia(request.QueryString(s),false)
end function

Meta keywords ASP

El otro día expliqué como hacer el meta description de html con ASP (por cierto mejorado), el de keywords no lo he puesto aún por que lo estaba mejorando ;)

Lo ideal es pasar le un texto no demasiado largo, yo le paso el description, ya que el meta keyword, cuanto mas parezca al contenido de la web, mucho mejor ;)

function getKeywords(texto)'convierte un texto a keywords
dim i,banned
getKeywords=lcase(texto)'todo a minusuclas
getKeywords=quitarHtml(getKeywords)'quitamos el html
banned = array(";",":","."," from "," ante " , " bajo "," cabe "," contra "," desde "," entre "," hacia "," hasta "," para "," según "," sobre "," tras ",",,"," ")'palabras de mas de 3 caracteres que no queremos y los espacios los substituimos por comas
for i = 0 to uBound(banned)
getKeywords = replace(getKeywords, banned(i),",")'reemplazamos
next
getKeywords=delMenoresDe(3,getKeywords,",")'quitamos palabras menores de 3, esto es configurable
getKeywords=delDuplicados(getKeywords,",")'eliminamos las palabras duplicadas
end function

También necesitareis estas tres funciones, la primera elimina todas las palabras menores de X, la segunda las palabras duplicadas, y la tercera te dice si un elemento esta en un array Seguir leyendo

Meta description ASP

El otro día ya os presente el limpiador de html…pues mas que nada era para hacer el meta description como dios manda ;)

function getDescriptionMeta(desc)'le pasas un texto y te lo formatea para la descripcion del meta
dim i,banned
getDescriptionMeta = left(desc,200)
getDescriptionMeta = limpia(getDescriptionMeta,false)
getDescriptionMeta = quitarHtml(getDescriptionMeta)
end function

VaporWare del año

Una vez mas, la revista Wired ha presentado la lista con el vaporware del año, lista que traduzco a continuación.

Y los agraciados con el dudoso honor de entrar en esta lista son:

10 – Steorn Orbo: La firma irlandesa Steorn anunció el mayor descubrimiento de todos los tiempos, un motor magnético capaz de producir energía libre; dicho con otras palabras, habían creado una máquina de movimiento perpetuo de primera clase; la primera ley de la termodinámica a hacer gárgaras.

La empresa prometió hacer una demostración de su máquina en Julio del 2007, pero por problemas técnicos (al menos, eso dijeron) se vieron obligados a aplazar la demostración por un plazo de tiempo indefinido. ¿Podrán enseñarnos la máquina antes de que se apague el Sol?

9 – Tesla Roadster: El Tesla Roadster es una de las grandes promesas de la industria tecnológica. Este deportivo eléctrico es capaz de pasar de 0 a 100km/h en menos de cuatro segundos con una autonomía de mas de 300 kilómetros. La empresa prometió sacarlo al mercado para Octubre de este año, pero parece que habrá que esperar hasta mediados del 2008.

8 – 802.11N: La última versión de Wifi promete velocidades en torno a los 400Mb/s con un alcance de unos 500 metros. La IEEE prometió tener lista la especificación final del estándar para Enero del 2007, pero a día de hoy solo disponemos de un draft (un borrador) de esta norma; la versión definitiva de la especificación se retrasa hasta el año 2009.

De todas formas, esto no ha frenado a la industria; desde el verano están saliendo al mercado productos basados en la versión actual del borrador de la norma.

7 – Diablo III: Aunque Blizard Entertaiment sin mencionar la continuación de su juego Diablo II, una oferta de trabajo en la que buscan programadores para trabajar en “un juego de rol de nueva generación” ha reavivado el rumor.

6 – Windows Mobile 6 para el Samsung BlackJack: El Samsung BlackJack fue uno de los grandes teléfonos del año 2006, pero está basado en Windows Mobile 5. Durante este año han aparecido un gran número de dispositivos basados en Windows Mobile 6, pero la esperada actualización para el BlackJack no llega. Durante este verano, apareció una actualización no oficial, pero tiene multitud de fallos con lo que los otrora felices poseedores de este teléfono continúan esperando y lamentándose.

5 – Windows XP Service Pack 3: Los usuarios de Windows XP llevan tres años esperando esta actualización. Por supuesto, podrían migran a Windows Vista, pero para desespero de Microsoft los usuarios de XP no tienen ninguna prisa por actualizarse. A día de hoy, el SP3 se encuentra todavía en la fase de beta testing, a la espera de ser lanzado durante la primera mitad de 2008.

4 – Optimus Maximus: El Optimus Maximus es un teclado cada tecla es una diminuta pantalla OLED, de manera que los símbolos que aparecen dibujados son programables. Su lanzamiento estaba previsto para el 2007, pero hasta el momento solo se han podido ver algunos prototipos. Eso si, los que tengan fe pueden reservar uno por 1500 dólares.

3 – El último disco de Guns’n Roses: Guns’n Roses lleva trabajando en el disco “Chinese Democracy” desde 1994. Buena parte de los miembros de la banda se han marchado, pero el cantante Axl Rose sigue en la brecha. De hecho, este verano la banda se reunió para hacer una gira para promocionar su futuro disco, pero el prometido navideño no se va a producir.

2 – Spore: Spore es el último juego de Will Wright, el creador de Los Sims. En este juego, se recrea todo el proceso de la evolución, desde la aparición de las primeras bacterias hasta el desarrollo de una civilización intergaláctica. En este juego, el jugador puede diseñar formas de vida, crear ecosistemas y enfrentarse en guerras interplanetarias a otros jugadores que hayan creado sus propios mundos. El lanzamiento de este juego está previsto para Abril del 2008, como muy temprano.

1 – DUKE NUKEN FOREVER: Y, como es tradición desde hace diez años, este juego de 3D-Realms es el vaporware del año. Como cada año, la compañía ha prometido que el juego saldrá pronto al mercado y en esta ocasión ¡¡incluso ha presentado un trailer!! En el artículo original comentan que, en la edición de la lista de vaporware del año 2000, un lector comento que antes veriamos a Van Halen reunida de nuevo que Duke Nuken Forever terminado. Irónicamente, la banda ya ha vuelto a los escenarios.

Vía teleobjetivo

Quitar etiquetas Html de un texto ASP

Muy útil!

Imaginad tenéis un texto con multitud de etiquetas html…pero claro…no siempre deben de ser buenas para insertar y mantener una estructura de una web.

Pues con esto lo arreglamos :D


function quitarHtml(str)'con regex nos cargamos todos los tags html
quitarHtml=replaceExpresion(str,"","<[^>]*?>")
end function


function replaceExpresion(str,reem,pat)'hace un regExp
dim oER:set oER = New RegExp
oER.Pattern = pat
oER.IgnoreCase = True
oER.Global = True
replaceExpresion = oER.replace(str, reem)
set oER = nothing
end function

Indignado con ARSYS

Esta es la queja/reclamación que hemos dejado hoy en Arsys….han realizado un cambio en los servidores de correo, y tenían todas las líneas de atención al cliente muy saturadas…nada mas coger el teléfono ya me han dicho cual era el problema.

Os dejo el mail que hemos enviado…espero que así se sepa de que plan funciona arsys…

Debido al cambio realizado por parte de su compañía ARSYS, sobre la seguridad del envío SMTP, varios servicios de nuestra empresa se han visto gravemente afectados, quedando prácticamente inutilizados.

El aviso de que estos cambios se iban a realizar se encuentra a 4 links de profundidad desde que se entra al panel de control, panel de control que obviamente no revisamos cada día y sin recibir notificación alguna vía email de este cambio, además solo se avisa con una anticipación de 13 días naturales (7 días laborables).

Creemos que después de haber satisfecho por un servicio ISP de 12 meses un importe total de 1378’08€ + 69’6€ del “filtro antispam”, no esperamos menos de ustedes, que una rectificación por parte suya ante este GRAVE ERROR.

Desde la mañana de hoy (11/12/2007) hemos tenido dos técnicos trabajando sólo para arreglar los desperfectos ocasionados por su inoportuno cambio, quedando retrasados muchos otros proyectos (con fatales consecuencias), entre ellos la pérdida de contacto con varios de nuestros clientes (9 en total, tenemos logs si se requieren.)

Nuestros técnicos han desglosado el trabajo realizado para el funcionamiento básico (no con total funcionalidad).

Cambios realizados en código asp por cambio seguridad de ARSYS (envío SMTP)

Total 13H (no incluyo el informe detallado por motivos obvios)

Re configuración equipos:
16 equipos con 10 cuentas distintas cada uno = 8h estimadas y a realizar

Ahora sólo se pueden enviar mails desde la web, usando la cuenta de xx@xxx.com de este modo quedan mermadas muchas de las funcionalidades web.

Para restablecer la funcionalidad completa de las páginas web se estima un trabajo aproximado de unas 112h.

Después de haber contactado con su departamento “técnico” y solicitado amablemente que retiraran esta nueva funcionalidad, y explicando las graves consecuencias que ésta tiene para nosotros, éstos no han podido solventar ABSOLUTAMENTE NADA, y no me han facilitado el contacto con ningún superior o jefe al cargo.

Por todo esto les envío este email esperando una pronta contestación suya. Espero poder conservar nuestras actividades comerciales con ustedes y la de nuestros clientes que subcontratan con ustedes.

Atentamente xxxx

Me jode un montón haber depositado tanta confianza en esta compañía… decidimos contratar un ISP, ya que con el correo no queríamos ningún tipo de problema. Pues bien….toma castaña….vaya marrón se me ha venido encima….resulta que este servicio es carisimo…no pueden ofrecer calidad?

en fin…que asco…