Upload de fotos com request.form

[Guilherme Teixeira]

Olá ASP'ers,

bom creio eu que seja este um dos problemas mais comuns mas não 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

[bareta]

consulte a documentação do seu componente.

[Rafael Spilki]

tente assim:

titulo = acentos(Upload.form("titulo"))

[]'s