<%@LANGUAGE="VBSCRIPT"%> <% HDWCaptchaValidation %> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_WCD_STRING MM_editCmd.CommandText = "INSERT INTO MailingLists (contact_name, contact_organization, contact_email, contact_phone, collaborative_list, marine_ports_list, agriculture_list, public_fleets_list, clean_fuels_list, school_buses_list, construction_list, trucking_list, locomotive_list, contact_fax, Title, contact_address1, contact_address2, contact_city, contact_state, contact_zip, contact_country, web_site_url, scheduler_name, scheduler_phone, scheduler_email) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 250, Request.Form("UserName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 250, Request.Form("Organization")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 250, Request.Form("Email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("Phone")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, -1, MM_IIF(Request.Form("ListCollaborative"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("ListMarine"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("ListAgriculture"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("ListFleets"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 5, 1, -1, MM_IIF(Request.Form("ListCleanFuels"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 5, 1, -1, MM_IIF(Request.Form("ListSchoolBuses"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("ListConstruction"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 5, 1, -1, MM_IIF(Request.Form("ListTrucking"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 5, 1, -1, MM_IIF(Request.Form("ListLocomotive"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 50, Request.Form("Fax")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 250, Request.Form("UserTitle")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 250, Request.Form("Address1")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 202, 1, 250, Request.Form("Address2")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 202, 1, 250, Request.Form("City")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 202, 1, 250, Request.Form("State")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 202, 1, 50, Request.Form("Zip")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 202, 1, 250, Request.Form("Country")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 202, 1, 250, Request.Form("URL")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param23", 202, 1, 250, Request.Form("SchedulerName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param24", 202, 1, 50, Request.Form("SchedulerPhone")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param25", 202, 1, 250, Request.Form("SchedulerEmail")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "confirm-signup.htm" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> West Coast Collaborative

Collaborative Mailing Lists

If you are interested in receiving more information about the West Coast Collaborative or its workgroups, add yourself to our mailings lists using the form below. Bold fields are required.

Name
Organization
Email
Phone
 
Select the lists to which you'd like to be added (roll over names for description):
Collaborative Marine
Agriculture Public Fleets 
Cleaner Fuels School Buses 
Construction Trucking
Locomotive    
   
Fax
Title
Address 1
Address 2
City
State
Zip
Country
Web Site URL
Scheduler Name
Scheduler Phone
Scheduler Email
   
  security code
Enter Security Code:

<% HDWCaptchaInvalidMessage %>