<%
Option Explicit
Response.Buffer = True
Const PAGE_NAME = "distributor-front-new.asp"
%>
<%
Dim arrShops, blnShops
Dim arrDist, blnDist
Dim country
Dim postback
Dim zipcode
Dim postalcode
Dim intD, intS
If Len(Trim(Request("postback"))) > 0 Then postback = Request("postback") else postback = false end if
Call OpenConnZip()
Set objRst = Server.CreateObject("ADODB.RecordSet")
If postback Then
country = UCase(Request("country"))
zipcode = Request("zipcode")
postalcode = UCase(Request("postalcode"))
If Country = "US" or Country = "CA" Then
If Country = "US" Then
If Len(Trim(zipcode)) <> 5 or Not IsNumeric(zipcode) Then
blnErrMessage = True
errMessage = "Zip Code must be 5 digits and numeric."
End IF
End IF
If Country = "CA" Then
If (Len(Trim(postalcode)) < 6 or Len(Trim(postalcode)) > 7) Then
blnErrMessage = True
errMessage = "Postal Code must follow the form of 'A1A 1A1' or 'A1A1A1'."
End IF
If Len(Trim(postalcode)) = 6 Then
postalcode = Mid(postalcode,1,3) & " " & Mid(postalcode,4,3)
End IF
If instr(1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", mid(postalcode,1,1)) = 0 OR _
instr(1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", mid(postalcode,3,1)) = 0 OR _
instr(1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", mid(postalcode,6,1)) = 0 OR _
instr(1, "0123456789", mid(postalcode,2,1)) = 0 OR _
instr(1, "0123456789", mid(postalcode,5,1)) = 0 OR _
instr(1, "0123456789", mid(postalcode,7,1)) = 0 OR _
len(trim(mid(postalcode,4,1))) <> 0 Then
blnErrMessage = True
errMessage = "Postal Code must follow the form of 'A1A 1A1' or 'A1A1A1'"
End IF
End IF
If Not blnErrMessage Then
If country = "US" Then
Call SetRadius(25, zipcode, Country)
sqlQuery = "SELECT DISTINCT ZIPCODES.ZIPCode, ZIPCODES.Latitude, ZIPCODES.Longitude, SHOPS.* "
sqlQuery = sqlQuery & "FROM ZIPCODES INNER JOIN SHOPS ON ZIPCODES.ZIPCode = SHOPS.SHOP_ZIPCODE "
sqlQuery = sqlQuery & "WHERE LATITUDE <= " & HighLatitude & " "
sqlQuery = sqlQuery & "AND LATITUDE >= " & LowLatitude & " "
sqlQuery = sqlQuery & "AND LONGITUDE >= " & LowLongitude & " "
sqlQuery = sqlQuery & "AND LONGITUDE <= " & HighLongitude & " "
sqlQuery = sqlQuery & "AND SHOP_COUNTRY = 'US' AND SHOP_TYPE = 1;"
'Response.Write sqlQuery & "
