Enviar para o email e para o banco de dados

[Darlan Evandro 0]

Oi galera!

 

Preciso salvar os dados que foram preenchidos no formulário, em um banco de dados, e também enviálos para o destinatário!

Tentei juntar os códigos de cadastro, com os códigos de envio de formulário, mas não consegui!

alguem pode me ajudar!

 

abaixo vai o código de envio de formulário:

 

 

 

 

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
				  <td valign="top"><%
	If request.ServerVariables("REQUEST_METHOD") = "POST" then
				  
	body = "Teste Contato" & "<br>"
	body = body & "NOME:" & request.form("nome") & "<br>"
	body = body & "EMAIL:" & request.form("email") &  "<br>"
	body = body & "TELEFONE:" & request.form("telefone") &  "<br>"
	body = body & "MENSAGEM: " & request.form("sugestao") & "<br>"
	body = body & "<br>"
	  
	 'ASP EMAIL
	 'Set objMail = Server.CreateObject("Persits.MailSender") 
	 'objMail.Host = servidor
	 'objMail.AddAddress "darlan@pensimidia.com.br"
	 'if request.form("email") <> "" then
	 'objMail.From = request.form("email")
	 'else
 	 'objMail.From = "sem@email.com.br"
	 'end if
	 'objMail.Subject = "Teste Contato"
	 'objMail.IsHTML = False
	 'objMail.Body = body
	 'objMail.Send
	 'Set objMail = Nothing 
	 
	 Set objMail = CreateObject("CDO.message")
	 if request.form("email") <> "" then
	 objMail.From = request.form("email")
	 else
 	 objMail.From = "sem@email.com.br"
	 end if
	 objMail.To = "darlan@pensimidia.com.br"
	 objMail.Subject = "Teste Contato"
	 objMail.htmlBody = body
	 objMail.Send
	 set objMail = Nothing
	 
	 Set rc = nothing 
	 Set conexao = nothing %>
	<div align="center"></div></td>
  </tr>
				<tr>
				  <td valign="top"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#666666">					Parabéns seu email foi enviado com sucesso...<br />
					Logo estaremos respondendo o mesmo, OBRIGADO!</font><br />
				  </strong></font></div></td>
				</tr>
				<% else %>
				<tr>
				  <td align="left" valign="top"><form action="contato.asp" method="post" name="form1" id="form1">
					  <div align="center">
						<table width="100%" border="0" align="left" cellpadding="2" cellspacing="2">
<tr>
							  <td width="11%" align="right" nowrap="nowrap"><strong><font color="#333333" size="1" face="Geneva, Arial, Helvetica, sans-serif">Nome:</font></strong></td>
						<td width="89%">
						<input name="nome" class="campos" size="40" />
						</td>
						  </tr>
							<tr>
							  <td align="right" nowrap="nowrap"><strong><font color="#333333" size="1" face="Geneva, Arial, Helvetica, sans-serif">Email:</font></strong></td>
							  <td>
							  <input name="email" class="campos" size="40" />
							  </td>
						  </tr>
							<tr>
							  <td align="right" nowrap="nowrap"><strong><font color="#333333" size="1" face="Geneva, Arial, Helvetica, sans-serif">Telefone:</font></strong></td>
							  <td>
							  <input name="telefone" type="text" class="campos" id="sugestao2" value="" size="40" />
							  </td>
						  </tr>
							<tr>
							  <td align="right" nowrap="nowrap"> </td>
							  <td><select name="para" class="style2" id="para">
								<option value="teste@teste.com.br">sac</option>
								<option value="teste@teste.com.br">Comercial</option>
							  </select></td>
							</tr>
							<tr>
							  <td align="right" nowrap="nowrap"><strong><font color="#333333" size="1" face="Geneva, Arial, Helvetica, sans-serif">Mensagem:</font></strong></td>
							  <td>
								<textarea name="sugestao" cols="40" rows="4" class="campos" id="sugestao"></textarea>
							></td>
						  </tr>
							<tr>
							  <td width="11%" align="right" nowrap="nowrap"></td>
				<td><div align="right"><font face="Verdana" size="1"> </font>
									  <table width="98%" border="0" cellspacing="0" cellpadding="0">
										<tr>
										  <td width="33%"></td>
										  <td width="46%"><font face="Verdana" size="1">
											<input name="limpar" type="reset" id="limpar" value="Limpar" class="botao" />
											<input name="enviar" type="submit" value="Enviar" class="botao" />
										  </font></td>
										  <td width="21%"></td>
										</tr>
									  </table>
								<font face="Verdana" size="1"> </font></div></td>
							</tr>
						  </table>
					</div>
				  </form>									  </tr>
				<% end if %>
			</table>

aguardo um retorno

Obrigado

[Custellinha 0]

ué, nao vi sua instrução sql de inserção!

faça uma normalmente antes ou depois do email...

 

qualquer dúvida chama ai!!

abraço.