Vorrei controllare le dimesioni di 2 immagini diverse tra loro, mentre con questo sorgente riesco solo a controllare una sola immagine.

  • <%
    Response.Buffer = true
    server.scripttimeout = 3600 'Secondi
    Dim oUpload
    Set oUpload= new cUpload
    With oUpload
    .EnabledAspUpload = False
    .EnabledImageSize = True
    .EnabledLog = False
    .AutoRename = True
    .Overwrite = False
    .SetPath "serate\"
    .Load
    titolo = oUpload.Form("titolo")
    titolo= Replace(titolo, "'", "|")
    descr1 = oUpload.Form("descr1")
    descr1= Replace(descr1, "'", "|")
    data = oUpload.Form("data")
    nomefile = oUpload.Form("nomefile")
    nomefile1 = oUpload.Form("nomefile1")
    If titolo <>"" And descr1 <>"" Then
    nomefile = .GetFileName()
    .UploadOnly "Images"
    .SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/News.mdb"),"SELECT * FROM News"

    If Not.EOF then
    If .Files("Height")>=251 or .Files("Width")>=201 then

    Response.write "<html>"
    Response.write "<head>"
    Response.write "<title>.:: nuova serata con immagine che supera le dimensioni massime ::.</title>"
    Response.write "<link rel=""stylesheet"" href=""/style.css"" type=""text/css"">"
    Response.write "</head>"
    Response.write "<body bgcolor=""#000000"">"
    Response.write "

    "
    Response.write "<font class=""text4"">[b]"
    Response.write ("Le dimensioni dell'immagine <font color=""#D5E300"">" & .GetFileName() &"</font> non sono corrette (" &_
    .Files("Height") &"x" & .Files("Width") &"): File non caricato in quanto supera le dimensioni di 250 x 200 pixel;
    ripetere l'operazione
    " )
    Response.write "[b]<font>"
    Response.write "</body>"
    Response.write "</html>"
    %>
    <head>
    <meta http-equiv="refresh" content="10;URL=/modulo_serate.asp?titolo=<%=titolo%>&descr1=<%=des cr1%>">
    </head>
    <%
    else
    .MoveFirst
    .Database.Open()
    .Save

    Response.write "<html>"
    Response.write "<head>"
    Response.write "<title>.:: nuova serata con immagine::.</title>"
    Response.write "<link rel=""stylesheet"" href=""/style.css"" type=""text/css"">"
    Response.write "</head>"
    Response.write "<body bgcolor=""#000000"">"
    Response.write "

    "
    Response.write "<font class=""text4"">[b]"
    Response.write "i testi e l'immagine "
    Response.write "<font color=""#D5E300"">" & .GetFileName & "</font> sono stati salvati"
    Response.write "[b]<font>"
    Response.write "</body>"
    Response.write "</html>"


    .Database.Fields("Data") = .Form("Data")
    .Database.Fields("titolo") = .Form("titolo")
    .Database.Fields("descr1") = .Form("descr1")

    .Database.Fields("nomefile") = .GetFileName

    .Database.Addnew()
    .MoveNext
    end If

    Else
    Response.Redirect "/modulo_serate.asp"
    End If

    end with
    %>