<% ConnString="Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("download.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") strSql = "SELECT * FROM DL_Table WHERE DL_Type='CAD' ORDER By DL_NAME" conn.Open ConnString RS.Open strSql, conn %> <% Dim ColorStr ColorStr="#EEEEEE" Do While Not RS.EOF if ColorStr="#EEEEEE" then ColorStr="#FFFFFF" else ColorStr="#EEEEEE" Response.Write("") %> <% RS.MoveNext Loop RS.Close conn.Close Set RS = Nothing Set conn = Nothing %> CAD SOFTWARE TITLE & DESCRIPTION DATE POSTED USAGE OS "><%=RS("DL_Name")%> <%=RS("DL_Desc")%> (<%=RS("DL_Size")%>) <%=RS("DL_Date")%> <%=RS("DL_Type")%> <%=RS("DL_OS")%>