<%@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
%>
Unusual World Maps
World Maps Here's our collection of "unusual" world maps. These are some of our more esoteric world maps. Click on the map or link to take you to that map's individual page. It'll show you size and price.
<%
listJoanie.Close()
Set listJoanie = Nothing
%>
<%
lj.Close()
Set lj = Nothing
%>
