<% Dim strSQL Dim DBConn Dim rsMakes %> Showroom Page 2
<% strSQL = "SELECT TypeID, TypeDesc FROM Types ORDER By TypeDesc" Set rsMakes = Server.CreateObject("ADODB.Recordset") rsMakes.Open strSQL,DBConn %>