%
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from top_text1 where textid=17",conn,1,1
webtitle=trim(rs1("texttitle"))
%>
國華徵信--<%=webtitle%>
Menu <%=trim(rs1("texttitle"))%>
....
<%if len(rs1("textpic"))>0 then %>
<% end if %>
<%=trim(rs1("text"))%>
<%if len(trim(rs1("textsorce"))) > 0 then%>