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