<% If Request.Form("submit") <> "" Then Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="secure.emailsrvr.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="sales@ehubcap.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="Sangavea10" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "support@ehubcap.com" ObjSendMail.Subject = "Hubcaps Center caps or accessories Request" ObjSendMail.From = Request.Form("emaddress") ' we are sending a text email.. simply switch the comments around to send an html email instead ObjSendMail.HTMLBody = "Name: " & Request.Form("name") & vbnewline & "E-Mail Address: " & Request.Form("emaddress") & vbnewline & "Message: " & Request.Form("message") 'ObjSendMail.TextBody = "this is the body" ObjSendMail.Send Set ObjSendMail = Nothing Response.Redirect("thankyou.htm") End If %> Contact Us

Name:
E-mail Address:
Message: