<% set rsgg=server.CreateObject("adodb.recordset") rsgg.Open "select * from AD where id in(6)",conn,1,1 if not rsgg.eof then %>
<% If rsgg.fields("ADurl")<>"#" Then %> " <% If rsgg.fields("newwindow")=1 Then %>target="_blank"<% End If %>> <% End If %> " width="1000" height="365" title="<%= rsgg.fields("ADtitle") %>" alt="<%= rsgg.fields("miaoshu") %>" border="0" /> <% If rsgg.fields("ADurl")<>"#" Then response.Write "" %>
<% End If rsgg.close %>
<% sql = "select * from custuser order by paixu" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
典致家俱客户鉴证(部分)
" width="180" height="120" style="border:solid #CCC 1px;margin-top:30px;"/>  <%= rs.fields("custname") %>
   <%= rs.fields("custtext") %>