salve a tutti,
ho trovato uno script, usato in forum open source in asp, che prende un'immagine in upload, ne riduce le dimensioni ad una miniatura, si clicca sulla miniatura e sia pre in un'altra finestra.
tutto ok se non fosse che funziona solo sulla prima immagine...mi spiego meglio:
il forum permette di fare l'upload di piu' file, aimmagini o altro, ma lo script (un mod aggiunto in seguito), fa il resize solo della prima immagine, le atre rimangono a grandezza naturale.
Ho cercato piu' volte di modificarlo ma non riesco a venirne a capo.

Potete aiutarmi?

Posto il codice:

If InStr(1, strMessage, "<img src=""uploads/", 1) > 0 Then
'we have an uploaded image so we need to change the size of it and add a link ot the full size image

Dim lngStartPos
Dim lngEndPos
Dim strTempMessage
Dim strFilename
Dim strImagepathandName

'Find the start position in the message of the image
lngStartPos = InStr(1, strMessage, "<img src=""uploads/", 1)

'Find the position in the message for the [/URL]] closing code
lngEndPos = InStr(lngStartPos, strMessage, "border=""0"">", 1) + 11

'Make sure the end position is not in error
If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 11

strImagepathandName = Trim(Mid(strMessage, lngStartPos, (lngEndPos - lngStartPos)))
strTempMessage = Trim(Mid(strMessage, lngStartPos, (lngEndPos - lngStartPos)))

strTempMessage = Replace(strTempMessage, "border=""0"">", "width=""50"" height=""50"" border=""0"" title=""Click to view full size image"">", 1, -1, 1)

'now find the name of the user and name of the file
lngStartPos = InStr(1, strMessage, "<img src=""uploads/", 1) + 18
lngEndPos = InStr(lngStartPos, strMessage, "border=""0"">", 1) -2
strFileName = Trim(Mid(strMessage, lngStartPos, (lngEndPos - lngStartPos)))

strTempMessage = "<a href=""../webwitzforum/uploads/" & strFileName & """ target=""_blank"">" & strTempMessage & "</a>"

strMessage = Replace(strMessage,strImagepathandName,strTempMessage,1,- 1,1)


End If


vi ringrazio anticipatamente