2 replies to this topic

[pezinho46]

TENHO UMA PAGINA JA FEITA COM LAYOUT E TUDO E GOSTARIA DE COLOCAR UM FORMULARIO EM ASP PARA NÃO FICAR COM AQUELE COMANDO HORRIVEL DE "MAILTO" MINHA PAGINA ESTA COM EXTENSÃO .HTM PRECISAREI PASSA-LA PARA .APS?


QUE CODIGO DEVO INCLUIR ?


TOPICOS:

NOME:
CIDADE:
CEP:
BAIRRO:
ESTADO:
TEL:
EMAIL:
MEMBRO? opções SIM, NAO
SEXO:
TEXTO:

[Info_Tec]

Nesse caso não precisará ser .ASP, mas vc deve colocar no Action desse Form uma página ASP para receber esses dados e enviar o email. Vc deve também saber qual componente de eemail o seridor disponibiliza,

[Bart]

No action do formulário passe pra uma página .asp que no caso vou citar como form_action.asp

Na página que está o formulário, no Frontpage clique sobre o formulário nome por exemplo e vá no HTML, no html vai aparecer a opção name = , mude para name = txtname e faça isso com todos os outros forms, mudando apenas o nome, por exemplo, se for o formulario com o campo email , mude para txtemail, depois disso salve a pagina como formulario.asp por exemplo.
Você deverá criar no access um bd com os campos do formulario.

Depois disso abra o bloco de notas e digite o seguinte código

<%
Dim nome
Dim cidade
Dim cep
Dim bairro
Dim estado
Dim tel
Dim email
Dim sexo
Dim texto


nome = Request.form("txtnome")
cidade = Request.form("txtxcidade")
cep = Request.form("txtcep")
bairro = Request.form("txtbairro")
estado = Request.form("txtestado")
tel = Request.form("txttel")
email = Request.form("txtemail")
sexo = Request.form("txtsexo")
texto = Request.form("txttexto")

set rs = conexao.execute("INSERT INTO users(nome,login,senha,email,pais,estado,idade)Values('"&nome&"','"&login&"','"&senha&"','"&mail&"','"&pais&"','"&estado&"','"&idade&"')") [B]> ESSAS 3 LINHAS ACIMA SUBSTITUA PELOS NOMES DO BANCO DE DADOS[/B]




Set meuMail = CreateObject("CDONTS.NewMail") 
meuMail.From = "seusite@seusite.com.br" 
meuMail.To = request.form("mail")
meuMail.Subject = "Confirm. de cadastro:Seu site.com.br" 
meuMail.BodyFormat = 0 
meuMail.MailFormat = 0 
meuMail.Body = corpo 
meuMail.Send 
Set meuMail = Nothing 

Obs: Os dados de cadastro do usuário ficaram no seu .mdb , ai você pode baixar ele do servidor para ver os membros cadastrados.
Espero ter ajudado

Edição feita por: Bart, 15/04/2004, 20:36.