<% Function RegExpTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If RegExpTest = true End Function If request.form("Submit")="Submit" then 'validate the form For Each Field in Request.Form TheString = Field & "=Request.Form(""" & Field & """)" EXECUTE(TheString) Next strError = "" if strName = "" then strError = strError & "Please supply your name for us to contact you.
" end if select case method case "Telephone" if Phone1 = "" or phone2 = "" or phone3 = "" then strError = strError & "You selected Telephone as your preferred method of contact, yet you did not provide your full phone number.
" elseif Not IsNumeric(Phone1) or Not IsNumeric(phone2) or not IsNumeric(phone3) then strError = strError & "Area Code must be entered as all digits.
" elseif len(phone1 + phone2 + phone3) <> 10 then strError = strError & "Phone number must be 10 digits long." end if case "Email" if Email = "" then strError = strError & "You selected Email as your preferred method of contact, yet you did not provide an email address.
" else emailAddress = Cstr(Email) if emailAddress <> "" then blnValidEmail = RegExpTest(emailAddress) if Not blnValidEmail then strError = strError & "The Email entered is not a valid email address.
" end if end if end if case "Fax" if fax1 = "" or fax2 = "" or fax3 = "" then strError = strError & "You selected Telephone as your preferred method of contact, yet you did not provide your full phone number.
" elseif Not IsNumeric(fax1) or Not IsNumeric(fax2) or Not IsNumeric(fax3) then strError = strError & "Fax Number must be entered as digits.
" elseif len(fax1 + fax2 + fax3) <> 10 then strError = strError & "Fax number must be 10 digits long." end if end select If strError = "" then 'send the emails! bodystr="Results from Have a Broker Contact Me Form" bodystr=bodystr & "
" bodystr=bodystr & "

Name: " & request("strName") bodystr=bodystr & "
Company: " & request("Company") bodystr=bodystr & "
Address1: " & request("Address1") bodystr=bodystr & "
Address2: " & request("Address2") bodystr=bodystr & "
City: " & request("City") bodystr=bodystr & "
State: " & request("State") bodystr=bodystr & "
Zip: " & request("Zip") bodystr=bodystr &"
Phone: " & request("Phone1") + "-" + request("phone2") + "-" + request("phone3") bodystr=bodystr & "
Email: " & request("Email") bodystr=bodystr & "
Fax: " & request("Fax") bodystr=bodystr & "
Preferred Method of Contact: " & request("method") bodystr=bodystr & "
Best Time of Day for Contact: " & request("contact") ' Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' Set the properties of the objeect ' This syntax works fine ' But this gets you the appearance of a real name! objCDOMail.From = "info@slipkafutures.com" objCDOMail.To = "info@slipkafutures.com" 'this line was used for testing purposes 'objCDOMail.To = "pat@sullivan-street.com" objCDOMail.Subject = "Request For Contact" objCDOMail.Body = bodystr objCDOMail.BodyFormat = 0 ' Outlook gives you grief unless you also set: objCDOMail.MailFormat = 0 ' CdoMailFormatMime ' Send the message! objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing if email <> "" then bodystr2 = bodystr bodystr="Dear Trader:

" bodystr=bodystr & "Thank you for your interest in Slipka Trading Group, Inc. We are an introducing broker, and we clear our trades through Refco, Inc. and Cargill Investors Services Inc. Our brokers average over twenty years experience, and have an excellent history of quality customer service.

" bodystr=bodystr & "As you requested, one of our brokers will contact you shortly at the time and method suggested on your request form.

" bodystr=bodystr & "If you have any questions, or if there is anything we can do for you, please call us at 800-753-3665, or email us at info@slipkafutures.com.


" bodystr=bodystr & "Sincerely,

" bodystr=bodystr & "Dave Slipka, President
" bodystr=bodystr & "Phone: 612-335-3600
" bodystr=bodystr & "Fax: 612-371-4956
" bodystr=bodystr & "

" bodystr=bodystr & "Below is a copy of your request send to Slikpa Futures

" bodystr=bodystr & bodystr2 ' Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' Set the properties of the objeect ' This syntax works fine ' But this gets you the appearance of a real name! objCDOMail.From = "info@slipkafutures.com" objCDOMail.To = request.form("Email") objCDOMail.Subject = "Slipka Trading Corporation" objCDOMail.Body = bodystr objCDOMail.BodyFormat = 0 ' Outlook gives you grief unless you also set: objCDOMail.MailFormat = 0 ' CdoMailFormatMime ' Send the message! objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing end if response.redirect("submit_success.htm") End If End if %>

<%=strError%>

 

Name :
Company :
Address 1 :
Address 2 :
City :
State :
Zip :
Phone :
 - -
E-mail :
Fax :
 

Method of preferred contact?
  
 
Best time of day for contact?
   
   

 

 

     

 

 

 

 

 

Home | Privacy Policy | Contact Us | Site Map

Commodity futures and options investing is speculative and involves substantial risk of loss. Only risk capital should be invested. Commodity futures and options trading is not for everyone.

© Copyright 2003 Slipka Trading Group, Inc.. All rights reserved.