<% 'Função E-mail If request.querystring("action") = "sendmail" then Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.ssmponto.com.br" 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/sendusername") = "contato@ssmponto.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ssmponto2005" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "SSM Ponto " objCDOSYSMail.To = "Keomas Felipe " objCDOSYSMail.Subject = "ssss" objCDOSYSMail.HtmlBody = "sddsd" objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing end if %>

Entre em contato

Endereço: <%=sobre.fields("endereco")%>- <%=sobre.fields("cidade")%> - <%=sobre.fields("estado")%>
Bairro: Jardim Santa Izabel
Telefone: (19)3281-4495 / (19) 99184-9199
CEP: 13185-250

Envie uma mensagem