<% 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 = "" 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:
I have been Trading for "&R&"
My best time to talk is "&Time objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Send ConfirmMsg = " Thanks for submitting your information!" end if else 'if the last name entery is empty strScript = "" Response.Write(strScript) end if else 'if the name entery is empty strScript = "" Response.Write(strScript) end if end if %> Ehrlich Cycle Finder <% if ConfirmMsg <> "" then %>

<% strScript = "" Response.Write(strScript) %>

<% end if %>
 
Stan Ehrlich  

President  Solid Gold Financial Services Inc.

111 Pine St. - Suite 1300 San Francisco, CA 94111
 
415-433-8888
866-888-8846
415-433-8880 fax
www.SGFS.US

CONTACT REQUEST FORM               Fields that are in  “*”  are required please.
First Name: * Last Name: *
   E-Mail Address: *

Confirm E-mail Address: *

 

  
       
Daytime Phone: Comments:  
Evening phone:
Cell phone:
FAX:
Best time to call:  
 

 
We would like to know / OPTIONAL  
What are you trading? How long have you been trading?
 

Stocks   Less than 6 months

 

Commodities

6 months – 1 year

 
Mutual funds More than 1 year

 
Bonds      
Forex      

 
 

© 2000 - 2004 E C F Co, all rights reserved.