<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim strContactName, strBusinessName, strPhoneNumber, strEmailAddress, strNewsletter, strComments If Request.ServerVariables("Content_Length") <> 0 Then ' Retrieving Form Data from Post command body strContactName = Trim(Request.Form("ContactName")) strBusinessName = Trim(Request.Form("BusinessName")) strPhoneNumber = Trim(Request.Form("PhoneNumber")) strEmailAddress = Trim(Request.Form("EmailAddress")) strNewsletter = Trim(Request.Form("Newsletter")) strComments = Trim(Request.Form("Comments")) Dim objMail, aRecipients, strBody Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "Newsletter_Comments@webkosmos.com" objMail.To = "admin@webkosmos.com" objMail.Subject = "Newsletter & Comments Form" strBody = strBody & "Contact Name: " & strContactName & vbCRLF strBody = strBody & "Business Name: " & strBusinessName & vbCRLF strBody = strBody & "Phone Number: " & strPhoneNumber & vbCRLF strBody = strBody & "Email Address: " & strEmailAddress & vbCRLF strBody = strBody & "Free Newsletter Subscription: " & strNewsletter & vbCRLF strBody = strBody & "Questions & Comments: " & strComments & vbCRLF objMail.Body = strBody objMail.Send Set objMail = Nothing %> webkosmos.com - Webkosmos


Continue...




.

Submission Sent Successfully

Success!

  We have received your submission form. Listed below is the Information that you have sent to us.

Contact Name:
 <%= strContactName %>

Business Name:
 <%= strBusinessName %>

Phone Number:
 <%= strPhoneNumber %>

Email Address:
 <%= strEmailAddress %>

Free Newsletter Subscription:
 <%= strNewsletter %>

Questions & Comments:
 <%= strComments %>
......................................................

         
<% Else %> webkosmos.com - Webkosmos


About This Form

Time is money!
  At Webkomos we understand that time is money. That is why we have tried to make our Forms as short and relevant as possible.
  This form serves three purposes...
1.) Subscribe to our FREE Newsletter.
2.) Send us a Question.
3.) Send us Feedback.

.

............................

General Purpose Submission Form

" METHOD="POST" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">
Contact Name:
Business Name:
Phone Number:
E-Mail Address:
......................................................
Subscribe to our FREE monthly Newsletter
NO   YES
......................................................
Send us your Feedback and/or Questions!

......................................................

         
<% End If %>