Ir para conteúdo

POWERED BY:

Arquivado

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

zanelati2002

com "Mensagem de boas vindas"

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

Não sei se vou consegui esplicar mais no decorrer das resposta vou colocando mais explicações

tenho um cadastro o cara se cadastra e gravo as informaçções no db.

até ai tudo bem

 

Mando um mensagem para o user com uma mensagem de boas vindas e também com todos os seus dados

tenho no db uma tabela chamada messages o que seria isto é mensagerm entre membros cadastros no site

 

Ai que entra minha duvida como que faço para mandar toda a mensagem que mando para o membro recem cadastrado inserir nesta tabela também para que quando ele se logue já tenha uma menasgem para ele também com os dados dele...

olhem o codigo que cadastra o user e manda a mensagem de boas vindas com todos os seus dados...

 

<% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT username FROM users WHERE username = '"&Request.form("username")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Usuario já é cadastrado!"i= i+1end ifSql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "E-mail já é cadastrado!"i= i+1end ifSql = "SELECT msn FROM users WHERE msn = '"&Request.form("msn")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Msn já é cadastrado!"i= i+1end ifSql = "SELECT site FROM users WHERE site = '"&Request.form("site")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Site já é cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.Write "<b><center><font face=verdana size=1>"Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"for i = 0 to Dicionario.Count - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"Elseusername = Request.Form("username")senha = Request.Form("senha")nome = Request.Form("nome")idade = Request.Form("idade")cidade = Request.Form("cidade")sexo = Request.Form("sexo")estado = Request.Form("estado")dob = Request.Form("birth_day") & "/" & Request.Form("birth_month") & "/" & Request.Form("birth_year")hora = Time()data = Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano")email = Request.Form("email")msn = Request.Form("msn")site = Request.Form("site")sobre_voce = Request.Form("sobre_voce")conheceu = Request.Form("conheceu")sendemail = Request.Form("sendemail")criar_email = Request.Form("criar_email")foto = "fotos/sem_foto.gif"codigo = int((9000000 * RND)+1)ip = Request.ServerVariables("REMOTE_ADDR")Sql = "INSERT INTO users (username,senha,nome,idade,cidade,sexo,estado,dob,hora,data,email,msn,site,sobre_voce,conheceu,sendemail,criar_email,foto,codigo,ip) "Sql = Sql & "VALUES('" & username & "', '" & senha & "', '" & nome & "', '" & idade & "', '" & cidade & "', '" & sexo & "', '" & estado & "', '" & Request.Form("birth_day") & "/" & Request.Form("birth_month") & "/" & Request.Form("birth_year") & "','"& Time() & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "', '" & email & "', '" & msn & "', '" & site & "', '" & sobre_voce & "', '" & conheceu & "', '" & sendemail & "', '" & criar_email & "', '" & foto & "', '" & codigo & "', '" & ip & "')" Conexao.Execute(Sql)Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then ElseSet Mail = Server.CreateObject("JMail.SMTPMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<font face=Verdana size=1>"	HTML = HTML & "Olá <b>"& username &"</b>, seu cadastro foi realizado com sucesso ! Segue abaixo seus dados:<br>"	HTML = HTML & "--------------------------------------------------<br>"	HTML = HTML & "Login: <b>"& username &"</b><br>"	HTML = HTML & "Senha: <b>"& senha &"</b><br>"	HTML = HTML & "--------------------------------------------------<br>"	HTML = HTML & "- Nome: <b>"& nome &"</b><br>" 	HTML = HTML & "- Idade: <b>"& idade &"</b><br>" 	HTML = HTML & "- Sexo: <b>"& sexo &"</b><br>" 	HTML = HTML & "- Localidade: Estado: <b>"& estado &"</b> Cidade: <b>"& cidade &"</b><br>" 	HTML = HTML & "- E-mail: <b>"& email &"</b><br>" 	HTML = HTML & "- MSN: <b>"& msn &"</b><br>"	HTML = HTML & "- Site: <b>"& site &"</b><br>" 	HTML = HTML & "- Hora do Cadastro: <b>" &time()&"</b><br>"	HTML = HTML & "- Data do Cadastro: <b>"& day(now) & " / "& month(now) & " / "& year(now) & "</b><br>"	HTML = HTML & "- Newsletter: <b>"& sendemail &"</b><br>"	HTML = HTML & "- Como conheceu a Onemasters: <b>"& conheceu &"</b><br>" 	HTML = HTML & "- Sobre você: <b>"& sobre_voce &"</b><br>"	HTML = HTML & "--------------------------------------------------<br>"	HTML = HTML & "Se você optou por criar um email com <b>"& username &"</b>@onemasters.com</b><br>"	HTML = HTML & "Você recebera um email com os dados de acesso ao painel de email<br>"	HTML = HTML & "Para Ativar sua conta clique neste link abaixo:<br>"	HTML = HTML & "<a href=""http://www.sitedozanelati.com/login/entrada.asp?page="& codigo &""">http://www.sitedozanelati.com/login/entrada.asp?page="& codigo &"</a><br>"	HTML = HTML & "-------------"&Request.ServerVariables("REMOTE_ADDR")&"---------------<br>"	HTML = HTML & "Nós recomendamos que você não delete esse e-mail ( para caso de perca de senha ).<br>" 	HTML = HTML & "http://www.onemasters.com.br - Todos os direitos reservados.<br>"	 	HTML = HTML & "</body>"	HTML = HTML & "</html>"Mail.ServerAddress = "mail.sitedozanelati.com"Mail.Logging = TrueMail.Sender = "cadastro@onemasters.com" Mail.SenderName = "Seja bem vindo(a)"Mail.AddRecipient Request.Form("email")Mail.Subject = "Dados do Seu Cadastro"Mail.HTMLBody = HTMLMail.ExecuteSet Mail = Nothing %></td>								</tr>						  <tr>									<FONT size=1 face="Verdana, Arial, Helvetica, sans-serif">								<td width="4%" height="26"></td>								<td width="96%" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Seja								  bem vindo <b><%=username%></b> obrigado por se cadastrar n</font>a								<b>Onemasters.com</b></td>							  </font>								</tr>							<tr>									<FONT size=1 face="Verdana, Arial, Helvetica, sans-serif">								<td width="4%" height="26"> </td>								<td width="96%" align="center">									<FONT size=1 face="Verdana, Arial, Helvetica, sans-serif">								<span class="text"><b><span class="lgText">								Você receberá um e-mail nos próximos 5 minutos.<br>								Com todos os seus dados</span></b></span></td>							  </tr>							<tr>									<FONT size=1 face="Verdana, Arial, Helvetica, sans-serif">								<td width="4%" height="26"></td>								<td width="96%" align="center">									<FONT size=1 face="Verdana, Arial, Helvetica, sans-serif">								<span class="text"><b><span class="lgText">								Clique no link para ativar sua Conta.</span>								  </b></span></td>							  </tr>							<tr>									<FONT size=1 face="Verdana, Arial, Helvetica, sans-serif">								<td width="4%" height="26"></td>								<td width="96%" align="center"><span class="text"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Se								  houver algum problema entre em contato com o								  webmaster</b></font></span></td>

 

Agora falta eu colocar esta mensagem também na coluna messages mais como isto

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