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