HEX

File: D:/web/castironradiatorcentre/changes prev/bak 2019-12-05/postcode-test.asp
<%Option Explicit%>
<!--#include file="dbfunctions.asp"-->
<!--#include file="apputils.asp"-->
<html>
<head>
<title>Postcode Test</title>

</head>

<body>


<%

PostCodeTest3


Sub PostCodeTest1
  OpenQuery("SELECT * FROM pc_outward_list2")
  Dim LOutwardCode
  Do While Not EndOfQuery
    LOutwardCode = GetQueryValue("OutwardCode")
    
    
    If Not GetSQLRecordExists("SELECT * FROM delivery_postcodes WHERE CONCAT(',', PostcodeList, ',') LIKE '%," & LOutwardCode & ",%'") Then
      Response.Write LOutwardCode & "<br>"
    End If
    
    NextQueryRecord
  Loop
  CloseQuery
End Sub

Sub PostCodeTest2
  Response.Write "PostCodeTest2" & BR
  Const POSTCODE = "IV28 3AB"
  Response.Write "GetDeliveryRegionFromPostcode(""" & POSTCODE & """) = " & GetDeliveryRegionFromPostcode(POSTCODE) & BR
End Sub

Sub PostCodeTest3
  Response.Write "PostCodeTest3" & BR
  Const POSTCODE = "HS47 3AB"
  Response.Write "GetDeliveryRegionFromPostcode(""" & POSTCODE & """, ""Pallet"") = " & GetDeliveryRegionFromPostcode(POSTCODE, "Pallet") & BR
End Sub

%>

</body>
</html>
<%Finalise%>