%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim listJoanie__MMColParam
listJoanie__MMColParam = "EM-01-NAPC"
If (Request("MM_EmptyValue") <> "") Then
listJoanie__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim listJoanie
Dim listJoanie_cmd
Dim listJoanie_numRows
Set listJoanie_cmd = Server.CreateObject ("ADODB.Command")
listJoanie_cmd.ActiveConnection = MM_MyJoanie_STRING
listJoanie_cmd.CommandText = "SELECT ItemID, [Desc], QuantityOnHand as Qt, OnOrder, Price FROM Joanie WHERE ItemID = ?"
listJoanie_cmd.Prepared = true
listJoanie_cmd.Parameters.Append listJoanie_cmd.CreateParameter("param1", 200, 1, 20, listJoanie__MMColParam) ' adVarChar
Set listJoanie = listJoanie_cmd.Execute
listJoanie_numRows = 0
%>
<%
Dim lj__MMColParam
lj__MMColParam = "EM-01-NAPC"
If (Request("MM_EmptyValue") <> "") Then
lj__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim lj
Dim lj_cmd
Dim lj_numRows
Set lj_cmd = Server.CreateObject ("ADODB.Command")
lj_cmd.ActiveConnection = MM_MyJoanie_STRING
lj_cmd.CommandText = "SELECT ItemID, [Desc], QuantityOnHand as Qt, OnOrder, Price FROM Joanie WHERE ItemID like ?"
lj_cmd.Prepared = true
lj_cmd.Parameters.Append lj_cmd.CreateParameter("param1", 200, 1, 20, lj__MMColParam + "%") ' adVarChar
Set lj = lj_cmd.Execute
lj_numRows = 0
%>
American History Map
Charlotte and Triad Area Maps This map pictured below shows the Charlotte Metro region as well as the Triad region. We have got county wall maps for everything here! Just click on the alphabetical city list below to select the city or county you want to see.

<%
listJoanie.Close()
Set listJoanie = Nothing
%>
<%
lj.Close()
Set lj = Nothing
%>