•<TABLE BORDER='1'>
•<TR>
–<TH>Empresa</TH>
–<TH>Contato</TH>
–<TH>Telefone</TH>
•</TR>
•<%Do
Until rs.EOF%>
•<TR>
–<TD><%=rs("CompanyName")%></TD>
–<TD><%=rs("ContactName")%></TD>
–<TD><%=rs("Phone")%></TD>
•</TR>
•<%rs.MoveNext
•Loop%>
•</TABLE>
•</DIV>
•</BODY>
•</HTML>
•<%
rs.Close
•set rs =
Nothing
•conn.Close
•set conn =
Nothing %>