Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde.
Galera sou iniciante em ASP, já consegui fazer com que os dados de um Form grave em um DB, mas queria que mandeçe um e-mail, não estou conseguindo com que o codigo funcione, será que alguem poderia me ajudar ????
Grato.
segue codigo abaixo:
<!--Variaveis--><%razaosocial = request.form("razao_social")cnpj = request.form("cnpjid")nomefantasia = request.form("nome_fantasia")ie = request.form("ie")cep = request.form("cep")endereco = request.form("endereco")numeroend = request.form("numero_end")complementoend = request.form("complemento_end")bairro = request.form("bairro")cidade = request.form("cidade")estado = request.form("estado")usuario = request.form("usuario")email = request.form("email")nomecontato = request.form("nome_contato")telefone = request.form("telefone")celular = request.form("celular")atacadista = request.form("atacadista")%><%'Conexão DSN'FileName="Connection_ado_conn_string.htm"' Type="ADO"' HTTP="false"' Catalog=""' Schema="" 'MM_cadastro_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("dados/cadastro.mdb") FileName="Connection_ado_conn_string.htm"' Type="ADO"' HTTP="false"' Catalog=""' Schema="" MM_cadastro_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("bancogeral.mdb")%><%' *** Edit Operations: declare variablesMM_editAction = CStr(Request("URL"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_cadastro_STRING MM_editTable = "cadastro_cliente" MM_editRedirectUrl = "index.asp?sobre=cadastroEnviado" MM_fieldsStr = "data|value|razao_social|value|nome_fantasia|value|cnpjid|value|ie|value|cep|alue|endereco|value|numero_end|value|complemento_end|value|bairro|value|cidade|vlue|estado|value|usuario|value|email|value|nome_contato|value|telefone|value|cellar|value|atacadista|value|senha|value" MM_columnsStr = "data|',none,''|razao_social|',none,''|nome_fantasia|',none,''|cnpjid|',none,''|ie|',none,''|cep|',none,''|endereco|',none,''|numero_end|',none,''|complemento_end|',none,''|bairro|',none,''|cidade|',none,''|estado|',none,''|usuario|',none,''|email|',none,''|nome_contato|',none,''|telefone|',none,''|celular|',none,''|atacadista|',none,''|senha|',none,''|" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL End If%><%' *** Insert Record: construct a sql insert statement and execute itIf (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If%><%set Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_cadastro_STRINGRecordset1.Source = "SELECT * FROM cadastro_cliente"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 3Recordset1.Open()Recordset1_numRows = 0%><%Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.from = "Onda-Atacado"objmail.to = "atacado@ondaaquarios.com.br"objmail.subject = "Contato site atacado: " mensagem = "<html>"&_ "<font face='verdana' size='4' color='#0000FF'><b>Mensagens Onda Atacado - Cadastro pelo Site</b></font><br><br><br>"&_ "<font face='verdana' size='1' <br><strong>Razão Social: </strong>" & razaosocial &_ "<br><strong>Assunto: </strong>" & ie &_ "<br><strong>Mensagem: </strong>" & cep & "<br><br>"objmail.body = mensagemobjmail.BodyFormat = 0 objmail.MailFormat = 0 objmail.sendSet objmail = nothing%><HTML><HEAD><TITLE>Onda Aquários - Aquarismo em Alto Padrão - Cadastro Clientes</TITLE><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"></HEAD><BODY BGCOLOR="" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0><body bgcolor="#FFFFFF" text="#000000"><form action="<%=MM_editAction%>" method="post" name="formulario" onSubmit="return ValidaFormulario()"> <table width="515" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td width="515"> <div align="left"></div></td> </tr> <tr> <td><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>CADASTRO</strong></font></div></td> </tr> <tr> <td> </td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="100%"><div align="left"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="justify"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Para efetuar o cadastro preencha os campos no formulário abaixo.<br /> <br /> Seu cadastro será analisada pelo nosso departamento comercial e retornaremos o mais breve possível com sua senha de acesso a nossa área restrita. <br /> <br /> A <strong>Onda Aquários</strong> só atende empresas devidamente cadastradas e atuantes no segemento de aquarismo Pet ou similares.<br /> </font></div></td> </tr> </table> <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><br /> </font></div></td> </tr> </table></td> </tr> <tr> <td><table width="95%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td><div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td><div align="center"> <table width="515" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="left"><font color="#000000">_____________________________________________________________________________________</font></div></td> </tr> <tr> <td><div align="left"><font color="#000000" size="1"><span class="style11"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Pessoa Jurídica</b></font></span></font></div></td> </tr> <tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="data" type="hidden" class="Formulario" value="<% =date %> <% = time %>" size="30" /> </font></td> </tr> <tr> <td><table width="500" border="0" align="left" cellpadding="0" cellspacing="0"> <tr> <td><table width="250" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><span class="style8">Razão Social:</span></font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="razao_social" id="razao_social" type="text" class="Formulario" size="30" /> *</font></div></td> </tr> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">CNPJ:</font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="cnpjid" type="text" class="Formulario" id="cnpjid" /> *</font></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">digitar apenas números. </font></div></td> </tr> </table></td> <td><table width="250" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><span class="style8">Nome Fantasia: </span></font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="nome_fantasia" type="text" class="Formulario" size="30" /> *</font></div></td> </tr> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">IE:</font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="ie" type="text" class="Formulario" size="15" /> </font></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">digitar apenas números. </font></div></td> </tr> </table></td> </tr> </table></td> </tr> </table> <table width="515" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="left"> </div></td> </tr> <tr> <td><div align="left"><font color="#000000">_____________________________________________________________________________________</font></div></td> </tr> <tr> <td><div align="left"><font color="#000000" size="1"><span class="style11"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Endereço</b></font></span></font></div></td> </tr> <tr> <td> </td> </tr> <tr> <td><div align="left"> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="127"><table width="101%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">CEP:</font></strong></div></td> </tr> <tr> <td><div align="left"> <input name="cep" class="Formulario" size="9" maxlength="9" /> </div></td> </tr> </table></td> <td width="300"><table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Endereço:</font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="endereco" type="text" class="Formulario" size="39" /> </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">*</font></div></td> </tr> </table></td> <td width="73"><table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">N.º</font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="numero_end" type="text" class="Formulario" size="6" maxlength="6" /> </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">*</font></div></td> </tr> </table></td> </tr> </table> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="128"><table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Complemento:</font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="complemento_end" type="text" class="Formulario" size="14" /> </font></div></td> </tr> </table></td> <td width="372"><table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Bairro:</font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="bairro" type="text" class="Formulario" size="39" /> </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">*</font></div></td> </tr> </table></td> </tr> </table> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="129"><table width="99%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Cidade:</font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="cidade" type="text" class="Formulario"size="14" /> </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">*</font></div></td> </tr> </table></td> <td width="371"><table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Estado:</font></strong></div></td> </tr> <tr> <td><div align="left"><span style="HEIGHT: 14px"> <select name="estado" class="Formulario"> <option selected="selected" value="0"> </option> <option value="AC">Acre</option> <option value="AL">Alagoas</option> <option value="AP">Amapá</option> <option value="AM">Amazonas</option> <option value="BA">Bahia</option> <option value="CE">Ceará</option> <option value="DF">Distrito Federal</option> <option value="ES">Espírito Santo</option> <option value="GO">Goias</option> <option value="MA">Maranhão</option> <option value="MT">Mato Grosso</option> <option value="MS">Mato Grosso do Sul</option> <option value="MG">Minas Gerais</option> <option value="PA">Pará</option> <option value="PB">Paraíba</option> <option value="PR">Paraná</option> <option value="PE">Pernambuco</option> <option value="PI">Piauí</option> <option value="RJ">Rio de Janeiro</option> <option value="RN">Rio Grande do Norte</option> <option value="RS">Rio Grande do Sul</option> <option value="RO">Rondônia</option> <option value="RR">Roraima</option> <option value="SC">Santa Catarina</option> <option value="SP">São Paulo</option> <option value="SE">Sergipe</option> <option value="TO">Tocantins</option> </select> </span></div></td> </tr> </table></td> </tr> </table> </div></td> </tr> </table> <table width="515" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="left"> </div></td> </tr> <tr> <td><div align="left"><font color="#000000">_____________________________________________________________________________________</font></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#0000FF"><span class="style3"><span class="style11"><b>Dados para contato</b></span></span></font></div></td> </tr> <tr> <td> </td> </tr> <tr> <td><div align="left"> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="250" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><span class="style8">Usuário: </span></font></strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><span class="style8">(crie login para acesso ao site)</span></font> </div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="usuario" type="text" class="Formulario"size="30" /> *</font></div></td> </tr> </table></td> <td><table width="250" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><strong><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><span class="style8">E-mail:</span></font></strong></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="email" type="text" class="Formulario" size="30" /> *</font></div></td> </tr> </table></td> </tr> </table> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><span class="style8"><strong>Nome:</strong></span></font></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="nome_contato" type="text" class="Formulario" size="50" /> <span class="style8">*</span></font></div></td> </tr> </table></td> </tr> </table> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="250" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Telefone:</font></b></div></td> </tr> <tr> <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <input name="telefone" class="Formulario" size="8" maxlength="8" onSubmit="return ValidaFormulario();"/> </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">*</font></div></td> </tr> </table></td> <td><table width="250" border="0" cellspacing="0" cellpadding="2"> <tr> <td><div align="left"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Celular:</font></b></div></td> </tr> <tr> <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <input name="celular" class="Formulario" size="8" maxlength="8" /> </font></div></td> </tr> </table></td> </tr> </table> </div></td> </tr> </table> <table width="515" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="left"> </div></td> </tr> <tr> <td><div align="left"><font color="#000000">_____________________________________________________________________________________</font></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#0000FF"><b>A sua empresa compra com algum outro atacadista? Qual?</b></font></div></td> </tr> <tr> <td> </td> </tr> <tr> <td><div align="center"> <table width="500" border="0" align="left" cellpadding="0" cellspacing="0"> <tr> <td><table width="77%" border="0" align="left" cellpadding="2" cellspacing="0"> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><span class="style8"><strong>Nome:</strong></span></font></div></td> </tr> <tr> <td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> <input name="atacadista" type="text" class="Formulario" size="50" /> <span class="style8">*</span></font></div></td> </tr> </table></td> </tr> </table> </div></td> </tr> <tr> <td><div align="left"> </div></td> </tr> <tr> <td><div align="left"><font color="#000000">_____________________________________________________________________________________</font></div></td> </tr> <tr> <td> </td> </tr> <tr> <td><table width="77%" border="0" align="left" cellpadding="2" cellspacing="0"> <tr> <td><div align="center"> <input type="hidden" name="MM_insert" value="true"> <input name="submit" type="submit" value="Enviar"> </div></td> </tr> </table></td> </tr> </table> </div></td> </tr> </table> <br /> </div></td> </tr> </table> </div></td> </tr> </table></td> </tr> <tr> <td> </td> </tr> </table></form></body></html><%Recordset1.Close()%>Carregando comentários...