[Resolvido] Upload de fotos com request.form

[Guilherme Teixeira 0]

Olá ASP'ers,

 

bom creio eu que seja este um dos problemas mais comuns mas nao estou conseguindo resolver.

 

A famosa mensagem:

 

Não é possível usar a coleção Request.Form após chamar BinaryRead.

 

<!--#include file="includes/seg.asp"-->
<!--#include file="includes/acentos.asp"-->
<!--#include file="includes/connect.asp"-->
<%
Response.Expires = 0

dim titulo, descricao, corpo, add, fotos(12), upload, jpeg, x, y
'sobe as fotos

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.Save Server.MapPath("..\portal\noticias")

'prepara as fotos

x = 0

For Each File in Upload.Files

Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Abre a imagem que está gravada na pastado site
Jpeg.Open  Server.MapPath("..\portal\noticias")&"\"&File.FileName

if cint(Jpeg.Width) > 310 then

Jpeg.Height = (310*Jpeg.Height)/Jpeg.Width
Jpeg.Width = 310


End if

Jpeg.Quality = 80

'Cria o thumbnail e grava na mesma pasta, porém com outro nome
Jpeg.Save Server.MapPath("..\portal\noticias\")&"\"&File.FileName

Set Jpeg = Nothing

fotos(x) = File.FileName

x = x + 1 
Next

Set upload = nothing
Set jpeg = nothing

'vars
titulo = acentos(request.form("titulo"))
descricao = acentos(request.form("descricao"))
corpo = acentos(request.form("descricao"))

'adiciona
Set add = Server.CreateObject("ADODB.Recordset")
add.Open "Noticias",conn,2,3
add.AddNew
add("Titulo") = titulo
add("Descricao") = descricao
add("corpo") = tipo

for y = 0 to x-1
add("foto"&y) = fotos(y)
next

add.Update

set add = nothing

response.write "ok"
%>

Alguém conehce alguma alternativa?

 

Obrigado

[xanburzum 169]

verifique se você esta usando campo do tipo file, para upload, e esta usando o request nesse campo nao se usa isso.

 

você pode recuperar pela Querystring.

ou tb

variavel = UploadRequest.Item("campo_form").Item("Value")

[Guilherme Teixeira 0]

eu alterei para isto

 

titulo = acentos(Upload.Item("titulo").Item("Value") )

descricao = acentos(Upload.Item("descricao").Item("Value") )

corpo = acentos(Upload.Item("corpo").Item("Value") )

 

e deu este erro

 

O objeto não dá suporte para a propriedade ou método: 'Item'

[xanburzum 169]

troca a linha:

 

nome_foto = objUpload.Item("campo_form").Item("Value")

 

por

 

nome_foto = objUpload.Form("campo_form")

[Guilherme Teixeira 0]

Muito Obrigado!!!

 

 

Deu certo! http://forum.imasters.com.br/public/style_emoticons/default/graduated.gif

[xanburzum 169]

he, hei....

beleza, mano