segnala raduno

“” Then

Dim fileFoto, fileRedim
currId= request.QueryString(“idraduno”)

‘ salvo l’immagine inviata dall’utente usando l’oggeto ASP Smart Upload
fileFoto = effettuaUpdate(PATHFOTORADUNI & “N”, “F” & “_” & currId & “_”, “”)
If fileFoto<>“” Then

Set img = CreateObject(“ImageMagickObject.MagickImage.1”)

‘ limito le dimensioni del file originale caricato (siccome le immagini possono essere sia orizzontali che verticali
‘ limito una delle due dimensioni a 640px mantenendo le proporzioni)
ret = img.Convert(PATHFOTORADUNI & “N” & fileFoto, “-resize”, “900×700>”, PATHFOTORADUNI & “N” & fileFoto)

‘ ridimensionamento dell’immagine usando ImageMagickObject; viene portata a dimensione massima 100×100 senza stretch
ret = img.Convert(PATHFOTORADUNI & “N” & fileFoto, “-resize”, “100×100”, PATHFOTORADUNI & “RID” & fileFoto)

‘ salvataggio nel db dell’url dell’immagine originale
sql = “UPDATE raduni SET foto='” & replace(fileFoto,”‘”,”””) & “‘ WHERE idRaduno=” & currId
‘response.Write sql
Set Conn = Server.CreateObject(“ADODB.Connection”)
Conn.Open cConnectionString
conn.Execute(sql)
conn.close

Set img=Nothing

End If
End If
%>