%
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%>