Variables: texto - Cadena a cortar (texto - string)
                   max  - Número de carácteres a mostrar (númerico - int)

function cortarcadena (texto,max)
m = 0
Maximo = max       ' Tamaño máximo permitido'
Cadena = texto
If len ( Cadena ) > Maximo Then
    Cadena2 = Split ( Cadena, " " )
    Cadena = ""
    Do While len ( Cadena ) + len ( Cadena2 ( m ) ) < Maximo
       Cadena = Cadena & " " & Cadena2 (m )
       m = m + 1
    Loop
End if
response.write ( Cadena )
end function

'Función para saber cuál es el último día del mes'
'Variables: imonth - variable númerica del mes (Ej: Enero = 0, Febrero = 1 ...)'
'           iyear  - variable númerica del año (Ej: 2009, 2010 ...)'
function ultimDiaMes(imonth, iyear)
   nextmonth = dateadd("m", 1, dateserial(iyear, imonth, "01"))
   ultimDiaMes = day(dateadd("d", -1, nextmonth))
end function

Uso:

ultimDia = ultimDiaMes(mes,any)
'Imprimir en pantalla el último dia del mes (númerico)'
response.write ultimDia

Lo podéis encontrar en http://www.growmedia.net/dblog/labs/?seccion=whois

Como ordenar un Array en ASP bidimensional

 http://www.growmedia.net/dblog/labs/?seccion=arraySort

Lo primero es pensar que alguien ha accedido a la base de datos y lo ha borrado, pero todo lo demás estaba intacto, así que mirando los logs del servidor he descubierto una cosa alucinante. Para eliminar una imagen, lo tengo en una página .asp que le paso el nombre de la imágen por la url y el googlebot, que es muy listo, me lo ha indexado todo, y a la vez, me lo ha borrado.

Solución: Implementar un robots.txt (que yo pensaba que no servía para nada) y decirle que por esas carpetas no pase... Lo que no me sorprenda ya...

A medida que vayan saliendo versiones posteriores, las iré actualizando.

Descargar dblog en castellano (archivo .rar)

Este plugin permite colorear y poner la numeración en los códigos que aparecen en los posts de wordpress. Me pareció una maravilla y me puse a buscar algo para implementarlo a este blog. El resultado de la busqueda lo encontré en el mismo blog que he señalado antes, http://blog.un...digo-en-html/ y se trata de Google Code Prettify, una librería de Google (que no harán estos XD), para resaltar los códigos que aparecen en un post. De momento me quedo con el de google, pero seguiré buscando a ver si algún otro puede llegar a superarlo.

El resultado lo podéis ver en mi post de como saber...a imagen con ASP

Alguien sabe de alguno otro mejor?

Pronto en castellano!!!

He de añadir que esta versión del Dblog no es la "oficial" sino un mod que saqué de esta web, para mi gusto un poco mejor con un skin que lo podéis encontrar si seguís los links de abajo del todo de la web.

Hoy me he encontrado que los meses no me salían en castellano, he buscado por toda la web con el maravilloso botón del Dreamweaver "Buscar y reeemplazar" (que haría sin él), y no lo encontraba por ningún lado. Hasta he buscado por la base de datos por si estaban por allí y nada. Al fin he encontrado en la página inc_funzioni.asp un Session.LCID = 1040 y modificando el último número por 1034 (que es para poner los textos que te imprime el ASP en el idioma que tu quieras (el 1040 es italiano, el 1034 castellano)) he solucionado el problema.

Ala, a dormir!!

Via http://www.geocities.com/doc_iacobus/sort.html es una web donde el autor crea arrays multidimensionales en Javascript con sus métodos de ordenación. Así que he imprimido todas mis variables del array del ASP y las he pasado al Javascript para trabajar mejor... Me voy a tener que pasar al PHP que creo que si tiene estos metodos de forma nativa y así dejaré de hacer guarradas como esta... jejeje

ASP:

'Para coger anchura de la imagen
Private Function GetImageWidth(byVal strPath)
dim myImg, fs 
Set fs= CreateObject("Scripting.FileSystemObject") 
if not fs.fileExists(strPath) then Exit Function 
set myImg = loadpicture(strPath) 
GetImageWidth = round(myImg.width / 26.4583) 
set myImg = nothing 
End Function

'Coger altura de la imagen
Private Function GetImageHeight(byVal strPath)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(strPath) then Exit Function
set myImg = loadpicture(strPath)
GetImageHeight = round(myImg.height / 26.4583) 
set myImg = nothing 
End Function

Via: forosdelweb.com

Desde mis proyectos, mis scripts ASP, y hasta, por que no, poner está versión del Dblog en castellano, ya que no la encontré por ninguna parte.

Nos veremos en las calles.