<%@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 %> Wood Samples

  Wood Samples
Apple
Beech
Cherry
Light Oak
Oak
 
 

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