<%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "email~comment~Heard" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "webmaster@texasnova.com" objCDO.To = "webmaster@texasnova.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Subscribe" BodyString = Replace("Subscription from news.asp page:~","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "confirmsubscribe.html" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Texas Nova - Total Intenet Solution. Professional and affordable web developement, graphics design, free clipart, web designer of some of the top official U.S. Marine web sites. Houston, Texas Web design

Your Privacy Matters

We will not sell or share any of your information with any other entity. You may unsubscribe at any time.

 

 

 

 

 

 

Page Not Found

 

 

 

 

Google
Search WWW Search texasnova.com

Home || Web Development || Hosting || Graphics || Clients || Testimonials || FAQs ||
Links & Downloads
|| Free Clip Art || Get your own domain || Newsletter || Virus Updates

Pay your bill online


webmaster@texasnova.com

Animal Breed Zip Code

© Copyright Texas Nova
All rights reserved. Texas Nova is a subsidiary of Nova Enterprises, Inc.
Legal Disclaimer

E-mail us now
What our clients say about us