Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

DJ W

Qual o Erro?

Por , em ASP Clássico

Recommended Posts

DJ W    0

DJ W
Postado

Fala ai Galera, beleza?Fiz o seguinte código quando do clique no botão enviar de um Form:

<%'VariáveisDim msgTxtDim subjectmsgTxt = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""center"">" _& "<font face=""Verdana,Arial,Helvetica,sans-serif"" size=""2"">"msgTxt = msgTxt & Request.QueryString("nome") & vbCrLfmsgTxt = msgTxt & "Enviou um e-mail com os seguintes dados:" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Dados Pessoais:" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Endereço: " & Request.QueryString("endereco") & vbCrLf msgTxt = msgTxt & "Bairro: " & Request.QueryString("bairro") & vbCrLfmsgTxt = msgTxt & "Cidade: " & Request.QueryString("cidade") & "    " & "Estado: " & Request.QueryString("estado") & vbCrLf msgTxt = msgTxt & "Telefone: " & Request.QueryString("telefone") & vbCrLfmsgTxt = msgTxt & "Fax: " & Request.QueryString("fax") & vbCrLfmsgTxt = msgTxt & "Data de Nascimento: " & Request.QueryString("data_nascimento") & vbCrLfmsgTxt = msgTxt & "Estado Civil " & Request.QueryString("estado_civil") & vbCrLfmsgTxt = msgTxt & "Identidade " & Request.QueryString("identidade") & vbCrLfmsgTxt = msgTxt & "Órgão Expedidor " & Request.QueryString("orgao_expedidor") & vbCrLfmsgTxt = msgTxt & "E-mail: " & Request.QueryString("email") & vbCrLf msgTxt = msgTxt & "Objetivo: " & Request.QueryString("objetivo") & vbCrLf msgTxt = msgTxt & vbCrLf & vbCrLfmsgTxt = msgTxt & "Grau de Escolaridade:" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Graduação " & Request.QueryString("graduacao") & vbCrLf msgTxt = msgTxt & "Curso " & Request.QueryString("curso") & vbCrLfmsgTxt = msgTxt & "Instituição " & Request.QueryString("instituicao") & vbCrLfmsgTxt = msgTxt & "Situação do Curso " & Request.QueryString("situacao_curso") & vbCrLfmsgTxt = msgTxt & "Cursos de Atualização " & Request.QueryString("cursos_atualizacao") & vbCrLfmsgTxt = msgTxt & vbCrLf & vbCrLfmsgTxt = msgTxt & "Idiomas" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Inglês - Nível de Leitura " & Request.QueryString("Ingles_le") & vbCrLfmsgTxt = msgTxt & "Inglês - Nível de Escrita " & Request.QueryString("Ingles_escrita") & vbCrLfmsgTxt = msgTxt & "Inglês - Nível de Conversação " & Request.QueryString("Ingles_fala") & vbCrLfmsgTxt = msgTxt & "Espanhol - Nível de Leitura " & Request.QueryString("Espanhol_le") & vbCrLfmsgTxt = msgTxt & "Espanhol - Nível de Escrita " & Request.QueryString("Espanhol_escrita") & vbCrLfmsgTxt = msgTxt & "Espanhol - Nível de Conversação " & Request.QueryString("Espanhol_fala") & vbCrLfmsgTxt = msgTxt & "Conhecimentos de Informática " & vbCrLf & vbCrLfmsgTxt = msgTxt & Request.QueryString("informatica") & vbCrLf & vbCrLfmsgTxt = msgTxt & "Experiência Profissional" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Último Emprego" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Empresa " & Request.QueryString("ultima_empresa") & vbCrLfmsgTxt = msgTxt & "Período de" & Request.QueryString("ultima_empresa_periodo_inicial") msgTxt = msgTxt & "até" & Request.QueryString("ultima_empresa_periodo_fim") & vbCrLfmsgTxt = msgTxt & "Cargo" & Request.QueryString("ultima_empresa_cargo") & vbCrLfmsgTxt = msgTxt & "Motivo da Saída" & Request.QueryString("ultima_empresa_motivo_saida") & vbCrLf & vbCrLf & vbCrLf'Penultima EmpresamsgTxt = msgTxt & "Penúltimo Emprego" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Empresa " & Request.QueryString("penultima_empresa") & vbCrLfmsgTxt = msgTxt & "Período de" & Request.QueryString("penultima_empresa_periodo_inicial") msgTxt = msgTxt & "até" & Request.QueryString("penultima_empresa_periodo_fim") & vbCrLfmsgTxt = msgTxt & "Cargo" & Request.QueryString("penultima_empresa_cargo") & vbCrLfmsgTxt = msgTxt & "Motivo da Saída" & Request.QueryString("penultima_empresa_motivo_saida") & vbCrLf & vbCrLf & vbCrLf'Antepenultima EmpresamsgTxt = msgTxt & "Antepenúltimo Emprego" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Empresa " & Request.QueryString("antepenultima_empresa") & vbCrLfmsgTxt = msgTxt & "Período de" & Request.QueryString("antepenultima_empresa_periodo_inicial") msgTxt = msgTxt & "até" & Request.QueryString("antepenultima_empresa_periodo_fim") & vbCrLfmsgTxt = msgTxt & "Cargo" & Request.QueryString("antepenultima_empresa_cargo") & vbCrLfmsgTxt = msgTxt & "Motivo da Saída" & Request.QueryString("antepenultima_empresa_motivo_saida") & vbCrLf & vbCrLf & vbCrLf'Resumo das Principais Atividades Exercidas e Habilidades PessoaismsgTxt = msgTxt & "Resumo das Principais Atividades Exercidas e Habilidades Pessoais:" & vbCrLf & vbCrLfmsgTxt = msgTxt & "Hobbies " & Request.QueryString("hobbies") & vbCrLfmsgTxt = msgTxt & "Dados Complementares " & Request.QueryString("Dados_Complementares") & vbCrLfmsgTxt = msgTxt & "Funções que poderia exercer " & Request.QueryString("funcoes_exercidas") & vbCrLfmsgTxt = msgTxt & "Horário disponível " & Request.QueryString("horario_disponivel") & vbCrLfmsgTxt = msgTxt & "Salário pretendido " & Request.QueryString("salario_pretendido") & vbCrLfmsgTxt = msgTxt & "Mínimo aceito " & Request.QueryString("salario_inicial") & vbCrLfmsgTxt = msgTxt & "Como conheceu a Potencial Humano Consultoria " & Request.QueryString("conheceu") & vbCrLfmsgTxt = msgTxt & "</font></p>" _& "</body>" _& "</html>" Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = Request.QueryString("nome")Mailer.FromAddress= Request.QueryString("email")Mailer.RemoteHost = "meu servidor de smtp"Mailer.AddRecipient = "Wescley Arruda","meuemail@xxx.com.br"Mailer.ContentType = "text/html"Mailer.Subject = "E-mail"Mailer.BodyText = msgTxtif Mailer.SendMail then    Response.Write "O E-mail foi enviado"else    Response.Write "O e-mail não foi enviado devido a um erro. O erro foi " & Mailer.Responseend if%>

Sempre dá mensagem de erro....Alguém poderia me dar uma ajuda...pois não conheço muito de ASP...Valeu a força[]`sWescley

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Qual erro está dando?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito