%@ Language=VBScript %> <%Response.Expires= -1%> <% if Request.Form("message") <> "" then Set myMail=Server.CreateObject("CDO.Message") myMail.Configuration.Fields.Item()=2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = Application("User") myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Application("Password") myMail.Configuration.Fields.Update myMail.Subject=Request.Form("Subject") myMail.From=Request.Form("email") myMail.To="sales@awlight.com" myMail.TextBody=Request.Form("message") myMail.Send set myMail=nothing end if %>
Corporate Headquarters (Mon - Fri 8:00AM - 5:00PM EST) 100 Bass Pro Mills Dr. Unit 50 Warehouse at
| |
|
![]() |