<% set rs = server.CreateObject("adodb.recordset") qry = "select * from CMS where pageid = 12" rs.open qry, conn %> African American Wedding Planning - BlackBridalGuide.com <% Set rsmeta=Server.CreateObject("Adodb.Recordset") qry = "select * from products where categoryid = 30" rsmeta.open qry, conn if not rsmeta.bof or not rsmeta.eof then do until rsmeta.eof meta = meta & rsmeta("productname") & ", " rsmeta.movenext loop end if rsmeta.close set rsmeta = nothing %>
<% set rsvendors = server.CreateObject("adodb.recordset") rsvendors.open " select * from vendors order by company_name asc",conn if not rsvendors.eof then xtd = 1 do while not rsvendors.eof 'if xtd mod 3 = 0 then ' Response.Write("") 'end if %> <% rsvendors.movenext xtd = xtd + 1 loop end if %>
<%=rs("pagetitle")%>  
<%=rs("ptext")%>
 
<%=rsvendors("company_name")%>
<%if rsvendors("contact_name") <> "" then%> <%=rsvendors("contact_name")%>
<%end if%> <%=rsvendors("address")%>, <%=rsvendors("vendor_state")%>
<%=rsvendors("phone")%>
<%if rsvendors("email_address") <> "" then%> <%=rsvendors("email_address")%>
<%end if%> <%if rsvendors("vendor_url") <> "" then%> <%=rsvendors("vendor_url")%>
<%end if%>