Please select the country where you are ordering from.

<% Dim pubFound Dim Disabled ' to diable form submit button Dim Title Dim Price Dim Price6 Dim Price12 Dim Subject Dim SpecialMotivator Dim SpecialMotivator6 Dim Motivator12 Set rs = Server.CreateObject("ADODB.Recordset") ' SP would not load: rs.Open "EXEC sp_SEL_Product '" & Request.QueryString( "pub") & "'", DataConn If not rs.EOF Then ' pub was found pubFound = true Disabled = "" rs.MoveFirst Title = rs( "WebTitle") Price = rs( "SpecialPrice") Price6 = rs( "SpecialPrice2") Price12 = rs( "Price12") Subject = rs( "Subject") ' NEW FIELDS SpecialMotivator = rs( "SpecialMotivator") SpecialMotivator6 = rs( "SpecialMotivator6") Motivator12 = rs( "Motivator12") ProductType = rs( "ProductType") if ucase(Request.QueryString("pub")) = "DO" then ProductType = "Doc Walks" end if if ucase(Request.QueryString("pub")) = "PR" then ProductType = "Profit Taker" end if else ' pub was not found Disabled = "DISABLED" pubFound = false Title = "Incorrect Link; Please try again or contact customer support." end if %>

<% sub redirectCountry() select case request.form("country") case "Canada" response.Redirect("location.asp?Pub=" & ucase(request.QueryString("Pub")) & "&SB=" & request.QueryString("SB") & "&country=Canada") case "USA" response.Redirect("US/location.asp?Pub=" & ucase(request.QueryString("Pub")) & "&SB=" & request.QueryString("SB") & "&country=USA") 'case "Others" 'response.Redirect("US/location.asp?Pub=" & ucase(request.QueryString("Pub")) & "&SB=" & request.QueryString("SB")) end select end sub %> <% %>