<%
Dim objConnLOC
set objConnLOC = Server.CreateObject("ADODB.Connection")
objConnLOC.Open Application("pmdsn_ConnectionString")
strLOCCOUNT = "countCitiesandCounties;"
set rsLOCCOUNT = Server.CreateObject("ADODB.Recordset")
rsLOCCOUNT.Open strLOCCOUNT, objConnLOC
If Not rsLOCCOUNT.EOF Then
totalXPRESSlocs = rsLOCCOUNT("totalcities")
Else
totalXPRESSlocs = "Many"
End If
rsLOCCOUNT.Close
set rsLOCCOUNT = Nothing
objConnLOC.Close
Set objConnLOC = Nothing
%>
