<%@ Language=VBScript %> <%Option Explicit %> <% Response.Expires = 0 %> <% Dim lojaDB,db_path db_path = "C:\Inetpub\vhosts\maia.ind.br\private\786214dcpw.mdb" set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_path lojaDB.open Dim nome,empresa,endereco,bairro,cidade,estado,cep,foneddd,fonenumero,faxddd,faxnumero,email,formulario,comentarios,data formulario = ("cadastro") data=Now nome = Request.Form("nome") empresa = Request.Form("empresa") endereco = Request.Form("endereco") bairro = Request.Form("bairro") cidade = Request.Form("cidade") estado = Request.Form("estado") cep = Request.Form("cep") foneddd = Request.Form("FoneDDD") fonenumero = Request.Form("FoneNumero") faxddd = Request.Form("FaxDDD") faxnumero = Request.Form("FaxNumero") email = Request.Form("e_mail") comentarios = Request.Form("comentarios") 'Inclui cliente lojaDB.Execute("INSERT INTO clientes(nome,empresa,endereco,bairro,cidade,estado,cep,foneddd,fonenumero,faxddd,faxnumero,email,formulario,data,comentarios)" & _ "VALUES('" & nome & "','" & empresa & "','" & endereco & "','" & bairro & "','" & cidade & "','" & estado & "','" & cep & "','" & foneddd & "','" & fonenumero & "','" & faxddd & "','" & faxnumero & "','" & email & "','" & formulario & "','" & data & "','" & comentarios & "')") lojaDB.Close set lojaDB = Nothing Dim msg,nome,empresa,endereco,bairro,cidade,estado,cep,foneddd,fonenumero,faxddd,faxnumero,email,comentarios msg = "" nome = Request("nome") empresa = Request("empresa") endereco = Request("endereco") bairro = Request("bairro") cidade = Request("cidade") estado = Request("estado") cep = Request("cep") foneddd = Request("FoneDDD") fonenumero = Request("FoneNumero") faxddd = Request("FaxDDD") faxnumero = Request("FaxNumero") email = Request("e_mail") comentarios = Request("comentarios") 'Formatação do email em html msg = msg + "" + vbcrlf msg = msg + "" + vbcrlf msg = msg + "" + vbcrlf msg = msg + "" + vbcrlf msg = msg + "" + vbcrlf msg = msg + "" + vbcrlf msg = msg + "" + vbcrlf msg = msg + " " + vbcrlf msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "" msg = msg + "" msg = msg + "" + vbcrlf msg = msg + "

FORMULÁRIO DE CADASTRO ENVIADO DO SITE INMEPE MAIA.
Nome :	" msg = msg + "" + nome msg = msg + "" msg = msg + "
Empresa :	" msg = msg + "" + empresa msg = msg + "" msg = msg + "
Endereço :	" msg = msg + "" + endereco msg = msg + "" msg = msg + "
Bairro :	" msg = msg + "" + bairro msg = msg + "" msg = msg + "
Cidade :	" msg = msg + "" + cidade msg = msg + "" msg = msg + "
Estado :	" msg = msg + "" + estado msg = msg + "" msg = msg + "
CEP:	" msg = msg + "" + cep msg = msg + "" msg = msg + "
Fone:	( " msg = msg + " " msg = msg + "" + foneddd msg = msg + " ) " msg = msg + "" + fonenumero msg = msg + "
Fax:	( " msg = msg + " " msg = msg + "" + faxddd msg = msg + " ) " msg = msg + "" + faxnumero msg = msg + "
E-mail:	" msg = msg + "" + email msg = msg + "" msg = msg + "
Comentarios:	" msg = msg + "" + comentarios msg = msg + "" msg = msg + "

" + vbcrlf Dim sMailServer,objMsg,objConf,objFlds,cdoDSNSuccessFailOrDelay sMailServer = "mail.maia.ind.br" set objMsg = CreateObject("CDO.Message") set objConf = CreateObject("CDO.Configuration") Set objFlds = objConf.Fields With objFlds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMsg Set .Configuration = objConf .To = "antonio@powerart.com.br" .From = "maia@maia.ind.br" .Subject = "FORMULÁRIO DE CADASTRO ENVIADO DO SITE INMEPE MAIA" .HTMLBody = msg .DSNOptions = cdoDSNSuccessFailOrDelay .Fields.update .Send End With set objMsg=nothing set objConf=nothing set objFlds=nothing response.redirect "obrigado.html" %>