não consigo recuperar dados dos texts fields, do formulario e quando envia os dados vai tudo em branco as variaveis.
já tentei colocar a recuperação de dados, em varios lugares inclusive depois do upload.Save, mas nada.
<%
Set Upload = Server.CreateObject("Persits.Upload")
nome = Upload.form("nome")
email = Upload.form("email")
serie = Upload.form("serie")
data = Upload.form("dia")&"/"&request.form("mes")
mensagem = Upload.form("mensagem")
Upload.SetMaxSize 10485760, True
Upload.OverwriteFiles = False
On Error Resume Next
' Local a ser gravado o upload
Upload.Save ("C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp")
' 8 é o número do erro que corresponde a "Arquivo grande demais"
if Err.Number = 8 Then
Response.Write "Seu arquivo é grande demais. Por favor use um arquivo menor."
End if
For Each File in Upload.Files
arquivo = File.FileName
Next
set Upload = nothing
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.colegiojunqueiralemos.com.br"
Mail.Port = 25
Mail.Username = "mensagem@colegiojunqueiralemos.com.br"
Mail.Password = "xxx"
Mail.From = "email@ggg.com" 'coloco a variavel email mas fica em branco
Mail.FromName = "nome" 'variavem nome fica em branco
Mail.AddAddress "guilherme@colegiojunqueiralemos.com.br", "Gui"
Mail.Subject = "Assunto do e-mail"
Mail.Body = "<HTML><BODY B>Prezado senhor:"&nome&", "&email&", "&serie&", "&data&"</BODY></HTML>"
Mail.IsHTML = True
Mail.AddAttachment "C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp\"&arquivo
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Foi encontrado um erro: " &_
Err.Description
End If
Set mail=nothing
Set Objeto = Server.CreateObject("Scripting.FileSystemObject")
Objeto.DeleteFile "C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp\"&arquivo
Set Objeto = Nothing
%>
Pergunta
Guilherme Teixeira
Olá Amigos,
não consigo recuperar dados dos texts fields, do formulario e quando envia os dados vai tudo em branco as variaveis.
já tentei colocar a recuperação de dados, em varios lugares inclusive depois do upload.Save, mas nada.
<% Set Upload = Server.CreateObject("Persits.Upload") nome = Upload.form("nome") email = Upload.form("email") serie = Upload.form("serie") data = Upload.form("dia")&"/"&request.form("mes") mensagem = Upload.form("mensagem") Upload.SetMaxSize 10485760, True Upload.OverwriteFiles = False On Error Resume Next ' Local a ser gravado o upload Upload.Save ("C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp") ' 8 é o número do erro que corresponde a "Arquivo grande demais" if Err.Number = 8 Then Response.Write "Seu arquivo é grande demais. Por favor use um arquivo menor." End if For Each File in Upload.Files arquivo = File.FileName Next set Upload = nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.colegiojunqueiralemos.com.br" Mail.Port = 25 Mail.Username = "mensagem@colegiojunqueiralemos.com.br" Mail.Password = "xxx" Mail.From = "email@ggg.com" 'coloco a variavel email mas fica em branco Mail.FromName = "nome" 'variavem nome fica em branco Mail.AddAddress "guilherme@colegiojunqueiralemos.com.br", "Gui" Mail.Subject = "Assunto do e-mail" Mail.Body = "<HTML><BODY B>Prezado senhor:"&nome&", "&email&", "&serie&", "&data&"</BODY></HTML>" Mail.IsHTML = True Mail.AddAttachment "C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp\"&arquivo On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Foi encontrado um erro: " &_ Err.Description End If Set mail=nothing Set Objeto = Server.CreateObject("Scripting.FileSystemObject") Objeto.DeleteFile "C:\Inetpub\vhosts\colegiojunqueiralemos.com.br\httpdocs\portal\temp\"&arquivo Set Objeto = Nothing %>Editado por Guilherme TeixeiraLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.