Biotics Research | Metagenics | Thorne Research
   
     
     
     
     
     
     
     
   
       
 
Search our Site   
 
 
  Create an account.  
 
Sign up for Savings
Full Name

Your e-mail



 
       
 
Home >> Free Information Letter
Free Information Letter

Set rsInfo = Server.CreateObject("ADODB.Recordset") Sql = " Select Distinct a.BrandId,b.BrandName from tblInfoLetter Where a.BrandId = b.BrandID Order by BrandName " rsInfo.open Sql,Con ,3,1 if not rsInfo.Eof Then While not rsInfo.Eof Response.Write "" rsInfo.MoveNext Wend End if %>
Select Company
"&rsInfo("BrandName")&"