<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("script/guest/bbs.asp")
Set rss = Server.CreateObject("ADODB.Recordset")
sql="select top 10 id,content,homepage from table1 order by id desc"
rss.open sql,con,1,1
do until rss.eof
homepage=homepage&""
%>
·
<% if homepage="" then response.Write left(rss("content"),32) else response.Write rss("homepage") end if %>
<% rss.movenext
loop
%>