<% dim conexao call abre_conexao if(Request("acao") = "gravar") then sqlstring1 = "INSERT INTO Sugestoes(Nome, Email, Fone, Comentario) VALUES('"& Request.Form("nome") &"','"& Request.Form("email") &"','"& Request.Form("telefone") &"','"& Request.Form("comentario") &"')" conexao.execute(sqlstring1) message = "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "" message = message & "
Nome" & Request.Form("nome") & "
Email" & Request.Form("email") & "Telefone" & Request.Form("telefone") & "
Comentário" & Request.Form("comentario") & "
" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "empramed@empramed.com.br" 'objCDOSYSMail.To = "mauro@netestudio.com.br" objCDOSYSMail.To = "empramed@empramed.com.br" objCDOSYSMail.Subject = "Sugestões enviadas pelo site" objCDOSYSMail.HtmlBody = message objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing labMsg = "
Sugestão enviada com sucesso.


" end if %>



<%=labMsg %>

Nome
Email Telefone
Comentário



Telefone: (11) 3933 7733

empramed@empramed.com.br