%
if Request.Querystring("isSubmitted") = "yes" then
Dim fname, lname, Email2, Stocks
Dim Tell,ETell,CTell,Fax,Commants, Time
Dim Commodities, MutualFunds, Bonds, Forex, R
Dim objCDO
dim strScript
EmailVar = Request.Querystring("email")
Email2 = Request.Querystring("email2")
fname = Request.Querystring("name")
lname = Request.Querystring("lastname")
Tell = Request.Querystring("Tell")
ETell = Request.Querystring("ETell")
CTell = Request.Querystring("CTell")
Fax = Request.Querystring("Fax")
Commants = Request.Querystring("Commants")
Time = Request.Querystring("Time")
Stocks = Request.Querystring("Stocks")
Commodities = Request.Querystring("Commodities")
MutualFunds = Request.Querystring("MutualFunds")
Bonds = Request.Querystring("Bonds")
Forex = Request.Querystring("Forex")
R = Request.Querystring("R1")
if fname <> "" then
if lname <> "" then
If InStr(1,EmailVar,"@",vbTextCompare) = 0 OR _
InStr(1,EmailVar,".",vbTextcompare) = 0 Then
strScript = ""
Response.Write(strScript)
end if
if Email2 <> EmailVar Then
strScript = ""
Response.Write(strScript)
else
EmailVar = Request.Querystring("email")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = EmailVar
objCDO.To = "Stan@StanEhrlich.com"
objCDO.Cc = "kayvanmomeni@comcast.net"
objCDO.Bcc = ""
objCDO.Subject = "Submitted form data from contacts page"
objCDO.Body = "Submitted Form Data From Contacts Page
Name: " &fname& "
lastname: "&lname&"
Email Address: "&Emailvar&"
Daytime Telephone number: "&Tell&"
Evening Telephone Number: "&ETell&"
Cell Phone Number: "&CTell&"
Fax Number: "&Fax&"
Commants: "&Commants&"
I am Trading: