Jump to content
Fórum Script Brasil
  • 0

Problemas Com Formulario Upload


monique
 Share

Question

olá pessoal!

E o seguinte to tentando fazer um formulario acontece que toda vez que preencho o form e peço para fazer o upload daquele aquivo para um diretorio... só o upload funciona... as outras informações (nome...mensagem...email) do formulário não são enviadas.

Alguém poderia me ajudar...

já tentei colocar tudo no código mas não funcionou... sad.gif

obrigada!

Link to comment
Share on other sites

25 answers to this question

Recommended Posts

  • 0

Qual componente de Upload você esta utilizando???

Na maioria dos componentes de uploads voce não consegue recuperar os dados do formulario através de Request.Form ou Request.QueryString.

Mas se voce der uma olhada na documentação do componente tem como recuperar esses dados.

No dundas.Upload por exemplo voce usa a construção: ObjetoUpload.Form("campo")

De uma olhada na documentação do componente.

Link to comment
Share on other sites

  • 0
olá pessoal!

E o seguinte to tentando fazer um formulario acontece que toda vez que preencho o form e peço para fazer o upload daquele aquivo para um diretorio... só o upload funciona... as outras informações (nome...mensagem...email) do formulário não são enviadas.

Alguém poderia me ajudar...

já tentei colocar tudo no código mas não funcionou... sad.gif

obrigada!

Xuxu!!!

View Code pra galera lhe ajudar... wink.gif

Link to comment
Share on other sites

  • 0

bom... o código estava assim:

<%

Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.Save("d:\Inetpub\clientes\xxxxxx\Html\uploads")

Response.Write Count & " Arquivo(s) enviados com sucesso"

%>

com isso o upload funcionou... estou tentando agora receber as informações restantes... ai tentei várias coisas...

<%

Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.Save("d:\Inetpub\clientes\xxxxxx\Html\uploads")

Response.Write Count & " Arquivo(s) enviados com sucesso"

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = request("nome")

Mailer.FromAddress = request("email")

Mailer.RemoteHost = "smtp.vanet.com(.br)"

Mailer.AddRecipient "Formulário" , "[email protected]"

Mailer.Subject = "Formulário"

Mailer.BodyText = "Nome..........: " & request.form("nome") & vbcrlf

Mailer.BodyText = "E-mail.........: " & request.form("email") & vbcrlf

Mailer.BodyText = "Mensagem..: " & request.form("mensagem") & vbcrlf

if Mailer.SendMail then

Response.redirect "http://www.manito.com.br/obrigado.asp"

else

Response.Write mailer.response

end if

%>

agradeço!

Link to comment
Share on other sites

  • 0

Sei lá!!

Vamos ver se matamos esta coruja...

 var_Urso = Mailer.Form("Campo")
Tenta aí...
Acho que pro tiro ser mais certeiro quem que ser algo assim:
Mailer.FromName = Upload.Form("nome")
Se este não matar.... ao menos aléja!!! laugh.gif Falando sério... vou parar de gracinha, tem gente precisando de ajuda... Documentation:
<%
For Each Item in Upload.Form
Response.Write Item.Name & "= " & Item.Value & "<BR>"
Next
%>

Link to comment
Share on other sites

  • 0
não funcionou tb...

poderiam me mostrar onde coloco isso no código... para eu conferir...

obrigada.

nome = Upload.Form("Nome")
Mailer.FromName = CStr(nome)

Talvez seja isso...

A 1ª linha puxa o campo nome, do form de upload e deixa-o numa variavel.

a 2ª linha, atribui a propriedade FromName do objeto Mailer o conteudo da variavel nome.

Link to comment
Share on other sites

  • 0

deu erro:

1 Arquivo(s) enviados com sucesso

Request object error 'ASP 0208 : 80004005'

Cannot use generic Request collection

/aspupload.asp, line 10

Cannot use the generic Request collection after calling BinaryRead.

acho que coloquei em lugar errado:

<%

Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.Save("d:\Inetpub\clientes\xxxxx\Html\uploads")

Response.Write Count & " Arquivo(s) enviados com sucesso"

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = request("nome")

Mailer.FromAddress = request("email")

Mailer.RemoteHost = "smtp.vanet.com(.br)"

Mailer.AddRecipient "Formulário" , "[email protected]"

Mailer.Subject = "Formulário"

nome = Upload.Form("Nome")

Mailer.FromName = CStr(nome)

email = Upload.Form("email")

Mailer.FromName = CStr(email)

mensagem = Upload.Form("mensagem")

Mailer.FromName = CStr(mensagem)

if Mailer.SendMail then

Response.redirect "http://www.manito.com.br/obrigado.asp"

else

For Each Item in Upload.Form

Response.Write Item.Name & "= " & Item.Value & "<BR>"

Next

end if

%>

Link to comment
Share on other sites

  • 0

estou começando a fazer programação... ainda n sei onde colocar alguns itens...

Relaxa.....

Eu também to começando em programação... laugh.gif

<%
	'v.ursolouco - loucura na web


	Set objUpLoad = Server.CreateObject("Persits.Upload")
	Count = objUpLoad.Save("d:\Inetpub\clientes\xxxxx\Html\uploads")
	Nome = objUpLoad.Form("Nome")
	EMail = objUpLoad.Form("Email")
	Mensagem = objUpLoad.Form("Mensagem")

	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

	Mailer.FromName = Nome
	Mailer.FromAddress = EMail
	Mailer.RemoteHost = "smtp.vanet.com.br"
	Mailer.AddRecipient "Formulário" , "[email protected]"
	Mailer.Subject = "Formulário"

	If Mailer.SendMail Then
  Response.redirect "http://www.manito.com.br/obrigado.asp"
	Else
  Response.Write("Não foi possivel realizar o envio")
	End if	

%>

Fiz este código por cima, veja se funciona...

Bjão!!!

Link to comment
Share on other sites

  • 0
Ele continua fazendo o upload... mas nada de receber as informações...

deu isso:

Não foi possivel realizar o envio

Experimentar, preencher os campos, e ver se os dados, estão sendo recebidos com o seguinte codigo:

<%
'v.ursolouco - loucura na web


Set objUpLoad = Server.CreateObject("Persits.Upload")
Count = objUpLoad.Save("d:\Inetpub\clientes\xxxxx\Html\uploads")
Nome = objUpLoad.Form("Nome")
EMail = objUpLoad.Form("Email")
Mensagem = objUpLoad.Form("Mensagem")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = Nome
Response.Write(Nome & "<br>")
Mailer.FromAddress = EMail
Response.Write(EMail & "<br>")
Response.Write(Mensagem)
Mailer.RemoteHost = "smtp.vanet.com.br"
Mailer.AddRecipient "Formulário" , "[email protected]"
Mailer.Subject = "Formulário"

If Mailer.SendMail Then
 Response.redirect "http://www.manito.com.br/obrigado.asp"
Else
 Response.Write("Não foi possivel realizar o envio")
End if 

%>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.7k
    • Total Posts
      648.4k
×
×
  • Create New...