<%=sFormatedPageTitle %>

<%@ Language="VBScript" CODEPAGE = 65001 %> <% Option Explicit response.Redirect("/default.asp") %> <%'Local page ASP after this line. %> <% '---------------------------------------- 'Page setup sPageShellType = "subpage twocolumn" sPageShellTitle = "Sample Request" oSiteNavigation.PageNavPath = "6_4" '---------------------------------------- Dim bShowPostSuccess bShowPostSuccess = CBool(False) If (Request.ServerVariables("Request_Method") = "POST") Then Dim oXProc Set oXProc = Server.CreateObject("p3DATAACCESSv1.XProc") oXProc.SetConnectionString = "Driver={SQL Server};Server=10.5.5.12,14920;Database=GANO_US;Uid=geglobwebpln;PWD=k3llyc0ll@b3ll@;" oXProc.PROC_NAME = "usp_corpsite_requestsample" Call oXProc.SetParamInputString("FNAME", Left(Request.Form("frm_FName"), 50), 50) Call oXProc.SetParamInputString("LNAME", Left(Request.Form("frm_LName"), 50), 50) Call oXProc.SetParamInputString("ADDRESS1", Left(Request.Form("frm_AddressLine1"), 100), 100) Call oXProc.SetParamInputString("ADDRESS2", Left(Request.Form("frm_AddressLine2"), 50), 50) Call oXProc.SetParamInputString("CITY", Left(Request.Form("frm_City"), 50), 50) Call oXProc.SetParamInputString("STATE", Left(Request.Form("frm_State"), 50), 50) Call oXProc.SetParamInputString("POSTALCODE", Left(Request.Form("frm_Postal"), 20), 20) Call oXProc.SetParamInputInteger("INTLCOUNTRYCODE", Request.Form("frm_IntlCountryCode")) Call oXProc.SetParamInputString("HOMEPHONE", Left(Request.Form("frm_HomePhone"), 20), 20) Call oXProc.SetParamInputString("EMAIL", Left(Request.Form("frm_Email"), 200), 200) Call oXProc.SetParamInputString("INTEREST", Left(Request.Form("frm_SampleType"), 100), 100) Call oXProc.SetParamInputString("IPADDRESS", Left(Request.ServerVariables("REMOTE_HOST"), 50), 50) Call oXProc.SetParamInputString("REFERRALSOURCE", Left(Request.Form("frm_Referral_Source"), 100), 100) Call oXProc.SetParamInputString("REFERRALLNAME", Left(Request.Form("frm_Referral_LName"), 50), 50) Call oXProc.SetParamInputString("REFERRALFNAME", Left(Request.Form("frm_Referral_FName"), 50), 50) If IsNumeric(Request.Form("frm_Referral_DistID")) And Len(Request.Form("frm_Referral_DistID")) > 0 Then Call oXProc.SetParamInputInteger("REFERRALDISTID", Request.Form("frm_Referral_DistID")) Else Call oXProc.SetParamInputInteger("REFERRALDISTID", -1) 'Not given End If Call oXProc.SetParamOutputInteger("RETURNCODE") If (oXProc.ExecutePROC) Then If (CLng(oXProc.GetParam("RETURNCODE")) > 0) Then bShowPostSuccess = True End If Set oXProc = Nothing End If %> <%'Must come first after . %> <%'Must come second. IE8 compatability mode. %> <%=sFormatedPageTitle %> <%'Local page after this line. %>

<%'Main content - START %>

REQUEST A SAMPLE

Thank you for your overwhelming interest in our product. But unfortunately this feature will be unavailable until further notice.

<%If 0 Then %> <% If (bShowPostSuccess) Then %>

Thank you very much for your interest in Gano Excel. Your request has been submitted. If you supplied an email address, we'll be sending a confirmation email shortly. If you have any additional questions, please don't hesitate to contact us.

<% Else %>

Sounds like you're ready to Experience The Evolution of Coffee! Just a word of warning though... Once you experience the Enriched Difference of our products, there's no turning back!

Please complete the form below and we'll get some samples of our amazing coffees shipped-out to you immediately. Please understand that we can only ship a limited number of samples per-household.

<%' web forms validation & styles %> <%' ---------------------------------- %> <%' ---------------------------------- %>

"/>

Required fields are marked with

How did you hear about Gano Excel?

Freind's First Name	Last Name	Affiliate ID

Your Shipping Info

Name(First,Last)

Address

(Apt. or Suite)

City

State/Province

Postal Code

Telephone

digits only please, omit dashes

E-mail Address

How do you like your coffee?

<% End If %> <% End If %> <%'Main content - END %>

<%'.content-text %>

<%'#content %> <%'.sidebar %>