 |
 |
|
| |
| |
 |
FEEDBACK
|
 |
|
|
<%
sAction = Request("FormAction")
If sAction = "submit" Then
Dim fldName : fldName = Request("Name")
Dim fldDesignation : fldDesignation = Request("Designation")
Dim fldEmail : fldEmail = Request("Email")
Dim fldCompany : fldCompany = Request("Company")
Dim fldWebsite : fldWebsite = Request("Website")
Dim fldAddress1 : fldAddress1 = Request("Address1")
Dim fldAddress2 : fldAddress2 = Request("Address2")
Dim fldAddress3 : fldAddress3 = Request("Address3")
Dim fldZipCode : fldZipCode = Request("ZipCode")
Dim fldCity : fldCity = Request("City")
Dim fldCountry : fldCountry = Request("Country")
Dim fldPhone : fldPhone = Request("Phone")
Dim fldFax : fldFax = Request("Fax")
Dim fldComments : fldComments = Request("Comments")
HTML = "| Name | " & fldName & " | | Designation | " & fldDesignation & " | | Email | " & fldEmail & " | | Company | " & fldCompany & " | | Web-site | " & fldWebsite & " | | Address | " & fldAddress1 & " | | | " & fldAddress2 & " | | | " & fldAddress3 & " | | Zip Code | " & fldZipCode & " | | City | " & fldCity & " | | Country | " & fldCountry & " | | Phone | " & fldPhone & " | | Fax | " & fldFax & " | | Your Comments | " & fldComments & " |
"
'Response.Write(HTML)
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From= "info@schwabeincoat.com" '"anandmorbia@yahoo.com"
myMail.To= "info@schwabeincoat.com"
myMail.Subject="Online inquiry...."
myMail.BodyFormat=0 'CdoBodyFormatHTML
myMail.MailFormat=0 'CdoMailFormatMime
myMail.Body=HTML
myMail.Send
Set mymail=nothing
Show_Msg
Else
Show_Form
End If
%> |
|
|
|
|
|
|
 |
HOME
:: ABOUT
US :: PRODUCTS
:: ACCREDITIONS
:: FEEDBACK
:: CONTACT
US
................................................................................................................................................................
Site Best Viewed
in 800 x 600 Resolution, and Internet Explorer 4.0 + and
Netscape 6.0 +
All Copyright © 2005 SCHWABE INCOAT
Powered By: Compusoft
Technologies |
|
|
|
|
