<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim listJoanie__MMColParam listJoanie__MMColParam = "9781845878924" 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 = "9781845878924" 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 %> Site Map

SiteMap With over 3000 pages our site map is just too big for one page. So we've broken it down alphabetically . Just click on letter below to go to the right page....

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z #

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