Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Com Formulario Upload

monique

Perguntado por monique,

 Share

Pergunta

monique

monique

Postado
Postado

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 para o comentário
Compartilhar em outros sites

25 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado
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 para o comentário
Compartilhar em outros sites
  • 0
monique

monique

Postado
  • Autor
Postado

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" , "contato@contato.com.br"

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 para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado
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 para o comentário
Compartilhar em outros sites
  • 0
monique

monique

Postado
  • Autor
Postado

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" , "contato@contato.com.br"

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 para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

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" , "contato@contato.com.br"
	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 para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado
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" , "contato@contato.com.br"
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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...