No formulario que estou usando, não sei como "pegar" o nome e o telefone, digitado pelo usuario.
Segue o codigo abaixo.
[]'s
Fernando Luiz
Formulario.asp
<html>
<body>
<head>
<title>Teste Gabi</title>
</head>
<center>
<table cellpading="3" cellspacing="0">
<tr><td allign="center">
<font face = "arial" size = "2">
<strong>Fale Conosco</strong>
</td></tr><td allign="right">
<FORM ACTION="RecForm.asp" METHOD = "POST">
<font face ="verdana" size="1">
<br>Nome: <INPUT TYPE = Text NAME = "EnvNome" SIZE="25">
<BR>E-mail: <INPUT TYPE = Text NAME = "EnvEmail" SIZE="25">
<BR>Telefone: <INPUT TYPE = Text NAME = "EnvTelefone" SIZE="23">
<BR>Mensagem:
<br><textarea NAME = "Mensagem" rows="5" cols="30" ></textarea>
<br>*Todos os campos são obrigatórios
<BR>
<INPUT TYPE = Submit VALUE = "Enviar">
</form>
</body>
</html>
RecForm.asp
<%
Dim nome, email, telefone
nome = Request.Form("EnvNome")
email = Request.Form("EnvEmail")
telefone = Request.Form("EnvTelefone")
mensagem = Request.Form("Mensagem")
Session("nomesess") = Request.Form("EnvNome")
Session("emailsess") = Request.Form("EnvEmail")
Session("telefonesess") = Request.Form("EnvTelefone")
'Verificando se os dados estao vazios
if nome = "" then
Response.Redirect "Err.asp?erro=1"
end if
if email = "" then
Response.Redirect "Err.asp?erro=2"
end if
if telefone = "" then
Response.Redirect "Err.asp?erro=3"
end if
'Verificando se o campo email é valido
Dim verif_email
verif_email = email
email_val = InStr(email,"@")
email_val2 = InStr(email,".")
if email_val = false then
Response.Redirect "Err.asp?erro=2"
end if
if email_val2 = false then
Response.Redirect "Err.asp?erro=2"
end if
'Enviando email pelo CDONTS
set mail = Server.CreateObject("CDONTS.Newmail")
mail.From = email
mail.To = "f_loureiro@terra.com.br"
mail.Subject = "Sitio Gabi"
mail.Body = mensagem
mail.Send
set mail = nothing
%>
Pergunta
Fernando Luiz
Pessoal,
No formulario que estou usando, não sei como "pegar" o nome e o telefone, digitado pelo usuario.
Segue o codigo abaixo.
[]'s
Fernando Luiz
Formulario.asp
RecForm.asp<% Dim nome, email, telefone nome = Request.Form("EnvNome") email = Request.Form("EnvEmail") telefone = Request.Form("EnvTelefone") mensagem = Request.Form("Mensagem") Session("nomesess") = Request.Form("EnvNome") Session("emailsess") = Request.Form("EnvEmail") Session("telefonesess") = Request.Form("EnvTelefone") 'Verificando se os dados estao vazios if nome = "" then Response.Redirect "Err.asp?erro=1" end if if email = "" then Response.Redirect "Err.asp?erro=2" end if if telefone = "" then Response.Redirect "Err.asp?erro=3" end if 'Verificando se o campo email é valido Dim verif_email verif_email = email email_val = InStr(email,"@") email_val2 = InStr(email,".") if email_val = false then Response.Redirect "Err.asp?erro=2" end if if email_val2 = false then Response.Redirect "Err.asp?erro=2" end if 'Enviando email pelo CDONTS set mail = Server.CreateObject("CDONTS.Newmail") mail.From = email mail.To = "f_loureiro@terra.com.br" mail.Subject = "Sitio Gabi" mail.Body = mensagem mail.Send set mail = nothing %>Link para o comentário
Compartilhar em outros sites
3 respostass 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.