<% Dim Mailer, MailerConfig Dim strBody Dim fs, f Dim isSubmitted If Request.ServerVariables("REQUEST_METHOD") = "POST" Then isSubmitted = true Set fs = Server.CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(Server.MapPath("/includes/investors.html"), 1) strBody = strBody & f.ReadAll f.Close Set f=Nothing Set fs=Nothing strBody = replace(strBody,"%name%",Request.Form("name")) strBody = replace(strBody,"%address%",Request.Form("address")) strBody = replace(strBody,"%address2%",Request.Form("address2")) strBody = replace(strBody,"%city%",Request.Form("city")) strBody = replace(strBody,"%state%",Request.Form("state")) strBody = replace(strBody,"%zip%",Request.Form("zip_code")) strBody = replace(strBody,"%phone%",Request.Form("phone")) strBody = replace(strBody,"%time%",Request.Form("time")) strBody = replace(strBody,"%email%",Request.Form("email")) strBody = replace(strBody,"%comments%",Request.Form("comments")) Set Mailer = Server.CreateObject("CDO.Message") Set MailerConfig = Server.CreateObject ("CDO.Configuration") MailerConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.sanityhosting.com" MailerConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 MailerConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 MailerConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 MailerConfig.Fields.Update Set Mailer.Configuration = MailerConfig Mailer.From = "info@opalcapital.com" Mailer.To = "investments@opalcapital.com" Mailer.Subject = "Opal New Investors Guest Card Submission" Mailer.HTMLBody = strBody Mailer.Send Set oMail = Nothing Set oMailConfig = Nothing End If %> Opal Capital Partners, Inc.


<%If Not isSubmitted Then%>

Please fill out the guest card below.

Name
Address
 
City
State Zip
Phone
Best time to call
Email
Comments
 

<% Else %>

Thank you. Your submission sent successfully.

 <%End If%>