erro upload e envio de email

[mateushim 0]

daew galerato nesse erro faz tempoespero que alguem de vcs saibam como resolver

<%Dim CountSet Upload = Server.CreateObject("Persits.Upload.1")Count = upload.Save("\\terraempresas.com.br\cluster2\vanibe\wwwroot\campanha\fotos")%><%=Count %>Upload com Sucesso!<%Set Mail = Server.CreateObject("SMTPsvg.Mailer") With Mail.FromName = "Mateus" 'Nome do remetente.FromAddress= "mateusgamba@gmail.com" 'Email do remetente.RemoteHost = "smtp.cua.terra.com.br" 'Servidor de envio de email.AddRecipient "mateus", "mateusgamba@gmail.com" 'Nome e/ou email do destinatário.ContentType = "text/html" 'Tipo do corpo do email.HTML.Subject = "Bem na Foto com Vanibele" 'Assunto do email.BodyText =  "<b>Bem na Foto com Vanibele</b><br><br><b>Nome: </b>"&(request.QueryString("nome"))&"<br><b>Idade: </b>"&(request.QueryString("idade"))&"<br><b>Endereço: </b>"&(request.QueryString("endereco"))&"<br><b>Telefone: </b>"&(request.QueryString("fone"))&"<br><b>Responsável: </b>"&(request.QueryString("responsavel"))'&"<br><b>Foto: </b>"&(request.QueryString("FILE1")).SendMail 'Envia o emailEnd WithResponse.write("Email enviado com sucesso<br>")set Mail = nothing%>

no arquivo que manda pra esse arquivo ASP eu to usando o metodo GETo erro que ta dando eh esse:

Persits.Upload.1 error '800a0003'Nothing has been posted./campanha/fotos/Aspupload.asp, line 5

axo q eh isso

[mateushim 0]

ai agora eu fiz com o metodo postdeu esse erro:

Request object error 'ASP 0207 : 80004005'Cannot use Request.Form/campanha/fotos/Aspupload.asp, line 21Cannot use Request.Form collection after calling BinaryRead.

