%@ Language=VBScript %>
<%
if Request.Form("frm_data") = "Submit Query" then
frm_Description =trim(Request.form("Description"))
frm_S_name=trim(Request.form("S_name"))
frm_S_email=trim(Request.form("S_email"))
frm_S_phone=trim(Request.form("S_phone"))
frm_S_country=trim(Request.form("S_country"))
frm_S_fax=trim(Request.form("S_fax"))
frm_S_streetaddress=trim(Request.form("S_streetaddress"))
frm_S_city=trim(Request.form("S_city"))
frm_S_pin=trim(Request.form("S_pin"))
frm_S_organization=trim(Request.form("S_organization"))
order=Request.querystring("order")
' ############# mail program
to_email = frm_S_email
to_name = frm_S_name
from_name = "info@tysonic.net"
from_email = "info@tysonic.net,clquery@sstdesigns.com"
adminmail_subject = "Wholesale Query for "&order
Set cdoConfig = Server.CreateObject("CDO.Configuration")
Const cdoBasic = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "mail.tysonic.net"
cdoConfig.Fields.Item(sch & "smtpauthenticate") = cdobasic
cdoConfig.fields.update
Set osm= Server.CreateObject("CDO.Message")
Set osm.Configuration = cdoConfig
osm.From = to_name&"<"&to_email
osm.To = from_name&"<"&from_email
osm.Subject = adminmail_subject
'osm.BodyFormat = 0
'osm.MailFormat = 0
HTML = "" & NL
HTML = HTML & "
"
HTML = HTML & ""
HTML = HTML & "Wholesale: | |
"
HTML = HTML & " "
HTML = HTML & "
|
"
HTML = HTML & "Please Describe Your Requirements: | "
HTML = HTML & ""&frm_Description&" |
"
HTML = HTML & "Your Name : | "
HTML = HTML & ""&frm_S_name&""
HTML = HTML & " |
Your E-Mail : | "
HTML = HTML & ""&frm_S_email&""
HTML = HTML & " |
Phone :(Include Country/Area Code): | "
HTML = HTML & ""
HTML = HTML & ""&frm_S_phone&""
HTML = HTML & " |
Country : | "
HTML = HTML & ""&frm_S_country&""
HTML = HTML & " |
Fax : | "
HTML = HTML & ""&frm_S_fax&" |
Street Address : | "
HTML = HTML & ""&frm_S_streetaddress&""
HTML = HTML & " |
City/State : | "
HTML = HTML & ""&frm_S_city&""
HTML = HTML & " |
Zip/Postal Code: | "
HTML = HTML & ""&frm_S_pin&""
HTML = HTML & " |
Organization/Company Name : | "
HTML = HTML & ""&frm_S_organization&""
HTML = HTML & "
|
"
HTML = HTML & ""
osm.htmlBody = HTML
osm.Send
Set osm = Nothing
Response.Redirect("thank-you.html")
end if
%>
Query
(*
represents compulsory fields )
Amplifiers, Manufacturer of
Amplifiers, Exporter of Amplifiers, Amplifier Manufacturers, Amplifiers
Supplier from India