JAM ALERT!

<% If Request.QueryString("TheName") <> "" Then TheName = Request.QueryString("TheName") ElseIf Request.Form("TheName") <> "" Then TheName = Request.Form("TheName") Else TheName = "" End If If Request.QueryString("Email") <> "" Then Email = Request.QueryString("Email") ElseIf Request.Form("Email") <> "" Then Email = Request.Form("Email") Else Email = "" End If If Request.QueryString("Mobile") <> "" Then Mobile = Request.QueryString("Mobile") ElseIf Request.Form("Mobile") <> "" Then Mobile = Request.Form("Mobile") Else Mobile = "" End If If Request.QueryString("Address_Work") <> "" Then Address_Work = Request.QueryString("Address_Work") ElseIf Request.Form("Address_Work") <> "" Then Address_Work = Request.Form("Address_Work") Else Address_Work = "" End If If Request.QueryString("Address_Home") <> "" Then Address_Home = Request.QueryString("Address_Home") ElseIf Request.Form("Address_Home") <> "" Then Address_Home = Request.Form("Address_Home") Else Address_Home = "" End If If Request.QueryString("Credit_Card_Details") <> "" Then Credit_Card_Details = Request.QueryString("Credit_Card_Details") ElseIf Request.Form("Credit_Card_Details") <> "" Then Credit_Card_Details = Request.Form("Credit_Card_Details") Else Credit_Card_Details = "" End If If Request.QueryString("Expiry_Date") <> "" Then Expiry_Date = Request.QueryString("Expiry_Date") ElseIf Request.Form("Expiry_Date") <> "" Then Expiry_Date = Request.Form("Expiry_Date") Else Expiry_Date = "" End If %> JAM ALERT!

Yes I would like to subscribe to JAM ALERT!

<% RouteList = "" RouteCodes = "," For Each Thing In Request.Form If Request.Form(Thing) = "ON" Then RouteList = RouteList & Right(Thing,Len(Thing) - 2) & "
" RouteCodes = RouteCodes & Left(Thing,2) & "," End If Next %>

<% If RouteList <> "" Then %> <% End If %>

You have selected the following routes:

<%=RouteList%>

Routes

select areas

Name

Cell Phone number

e-mail address

Physical work address

Physical home address

Credit Card Details

Expiry Date