<% Set DBConnection = Server.CreateObject("adodb.connection") DSNnews = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSNnews = DSNnews & "DBQ=" & Server.Mappath("news.mdb") DBConnection.Open DSNnews SQL = "SELECT * FROM news ORDER BY id DESC" Set RS1 = DBConnection.Execute(SQL) %> <% x = 0 For x = 1 to 100 If rs1.eof then Exit For Else date1 = rs1("date") id = rs1("ID") name1 = rs1("topic") link = "" & date1 & "" description = name1 %> <% =link%>  -- <% =description%>
<% rs1.MoveNext End If Next rs1.close set rs1=nothing %> On-Line Catalog
<% SQL = "SELECT * FROM main WHERE id= 1" Set RS = DBConnection.Execute(SQL) note1 = rs("note") %> <% =note1%>
<% SQL = "SELECT * FROM main WHERE id= 2" Set RS = DBConnection.Execute(SQL) note1 = rs("note") %> <% =note1%>

.

.
NEWS HIGHLIGHTS
.................................................

...............................more news.....
<% SQL = "SELECT * FROM main WHERE id= 3" Set RS = DBConnection.Execute(SQL) note1 = rs("note") %> <% =note1%>