Panning For Gold Workshop Registration

<%@ LANGUAGE = VBScript %> Panning For Gold Workshop Registration

This page is best viewed in Microsoft Internet Explorer

<% varValidate=True varFirstName=Request.Form("Fname") varMI=Request.Form("MI") varLastName=Request.Form("Lname") varTitle=Request.Form("Title") varOrganization=Request.Form("Address2") varWorkAddress=Request.Form("WAddress") varWorkCity=Request.Form("WCity") varWorkState=Request.Form("WState") varWorkZip=Request.Form("WZip") varHomeAddress=Request.Form("Address1") varHomeCity=Request.Form("City") varHomeState=Request.Form("State") varHomeZip=Request.Form("Zip") varWorkPhone=Request.Form("WorkPhone") varHomePhone=Request.Form("HomePhone") varFax=Request.Form("Fax") varEmail=Request.Form("Email") Redim Preserve varWorkshop(0) For i = 1 to Request.Form("Wname").Count Redim Preserve varWorkshop(i+1) varWorkshop(i) = Request.Form("Wname")(i) Next varPayFormat=Request.Form("PayFormat") %> <% If Request("Action") = "Validate" Then %> <% If (varFirstName = "") Or (varLastName = "") Or (varWorkAddress= "") Or (varWorkCity= "") Or (varWorkState= "") Or (varWorkZip= "") Or (varWorkPhone= "") Or (varPayFormat = "") Or (varEmail= "") Or (UBound(varWorkshop,1)=0) Then %> <% varValidate = False %> <% End If %> <% If varValidate Then %>
If this data is correct, you may submit the form. Otherwise, revise it by entering the necessary information below and resubmitting it. <% Else %> Some required information is missing. Please complete the form and resubmit. <% END If %>

<% Else %> <% varValidate = False %> <% END If %>

To register for a workshop, please provide this information:
(Fields with * must be completed.) <% If varValidate = False Then %>

<% End If %>

*First name:

Middle initial:

*Last name:

Title:

Organization:

*Work address (Street):

*Work address (City):

*Work Address (State):

*Work Address (Zipcode):

Home address (Street):

Home address (City):

Home address (State):

Home address (Zip code):

*Work Phone:

Home Phone:

Fax:

*E-mail address:

*Choose a workshop: (More than one can be selected by holding down the Control Key and clicking on desired workshops.)

*Payment will be sent by :

CHECKED=TRUE <% End If %> > Check
CHECKED=TRUE <% End If %> > Purchase Order

<% If varValidate = False Then %>
<% Else %> <% End If %>

Return to Panning For Gold

Last revised: 12/15/10
<% Sub ShowOption(str) For i = 1 to UBound(varWorkshop,1) - 1 If str = varWorkShop(i) then Response.Write("

*First name:
Middle initial:
*Last name:
Title:
Organization:
*Work address (Street):
*Work address (City):
*Work Address (State):
*Work Address (Zipcode):
Home address (Street):
Home address (City):
Home address (State):
Home address (Zip code):
*Work Phone:
Home Phone:
Fax:
*E-mail address: