WHAT'S NEW WHY A SIPT F.A.Q. MEET THE SIPT JOIN THE SIPT DONATE BY-LAWS PLATFORM LINKS HOME   SIPT E-Store	<% Dim sMessage If Request.Form("Submit1") = "Send Mail" Then SendMail End If ' ' As example given: ' Sub SendMail() Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Trim(Request.Form("MailFrom")) Mailer.FromAddress= "beaudre@tca.net" Mailer.RemoteHost = "www.sipoftexas.org" Mailer.Qmessage = "false" Mailer.AddRecipient "Vance Beaudre", "beaudre@tca.net" Mailer.Subject = "Letters to SIPT - " & Trim(Request.Form("Subject")) Mailer.BodyText = Trim(Request.Form("MsgBody")) if Mailer.SendMail then Response.Write " Your message has been sent." else Response.Write " Mail send failure. Error was " & Mailer.Response & "" end if Set Mailer = Nothing End Sub ' ' 'Send the mail using CDONTS ' ' Sub SendMail() ' Dim objMsg ' Dim MailFrom ' Dim MailTo ' Dim Subject ' Dim MsgBody ' ' MailFrom = Trim(Request.Form("MailFrom")) ' MailTo = "beaudre@tca.net" ' Subject = "Contact SIPT - " & Trim(Request.Form("Subject")) ' MsgBody = Trim(Request.Form("MsgBody")) ' Set objMsg = Server.CreateObject("CDONTS.NewMail") ' objMsg.From = MailFrom ' objMsg.To = MailTo ' objMsg.Subject = Subject ' objMsg.Body = MsgBody ' objMsg.Send ' ' Set objMsg = Nothing ' End Sub %> Contact the SIPT From: Subject: Comments:	Chairman's Office Reading Room Articles Speeches & Events Letters To The SIPT Search the SIPT Contact The SIPT General Info Links SIP Websites Miscelleneous Links
What's New | Why A SIPT | F.A.Q. | Meet the SIPT | Join the SIPT Donate | By-Laws | Platform | Search | National SIP Federation of States | Contact Us | Links | Home Texans and Southerners have visited this site All logos and graphics are property of Southern Independence Party of Texas.