<% Dim strSQL Dim DBConn Dim rsMakes %> Classic Cars Galore Desert Gardens
<% strSQL = "SELECT TypeID, TypeDesc FROM Types ORDER By TypeDesc" Set rsMakes = Server.CreateObject("ADODB.Recordset") rsMakes.Open strSQL,DBConn %>