O tamanho total de seu arquivo excedeu o limite de 10MB.
"
case else ResultHTML = "Ocorreu um erro no envio. Tente novamente.
"
end Select
End If
If request.QueryString("Action") = "Cancel" then
ResultHTML = "O envio foi cancelado.
"
End If
Function TempFolder()
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
'Get temporary folder
TempFolder = Server.MapPath("../img/galeria_fotos/")
End Function
'Sub DeleteFile(FileName)
'Dim FS
'Set FS = CreateObject("Scripting.FileSystemObject")
'FS.DeleteFile FileName
'End Sub
Function ProcessForm
arquivo1_nome=form("frmarquivo1_nome")
arquivo2_nome=form("frmarquivo2_nome")
arquivo3_nome=form("frmarquivo3_nome")
arquivo4_nome=form("frmarquivo4_nome")
arquivo5_nome=form("frmarquivo5_nome")
arquivo6_nome=form("frmarquivo6_nome")
arquivo7_nome=form("frmarquivo7_nome")
arquivo8_nome=form("frmarquivo8_nome")
arquivo9_nome=form("frmarquivo9_nome")
arquivo10_nome=form("frmarquivo10_nome")
w = 983
h = 680
w_mini = 156
h_mini = 117
'faz o envio dos input-file do formulário
response.write newfilename1
if arquivo1_nome<>"" then
'envia o arquivo do campo input-file 1 e o renomeia caso já exista outro com o mesmo nome.
filename1 = tempfolder & "\" & arquivo1_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos1: dotpos1 = instrrev(arquivo1_nome,".")
counter = 1
newfilename1 = arquivo1_nome
if gfs.fileexists(filename1) then
do
counter = counter + 1
newfilename1 = left(arquivo1_nome, dotpos1-1) & "(" & counter & ")" & mid(arquivo1_nome, dotpos1)
loop while gfs.fileexists(tempfolder & "\" & newfilename1)
end if
form("frmarquivo1").saveas tempfolder & "\" & newfilename1
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg1 = server.createobject("persits.jpeg")
imagem1 = server.mappath("../img/galeria_fotos/" & newfilename1)
aspjpeg1.open imagem1
if aspjpeg1.originalwidth > w then
w1 = w
aspjpeg1.width = w1
aspjpeg1.height = aspjpeg1.originalheight * w1 / aspjpeg1.originalwidth
end if
if aspjpeg1.originalheight > h then
h1 = h
aspjpeg1.height = h1
aspjpeg1.width = aspjpeg1.originalwidth * h1 / aspjpeg1.originalheight
end if
aspjpeg1.quality = 85
aspjpeg1.save server.mappath("../img/galeria_fotos/" & newfilename1)
'cria uma miniatura da imagem.
set aspjpeg1_mini = server.createobject("persits.jpeg")
imagem1_mini = server.mappath("../img/galeria_fotos/" & newfilename1)
aspjpeg1_mini.open imagem1_mini
if aspjpeg1_mini.originalwidth > w_mini then
w1_mini = w_mini
aspjpeg1_mini.width = w1_mini
aspjpeg1_mini.height = aspjpeg1_mini.originalheight * w1_mini / aspjpeg1_mini.originalwidth
end if
if aspjpeg1_mini.originalheight > h_mini then
h1_mini = h_mini
aspjpeg1_mini.height = h1_mini
aspjpeg1_mini.width = aspjpeg1_mini.originalwidth * h1_mini / aspjpeg1_mini.originalheight
end if
aspjpeg1_mini.quality = 85
aspjpeg1_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename1)
set aspjpeg1_mini = nothing
set aspjpeg1 = nothing
set gfs=nothing
end if
if arquivo2_nome<>"" then
'envia o arquivo do campo input-file 2 e o renomeia caso já exista outro com o mesmo nome.
filename2 = tempfolder & "\" & arquivo2_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos2: dotpos2 = instrrev(arquivo2_nome,".")
counter = 1
newfilename2 = arquivo2_nome
if gfs.fileexists(filename2) then
do
counter = counter + 1
newfilename2 = left(arquivo2_nome, dotpos2-1) & "(" & counter & ")" & mid(arquivo2_nome, dotpos2)
loop while gfs.fileexists(tempfolder & "\" & newfilename2)
end if
form("frmarquivo2").saveas tempfolder & "\" & newfilename2
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg2 = server.createobject("persits.jpeg")
imagem2 = server.mappath("../img/galeria_fotos/" & newfilename2)
aspjpeg2.open imagem2
if aspjpeg2.originalwidth > w then
w2 = w
aspjpeg2.width = w2
aspjpeg2.height = aspjpeg2.originalheight * w2 / aspjpeg2.originalwidth
elseif aspjpeg2.originalheight > h then
h2 = h
aspjpeg2.height = h2
aspjpeg2.width = aspjpeg2.originalwidth * h2 / aspjpeg2.originalheight
end if
aspjpeg2.quality = 85
aspjpeg2.save server.mappath("../img/galeria_fotos/" & newfilename2)
'cria uma miniatura da imagem.
set aspjpeg2_mini = server.createobject("persits.jpeg")
imagem2_mini = server.mappath("../img/galeria_fotos/" & newfilename2)
aspjpeg2_mini.open imagem2_mini
if aspjpeg2_mini.originalwidth > w_mini then
w2_mini = w_mini
aspjpeg2_mini.width = w2_mini
aspjpeg2_mini.height = aspjpeg2_mini.originalheight * w2_mini / aspjpeg2_mini.originalwidth
elseif aspjpeg2_mini.originalheight > h_mini then
h2_mini = h_mini
aspjpeg2_mini.height = h2_mini
aspjpeg2_mini.width = aspjpeg2_mini.originalwidth * h2_mini / aspjpeg2_mini.originalheight
end if
aspjpeg2_mini.quality = 85
aspjpeg2_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename2)
set aspjpeg2_mini = nothing
set aspjpeg2 = nothing
set gfs=nothing
end if
if arquivo3_nome<>"" then
'envia o arquivo do campo input-file 3 e o renomeia caso já exista outro com o mesmo nome.
filename3 = tempfolder & "\" & arquivo3_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos3: dotpos3 = instrrev(arquivo3_nome,".")
counter = 1
newfilename3 = arquivo3_nome
if gfs.fileexists(filename3) then
do
counter = counter + 1
newfilename3 = left(arquivo3_nome, dotpos3-1) & "(" & counter & ")" & mid(arquivo3_nome, dotpos3)
loop while gfs.fileexists(tempfolder & "\" & newfilename3)
end if
form("frmarquivo3").saveas tempfolder & "\" & newfilename3
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg3 = server.createobject("persits.jpeg")
imagem3 = server.mappath("../img/galeria_fotos/" & newfilename3)
aspjpeg3.open imagem3
if aspjpeg3.originalwidth > w then
w3 = w
aspjpeg3.width = w3
aspjpeg3.height = aspjpeg3.originalheight * w3 / aspjpeg3.originalwidth
elseif aspjpeg3.originalheight > h then
h3 = h
aspjpeg3.height = h3
aspjpeg3.width = aspjpeg3.originalwidth * h3 / aspjpeg3.originalheight
end if
aspjpeg3.quality = 85
aspjpeg3.save server.mappath("../img/galeria_fotos/" & newfilename3)
'cria uma miniatura da imagem.
set aspjpeg3_mini = server.createobject("persits.jpeg")
imagem3_mini = server.mappath("../img/galeria_fotos/" & newfilename3)
aspjpeg3_mini.open imagem3_mini
if aspjpeg3_mini.originalwidth > w_mini then
w3_mini = w_mini
aspjpeg3_mini.width = w3_mini
aspjpeg3_mini.height = aspjpeg3_mini.originalheight * w3_mini / aspjpeg3_mini.originalwidth
elseif aspjpeg3_mini.originalheight > h_mini then
h3_mini = h_mini
aspjpeg3_mini.height = h3_mini
aspjpeg3_mini.width = aspjpeg3_mini.originalwidth * h3_mini / aspjpeg3_mini.originalheight
end if
aspjpeg3_mini.quality = 85
aspjpeg3_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename3)
set aspjpeg3_mini = nothing
set aspjpeg3 = nothing
set gfs=nothing
end if
if arquivo4_nome<>"" then
'envia o arquivo do campo input-file 4 e o renomeia caso já exista outro com o mesmo nome.
filename4 = tempfolder & "\" & arquivo4_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos4: dotpos4 = instrrev(arquivo4_nome,".")
counter = 1
newfilename4 = arquivo4_nome
if gfs.fileexists(filename4) then
do
counter = counter + 1
newfilename4 = left(arquivo4_nome, dotpos4-1) & "(" & counter & ")" & mid(arquivo4_nome, dotpos4)
loop while gfs.fileexists(tempfolder & "\" & newfilename4)
end if
form("frmarquivo4").saveas tempfolder & "\" & newfilename4
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg4 = server.createobject("persits.jpeg")
imagem4 = server.mappath("../img/galeria_fotos/" & newfilename4)
aspjpeg4.open imagem4
if aspjpeg4.originalwidth > w then
w4 = w
aspjpeg4.width = w4
aspjpeg4.height = aspjpeg4.originalheight * w4 / aspjpeg4.originalwidth
elseif aspjpeg4.originalheight > h then
h4 = h
aspjpeg4.height = h4
aspjpeg4.width = aspjpeg4.originalwidth * h4 / aspjpeg4.originalheight
end if
aspjpeg4.quality = 85
aspjpeg4.save server.mappath("../img/galeria_fotos/" & newfilename4)
'cria uma miniatura da imagem.
set aspjpeg4_mini = server.createobject("persits.jpeg")
imagem4_mini = server.mappath("../img/galeria_fotos/" & newfilename4)
aspjpeg4_mini.open imagem4_mini
if aspjpeg4_mini.originalwidth > w_mini then
w4_mini = w_mini
aspjpeg4_mini.width = w4_mini
aspjpeg4_mini.height = aspjpeg4_mini.originalheight * w4_mini / aspjpeg4_mini.originalwidth
elseif aspjpeg4_mini.originalheight > h_mini then
h4_mini = h_mini
aspjpeg4_mini.height = h4_mini
aspjpeg4_mini.width = aspjpeg4_mini.originalwidth * h4_mini / aspjpeg4_mini.originalheight
end if
aspjpeg4_mini.quality = 85
aspjpeg4_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename4)
set aspjpeg4_mini = nothing
set aspjpeg4 = nothing
set gfs=nothing
end if
if arquivo5_nome<>"" then
'envia o arquivo do campo input-file 5 e o renomeia caso já exista outro com o mesmo nome.
filename5 = tempfolder & "\" & arquivo5_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos5: dotpos5 = instrrev(arquivo5_nome,".")
counter = 1
newfilename5 = arquivo5_nome
if gfs.fileexists(filename5) then
do
counter = counter + 1
newfilename5 = left(arquivo5_nome, dotpos5-1) & "(" & counter & ")" & mid(arquivo5_nome, dotpos5)
loop while gfs.fileexists(tempfolder & "\" & newfilename5)
end if
form("frmarquivo5").saveas tempfolder & "\" & newfilename5
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg5 = server.createobject("persits.jpeg")
imagem5 = server.mappath("../img/galeria_fotos/" & newfilename5)
aspjpeg5.open imagem5
if aspjpeg5.originalwidth > w then
w5 = w
aspjpeg5.width = w5
aspjpeg5.height = aspjpeg5.originalheight * w5 / aspjpeg5.originalwidth
elseif aspjpeg5.originalheight > h then
h5 = h
aspjpeg5.height = h5
aspjpeg5.width = aspjpeg5.originalwidth * h5 / aspjpeg5.originalheight
end if
aspjpeg5.quality = 85
aspjpeg5.save server.mappath("../img/galeria_fotos/" & newfilename5)
'cria uma miniatura da imagem.
set aspjpeg5_mini = server.createobject("persits.jpeg")
imagem5_mini = server.mappath("../img/galeria_fotos/" & newfilename5)
aspjpeg5_mini.open imagem5_mini
if aspjpeg5_mini.originalwidth > w_mini then
w5_mini = w_mini
aspjpeg5_mini.width = w5_mini
aspjpeg5_mini.height = aspjpeg5_mini.originalheight * w5_mini / aspjpeg5_mini.originalwidth
elseif aspjpeg5_mini.originalheight > h_mini then
h5_mini = h_mini
aspjpeg5_mini.height = h5_mini
aspjpeg5_mini.width = aspjpeg5_mini.originalwidth * h5_mini / aspjpeg5_mini.originalheight
end if
aspjpeg5_mini.quality = 85
aspjpeg5_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename5)
set aspjpeg5_mini = nothing
set aspjpeg5 = nothing
set gfs=nothing
end if
if arquivo6_nome<>"" then
'envia o arquivo do campo input-file 6 e o renomeia caso já exista outro com o mesmo nome.
filename6 = tempfolder & "\" & arquivo6_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos6: dotpos6 = instrrev(arquivo6_nome,".")
counter = 1
newfilename6 = arquivo6_nome
if gfs.fileexists(filename6) then
do
counter = counter + 1
newfilename6 = left(arquivo6_nome, dotpos6-1) & "(" & counter & ")" & mid(arquivo6_nome, dotpos6)
loop while gfs.fileexists(tempfolder & "\" & newfilename6)
end if
form("frmarquivo6").saveas tempfolder & "\" & newfilename6
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg6 = server.createobject("persits.jpeg")
imagem6 = server.mappath("../img/galeria_fotos/" & newfilename6)
aspjpeg6.open imagem6
if aspjpeg6.originalwidth > w then
w6 = w
aspjpeg6.width = w6
aspjpeg6.height = aspjpeg6.originalheight * w6 / aspjpeg6.originalwidth
elseif aspjpeg6.originalheight > h then
h6 = h
aspjpeg6.height = h6
aspjpeg6.width = aspjpeg6.originalwidth * h6 / aspjpeg6.originalheight
end if
aspjpeg6.quality = 85
aspjpeg6.save server.mappath("../img/galeria_fotos/" & newfilename6)
'cria uma miniatura da imagem.
set aspjpeg6_mini = server.createobject("persits.jpeg")
imagem6_mini = server.mappath("../img/galeria_fotos/" & newfilename6)
aspjpeg6_mini.open imagem6_mini
if aspjpeg6_mini.originalwidth > w_mini then
w6_mini = w_mini
aspjpeg6_mini.width = w6_mini
aspjpeg6_mini.height = aspjpeg6_mini.originalheight * w6_mini / aspjpeg6_mini.originalwidth
elseif aspjpeg6_mini.originalheight > h_mini then
h6_mini = h_mini
aspjpeg6_mini.height = h6_mini
aspjpeg6_mini.width = aspjpeg6_mini.originalwidth * h6_mini / aspjpeg6_mini.originalheight
end if
aspjpeg6_mini.quality = 85
aspjpeg6_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename6)
set aspjpeg6_mini = nothing
set aspjpeg6 = nothing
set gfs=nothing
end if
if arquivo7_nome<>"" then
'envia o arquivo do campo input-file 7 e o renomeia caso já exista outro com o mesmo nome.
filename7 = tempfolder & "\" & arquivo7_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos7: dotpos7 = instrrev(arquivo7_nome,".")
counter = 1
newfilename7 = arquivo7_nome
if gfs.fileexists(filename7) then
do
counter = counter + 1
newfilename7 = left(arquivo7_nome, dotpos7-1) & "(" & counter & ")" & mid(arquivo7_nome, dotpos7)
loop while gfs.fileexists(tempfolder & "\" & newfilename7)
end if
form("frmarquivo7").saveas tempfolder & "\" & newfilename7
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg7 = server.createobject("persits.jpeg")
imagem7 = server.mappath("../img/galeria_fotos/" & newfilename7)
aspjpeg7.open imagem7
if aspjpeg7.originalwidth > w then
w7 = w
aspjpeg7.width = w7
aspjpeg7.height = aspjpeg7.originalheight * w7 / aspjpeg7.originalwidth
elseif aspjpeg7.originalheight > h then
h7 = h
aspjpeg7.height = h7
aspjpeg7.width = aspjpeg7.originalwidth * h7 / aspjpeg7.originalheight
end if
aspjpeg7.quality = 85
aspjpeg7.save server.mappath("../img/galeria_fotos/" & newfilename7)
'cria uma miniatura da imagem.
set aspjpeg7_mini = server.createobject("persits.jpeg")
imagem7_mini = server.mappath("../img/galeria_fotos/" & newfilename7)
aspjpeg7_mini.open imagem7_mini
if aspjpeg7_mini.originalwidth > w_mini then
w7_mini = w_mini
aspjpeg7_mini.width = w7_mini
aspjpeg7_mini.height = aspjpeg7_mini.originalheight * w7_mini / aspjpeg7_mini.originalwidth
elseif aspjpeg7_mini.originalheight > h_mini then
h7_mini = h_mini
aspjpeg7_mini.height = h7_mini
aspjpeg7_mini.width = aspjpeg7_mini.originalwidth * h7_mini / aspjpeg7_mini.originalheight
end if
aspjpeg7_mini.quality = 85
aspjpeg7_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename7)
set aspjpeg7_mini = nothing
set aspjpeg7 = nothing
set gfs=nothing
end if
if arquivo8_nome<>"" then
'envia o arquivo do campo input-file 8 e o renomeia caso já exista outro com o mesmo nome.
filename8 = tempfolder & "\" & arquivo8_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos8: dotpos8 = instrrev(arquivo8_nome,".")
counter = 1
newfilename8 = arquivo8_nome
if gfs.fileexists(filename8) then
do
counter = counter + 1
newfilename8 = left(arquivo8_nome, dotpos8-1) & "(" & counter & ")" & mid(arquivo8_nome, dotpos8)
loop while gfs.fileexists(tempfolder & "\" & newfilename8)
end if
form("frmarquivo8").saveas tempfolder & "\" & newfilename8
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg8 = server.createobject("persits.jpeg")
imagem8 = server.mappath("../img/galeria_fotos/" & newfilename8)
aspjpeg8.open imagem8
if aspjpeg8.originalwidth > w then
w8 = w
aspjpeg8.width = w8
aspjpeg8.height = aspjpeg8.originalheight * w8 / aspjpeg8.originalwidth
elseif aspjpeg8.originalheight > h then
h8 = h
aspjpeg8.height = h8
aspjpeg8.width = aspjpeg8.originalwidth * h8 / aspjpeg8.originalheight
end if
aspjpeg8.quality = 85
aspjpeg8.save server.mappath("../img/galeria_fotos/" & newfilename8)
'cria uma miniatura da imagem.
set aspjpeg8_mini = server.createobject("persits.jpeg")
imagem8_mini = server.mappath("../img/galeria_fotos/" & newfilename8)
aspjpeg8_mini.open imagem8_mini
if aspjpeg8_mini.originalwidth > w_mini then
w8_mini = w_mini
aspjpeg8_mini.width = w8_mini
aspjpeg8_mini.height = aspjpeg8_mini.originalheight * w8_mini / aspjpeg8_mini.originalwidth
elseif aspjpeg8_mini.originalheight > h_mini then
h8_mini = h_mini
aspjpeg8_mini.height = h8_mini
aspjpeg8_mini.width = aspjpeg8_mini.originalwidth * h8_mini / aspjpeg8_mini.originalheight
end if
aspjpeg8_mini.quality = 85
aspjpeg8_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename8)
set aspjpeg8_mini = nothing
set aspjpeg8 = nothing
set gfs=nothing
end if
if arquivo9_nome<>"" then
'envia o arquivo do campo input-file 9 e o renomeia caso já exista outro com o mesmo nome.
filename9 = tempfolder & "\" & arquivo9_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos9: dotpos9 = instrrev(arquivo9_nome,".")
counter = 1
newfilename9 = arquivo9_nome
if gfs.fileexists(filename9) then
do
counter = counter + 1
newfilename9 = left(arquivo9_nome, dotpos9-1) & "(" & counter & ")" & mid(arquivo9_nome, dotpos9)
loop while gfs.fileexists(tempfolder & "\" & newfilename9)
end if
form("frmarquivo9").saveas tempfolder & "\" & newfilename9
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg9 = server.createobject("persits.jpeg")
imagem9 = server.mappath("../img/galeria_fotos/" & newfilename9)
aspjpeg9.open imagem9
if aspjpeg9.originalwidth > w then
w9 = w
aspjpeg9.width = w9
aspjpeg9.height = aspjpeg9.originalheight * w9 / aspjpeg9.originalwidth
elseif aspjpeg9.originalheight > h then
h9 = h
aspjpeg9.height = h9
aspjpeg9.width = aspjpeg9.originalwidth * h9 / aspjpeg9.originalheight
end if
aspjpeg9.quality = 85
aspjpeg9.save server.mappath("../img/galeria_fotos/" & newfilename9)
'cria uma miniatura da imagem.
set aspjpeg9_mini = server.createobject("persits.jpeg")
imagem9_mini = server.mappath("../img/galeria_fotos/" & newfilename9)
aspjpeg9_mini.open imagem9_mini
if aspjpeg9_mini.originalwidth > w_mini then
w9_mini = w_mini
aspjpeg9_mini.width = w9_mini
aspjpeg9_mini.height = aspjpeg9_mini.originalheight * w9_mini / aspjpeg9_mini.originalwidth
elseif aspjpeg9_mini.originalheight > h_mini then
h9_mini = h_mini
aspjpeg9_mini.height = h9_mini
aspjpeg9_mini.width = aspjpeg9_mini.originalwidth * h9_mini / aspjpeg9_mini.originalheight
end if
aspjpeg9_mini.quality = 85
aspjpeg9_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename9)
set aspjpeg9_mini = nothing
set aspjpeg9 = nothing
set gfs=nothing
end if
if arquivo10_nome<>"" then
'envia o arquivo do campo input-file 10 e o renomeia caso já exista outro com o mesmo nome.
filename10 = tempfolder & "\" & arquivo10_nome
set gfs = createobject("scripting.filesystemobject")
dim dotpos10: dotpos10 = instrrev(arquivo10_nome,".")
counter = 1
newfilename10 = arquivo10_nome
if gfs.fileexists(filename10) then
do
counter = counter + 1
newfilename10 = left(arquivo10_nome, dotpos10-1) & "(" & counter & ")" & mid(arquivo10_nome, dotpos10)
loop while gfs.fileexists(tempfolder & "\" & newfilename10)
end if
form("frmarquivo10").saveas tempfolder & "\" & newfilename10
'redimensiona a imagem caso a largura ou altura excedam os valores máximos estipulados abaixo.
set aspjpeg10 = server.createobject("persits.jpeg")
imagem10 = server.mappath("../img/galeria_fotos/" & newfilename10)
aspjpeg10.open imagem10
if aspjpeg10.originalwidth > w then
w10 = w
aspjpeg10.width = w10
aspjpeg10.height = aspjpeg10.originalheight * w10 / aspjpeg10.originalwidth
elseif aspjpeg10.originalheight > h then
h10 = h
aspjpeg10.height = h10
aspjpeg10.width = aspjpeg10.originalwidth * h10 / aspjpeg10.originalheight
end if
aspjpeg10.quality = 85
aspjpeg10.save server.mappath("../img/galeria_fotos/" & newfilename10)
'cria uma miniatura da imagem.
set aspjpeg10_mini = server.createobject("persits.jpeg")
imagem10_mini = server.mappath("../img/galeria_fotos/" & newfilename10)
aspjpeg10_mini.open imagem10_mini
if aspjpeg10_mini.originalwidth > w_mini then
w10_mini = w_mini
aspjpeg10_mini.width = w10_mini
aspjpeg10_mini.height = aspjpeg10_mini.originalheight * w10_mini / aspjpeg10_mini.originalwidth
elseif aspjpeg10_mini.originalheight > h_mini then
h10_mini = h_mini
aspjpeg10_mini.height = h10_mini
aspjpeg10_mini.width = aspjpeg10_mini.originalwidth * h10_mini / aspjpeg10_mini.originalheight
end if
aspjpeg10_mini.quality = 85
aspjpeg10_mini.save server.mappath("../img/galeria_fotos/mini_" & newfilename10)
set aspjpeg10_mini = nothing
set aspjpeg10 = nothing
set gfs=nothing
end if
'inclui os dados no banco.
if arquivo1_nome<>"" then
um_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName1&"', '"&session("idp")&"', 'I')"
set um = objconexao.execute(um_sql)
um_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName1&"'"
set um_select = objconexao.execute(um_select_sql)
foto1 = um_select("a_codigo")
else
foto1 = 0
end if
if arquivo2_nome<>"" then
dois_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName2&"', '"&session("idp")&"', 'I')"
set dois = objconexao.execute(dois_sql)
dois_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName2&"'"
set dois_select = objconexao.execute(dois_select_sql)
foto2 = dois_select("a_codigo")
else
foto2 = 0
end if
if arquivo3_nome<>"" then
tres_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName3&"', '"&session("idp")&"', 'I')"
set tres = objconexao.execute(tres_sql)
tres_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName3&"'"
set tres_select = objconexao.execute(tres_select_sql)
foto3 = tres_select("a_codigo")
else
foto3 = 0
end if
if arquivo4_nome<>"" then
quatro_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName4&"', '"&session("idp")&"', 'I')"
set quatro = objconexao.execute(quatro_sql)
quatro_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName4&"'"
set quatro_select = objconexao.execute(quatro_select_sql)
foto4 = quatro_select("a_codigo")
else
foto4 = 0
end if
if arquivo5_nome<>"" then
cinco_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName5&"', '"&session("idp")&"', 'I')"
set cinco = objconexao.execute(cinco_sql)
cinco_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName5&"'"
set cinco_select = objconexao.execute(cinco_select_sql)
foto5 = cinco_select("a_codigo")
else
foto5 = 0
end if
if arquivo6_nome<>"" then
seis_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName6&"', '"&session("idp")&"', 'I')"
set seis = objconexao.execute(seis_sql)
seis_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName6&"'"
set seis_select = objconexao.execute(seis_select_sql)
foto6 = seis_select("a_codigo")
else
foto6 = 0
end if
if arquivo7_nome<>"" then
sete_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName7&"', '"&session("idp")&"', 'I')"
set sete = objconexao.execute(sete_sql)
sete_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName7&"'"
set sete_select = objconexao.execute(sete_select_sql)
foto7 = sete_select("a_codigo")
else
foto7 = 0
end if
if arquivo8_nome<>"" then
oito_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName8&"', '"&session("idp")&"', 'I')"
set oito = objconexao.execute(oito_sql)
oito_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName8&"'"
set oito_select = objconexao.execute(oito_select_sql)
foto8 = oito_select("a_codigo")
else
foto8 = 0
end if
if arquivo9_nome<>"" then
nove_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName9&"', '"&session("idp")&"', 'I')"
set nove = objconexao.execute(nove_sql)
nove_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName9&"'"
set nove_select = objconexao.execute(nove_select_sql)
foto9 = nove_select("a_codigo")
else
foto9 = 0
end if
if arquivo10_nome<>"" then
dez_sql = "insert into tab_c_arvore(a_arquivo, a_cod_pai, a_tipo) values ('"&NewFileName10&"', '"&session("idp")&"', 'I')"
set dez = objconexao.execute(dez_sql)
dez_select_sql = "select * from tab_c_arvore where a_arquivo='"&NewFileName10&"'"
set dez_select = objconexao.execute(dez_select_sql)
foto10 = dez_select("a_codigo")
else
foto10 = 0
end if
' verifica se ja existe uma foto definida como principal nessa galeria.
verifica_principal_sql = "select * from tab_c_arvore where a_cod_pai="&session("idp")&" and a_principal=1"
set verifica_principal = objconexao.execute(verifica_principal_sql)
if verifica_principal.eof then
if arquivo1_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto1
set principal = objconexao.execute(principal_sql)
elseif arquivo2_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto2
set principal = objconexao.execute(principal_sql)
elseif arquivo3_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto3
set principal = objconexao.execute(principal_sql)
elseif arquivo4_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto4
set principal = objconexao.execute(principal_sql)
elseif arquivo5_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto5
set principal = objconexao.execute(principal_sql)
elseif arquivo6_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto6
set principal = objconexao.execute(principal_sql)
elseif arquivo7_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto7
set principal = objconexao.execute(principal_sql)
elseif arquivo8_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto8
set principal = objconexao.execute(principal_sql)
elseif arquivo9_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto9
set principal = objconexao.execute(principal_sql)
elseif arquivo10_nome<>"" then
principal_sql = "update tab_c_arvore set a_principal=1 where a_codigo="&foto10
set principal = objconexao.execute(principal_sql)
else
end if
end if
if session("redir")=1 then
response.redirect"default2.asp?galerias=adicionar_legenda&idp="&session("idp")&"&ref="&session("ref")&"&foto1="&foto1&"&foto2="&foto2&"&foto3="&foto3&"&foto4="&foto4&"&foto5="&foto5&"&foto6="&foto6&"&foto7="&foto7&"&foto8="&foto8&"&foto9="&foto9&"&foto10="&foto10
end if
End Function
Dim UploadID, PostURL
UploadID = Form.NewUploadID
PostURL = "default2.asp?galerias=adicionar_foto&idp="&request("idp")&"&ref="&request("ref")&"&redirect=1"
%>
<% if request("idcontrato")<>"" then %> <% session("idcontrato")=request("idcontrato") %> <% else %> <% end if %>
<%if session("idcontrato")=2 then%>
Atenção: Este recurso não está visível em seu site atualmente, embora esteja disponível para utilização sem custo adicional. Caso queira empregá-lo em seu site, solicite através do email
suporte@balaminut.com.br.
<% elseif session("idcontrato")=3 then%>
Atenção: Este recurso não está disponível em seu site atualmente, conforme os termos estabelecidos no contrato. Caso queira empregá-lo em seu site, entre em contato com nosso Departamento Comercial através do email
vendas@balaminut.com.br, ou pelo telefone (19) 2105 1000.
<%end if%>
<%if request("msg")=1 then%>
Foto de capa alterada com sucesso.
<%end if%>
<%if request("msg")=2 then%>
Foto excluída com sucesso.
<%end if%>
<%if request("msg")=3 then%>
Foto editada com sucesso.
<%end if%>
<%if request("msg")=4 then%>
Fotos excluídas com sucesso.
<%end if%>
<%if request("msg")=5 then%>
Selecione alguma foto para exclusão.
<%end if%>
Galerias de Fotos
<%
titulo_galeria_sql = "select * from tab_c_arvore where a_codigo="&session("idp")
set titulo_galeria = objconexao.execute(titulo_galeria_sql)
%>
<%=titulo_galeria("a_nome")%>
<%
fotos_sql = "select * from tab_c_arvore where a_tipo='I' and a_cod_pai="&session("idp")&" order by a_codigo desc"
set fotos = objconexao.execute(fotos_sql)
%>
<%if fotos.eof then%><%else%>
<%end if%>