<%@LANGUAGE="VBSCRIPT"%> <% Dim rs__MMColParam rs__MMColParam = "1" If (Request.QueryString("ID") <> "") Then rs__MMColParam = Request.QueryString("ID") End If %> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_officeideasConn_STRING rs.Source = "SELECT * FROM Products WHERE ID = " + Replace(rs__MMColParam, "'", "''") + "" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> Fabric Samples

  Fabric Samples
Adriatic - AD001
Aqua - AD002
Cobalt - AD004
Cranberry - AD005
Crystal - AD006
Dusk - AD007
Granite - AD009
Mineral - AD010
Nightshade - AD011
Red - AD014
Rosevale - AD015
Sandvale - AD016
Sea Blue - AD017
Wine - AD020
Delta Blue - AD026
Turquoise - AD027
Charcoal - AD028
Grape - AD029
Leaf - AD030
Aquarius - AD031
Black - AD055
Azure - AD057
Graphite - AD066
Pewter - AD072
 
 

 
   
  © 2005 Officeideas - part of PCIdeas Group
  All Rights Reserved.		  
<% rs.Close() Set rs = Nothing %>