Choose A Coupon Type <% On Error Resume Next 'Create connection object. Set oConn = Server.CreateObject("ADODB.Connection") If (Err <> 0) Then Response.Write "Error was: " & Err.Description 'Close and destroy objects. Set oConn = Nothing Response.End End If 'Build connection string. sSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " sSQL = sSQL & sConnection 'Open connection object. oConn.Open sSQL If (Err <> 0) Then Response.Write "Error was: " & Err.Description 'Close and destroy objects. Set oConn = Nothing Response.End End If 'Create recordset object. Set oRs = Server.CreateObject("ADODB.Recordset") If (Err <> 0) Then Response.Write "Error was: " & Err.Description 'Close and destroy objects. Set oRs = Nothing oConn.Close Set oConn = Nothing Response.End End If 'Build new query to get the Categories. sSQL = "SELECT Category, DisplayOrder FROM LUCategories " sSQL = sSQL & "ORDER BY DisplayOrder" 'Open recordset object. oRs.Open sSQL, oConn, , , 0 If (Err <> 0) Then Response.Write "Error was: " & Err.Description 'Close and destroy objects. Set oRs = Nothing oConn.Close Set oConn = Nothing Response.End End If While (Not (oRs.EOF)) %> "><%=oRs.Fields("Category")%> <% oRs.MoveNext Wend If (Err <> 0) Then Response.Write "Error was: " & Err.Description 'Close and destroy objects. oRs.Close Set oRs = Nothing oConn.Close Set oConn = Nothing Response.End End If %> <% 'Close and destroy objects. oRs.Close Set oRs = Nothing oConn.Close Set oConn = Nothing %>