e desse jeito salvo a foto no servidor, soh que não mandou email =[o codigo:

<%Dim CountSet Upload = Server.CreateObject("Persits.Upload.1")Count = upload.Save("\\terraempresas.com.br\cluster2\vanibe\wwwroot\campanha\fotos")%><%=Count %>Upload com Sucesso!<%Set Mail = Server.CreateObject("SMTPsvg.Mailer") With Mail.FromName = "Mateus" 'Nome do remetente.FromAddress= "mateusgamba@gmail.com" 'Email do remetente.RemoteHost = "smtp.cua.terra.com.br" 'Servidor de envio de email.AddRecipient "mateus", "mateusgamba@gmail.com" 'Nome e/ou email do destinatário.ContentType = "text/html" 'Tipo do corpo do email.HTML.Subject = "Bem na Foto com Vanibele" 'Assunto do email.BodyText =  "<b>Bem na Foto com Vanibele</b><br><br><b>Nome: </b>"&(request.Form("nome"))&"<br><b>Idade: </b>"&(request.Form("idade"))&"<br><b>Endereço: </b>"&(request.Form("endereco"))&"<br><b>Telefone: </b>"&(request.Form("fone"))&"<br><b>Responsável: </b>"&(request.Form("responsavel"))&"<br><b>Foto: </b>"&(request.QueryString("FILE1"))'.BodyText = "teste".SendMail 'Envia o emailEnd WithResponse.write("Email enviado com sucesso<br>")set Mail = nothing%>

[ultra 0]

você nao pode usar Request.formNo caso, como você criou o objeto Upload, você deve usar Upload.Form("")

[mateushim 0]

você nao pode usar Request.formNo caso, como você criou o objeto Upload, você deve usar Upload.Form("")

hummm...pod em explicar pq eh usado isso?

[ultra 0]

A explicação exata eu num sei, mas acho q quando você cria o objeto ele deve assumir o Form para poder dar o request no FILEignorem se falei besteira

[mateushim 0]

A explicação exata eu num sei, mas acho q quando você cria o objeto ele deve assumir o Form para poder dar o request no FILEignorem se falei besteira

mas vlw caramais uma coisacomo que eu pego somente o nome do arquivo que foi mandadotipo tem o caminho que ele pega c:\windows\imagem01.jpgcomo que eu faço pra pega somente o imagem01.jpg?

[ultra 0]

muda o .filepath por .filename[]'s

[mateushim 0]

muda o .filepath por .filename[]'s

como assim?

[ultra 0]

Troca o upload.filepath pelo upload.filename

[mateushim 0]

Troca o upload.filepath pelo upload.filename

mas eu to querendo dizerem q linha q eu troco issopod faze isso pra mim pra mim v?

[ultra 0]

posta seu código ae

[mateushim 0]

<%

Dim campanhaSet campanha = Server.CreateObject("ADODB.Recordset")campanha.ActiveConnection = MM_vanibe_STRINGcampanha.Source = "insert into campanha_emails(nome,idade,endereco,telefone,responsavel,foto)values('"&(Upload.Form("nome"))&"','"&(Upload.Form("idade"))&"','"&(Upload.Form("endereco"))&"','"&(Upload.Form("fone"))&"','"&(Upload.Form("responsavel"))&"','"&(Upload.Form("FILE1"))&"')"campanha.Open()%>

[ultra 0]

debaixo da linha :Count = upload.Save("\\terraempresas.com.br\cluster2\vanibe\wwwroot\campanha\fotos")acrescenta:vNome = upload.filename

[mateushim 0]

debaixo da linha :Count = upload.Save("\\terraempresas.com.br\cluster2\vanibe\wwwroot\campanha\fotos")acrescenta:vNome = upload.filename

ai no lugar do (Upload.Form("FILE1") eu coloco vNome?

[ultra 0]

Se você colocar o vNome no lugar, ele vai tentar gravar o nome do arquivo no campo do BD (q deve ser Objeto OLE) e vai dar erro.Seu código é pra gravar imagem no Banco de dados, certo ? cria outro campo nessa tabela com o nome Filename (texto) e poe o vNome alí

[mateushim 0]

Se você colocar o vNome no lugar, ele vai tentar gravar o nome do arquivo no campo do BD (q deve ser Objeto OLE) e vai dar erro.Seu código é pra gravar imagem no Banco de dados, certo ? cria outro campo nessa tabela com o nome Filename (texto) e poe o vNome alí

quero apenas gravar o nome do arquivo no banco e naum o arquivo no banco

[ultra 0]

Intao troca pelo vNome e certifique-se q o campo no BD é pra texto.e Tenta rodar

[mateushim 0]

Intao troca pelo vNome e certifique-se q o campo no BD é pra texto.e Tenta rodar

assim deu esse erro

Microsoft VBScript runtime error '800a01b6'Object doesn't support this property or method: 'filename'/campanha/fotos/Aspupload.asp, line 6

eu fiz assim ow

<%Dim CountSet Upload = Server.CreateObject("Persits.Upload.1")Count = upload.Save("\\terraempresas.com.br\cluster2\vanibe\wwwroot\campanha\fotos")vNome = upload.filename%><%=Count %>Upload com Sucesso!<%Set Mail = Server.CreateObject("SMTPsvg.Mailer") With Mail.FromName = "Mateus" 'Nome do remetente.FromAddress= "mateusgamba@gmail.com" 'Email do remetente.RemoteHost = "smtp.cua.terra.com.br" 'Servidor de envio de email.AddRecipient "mateus", "mateusgamba@gmail.com" 'Nome e/ou email do destinatário.ContentType = "text/html" 'Tipo do corpo do email.HTML.Subject = "Bem na Foto com Vanibele" 'Assunto do email.BodyText =  "<b>Bem na Foto com Vanibele</b><br><br><b>Nome: </b>"&(Upload.Form("nome"))&"<br><b>Idade: </b>"&(Upload.Form("idade"))&"<br><b>Endereço: </b>"&(Upload.Form("endereco"))&"<br><b>Telefone: </b>"&(Upload.Form("fone"))&"<br><b>Responsável: </b>"&(Upload.Form("responsavel"))&"<br><b>Foto: </b>"&(Upload.Form("FILE1"))'.BodyText = "teste".SendMail 'Envia o emailEnd WithResponse.write("Email enviado com sucesso<br>")set Mail = nothing%><!--#include file="../../Connections/vanibe.asp" --><%Dim campanhaSet campanha = Server.CreateObject("ADODB.Recordset")campanha.ActiveConnection = MM_vanibe_STRINGcampanha.Source = "insert into campanha_emails(nome,idade,endereco,telefone,responsavel,foto)values('"&(Upload.Form("nome"))&"','"&(Upload.Form("idade"))&"','"&(Upload.Form("endereco"))&"','"&(Upload.Form("fone"))&"','"&(Upload.Form("responsavel"))&"','"& vNome &"')"campanha.Open()%>

[ultra 0]

hhmmmtroca a linha por :vNome = upload.GetFileName(upload.Files(0).Path)

[mateushim 0]

hhmmmtroca a linha por :Count = upload.GetFileName(upload.Files(0).Path)

assim?<%Dim CountSet Upload = Server.CreateObject("Persits.Upload.1")Count = upload.Save("\\terraempresas.com.br\cluster2\vanibe\wwwroot\campanha\fotos")Count = upload.GetFileName(upload.Files(0).Path)%>o nome continua Upload.Form("FILE1") ?