<% Dim adoCon Dim rsContacts Dim strSQL Dim Color1 Dim Color2 Set adoCon = Server.CreateObject("ADODB.CONNECTION") adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("LSGJOBS.mdb") Set rsContacts = Server.CreateObject("ADODB.Recordset") strSQL = "Select * from Lead_Data" rsContacts.Open strSQL, adoCon Do While not rsContacts.EOF Response.Write("

") Response.Write("
") Response.Write(""&rsContacts("Lead_Name")) Response.Write("

") Response.Write(""&rsContacts("Comments")) Response.Write("

") Response.Write("
") rsContacts.MoveNext Loop rsContacts.close set rsContacts = Nothing set adoCon = Nothing %>