<% Option Explicit Response.Expires = -1000 Dim Conn Dim oRS Dim sConnection Dim sSQL Dim sColor Set Conn = Server.CreateObject("ADODB.Connection") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("pct.mdb") & ";" & _ "Persist Security Info=False" Conn.Open(sConnection) sSQL = "SELECT * FROM chapter, member WHERE chapter.chapter_name = member.collegiate_chapter" Set oRS = Conn.Execute(sSQL) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") sColor = "white" Do While NOT oRS.EOF If sColor = "silver" Then sColor = "white" Else sColor = "silver" End If Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") oRS.MoveNext Loop Response.Write("

Member Number	Chapter	Work	Work Email	Work Phone
" & oRS("member_number").Value & "	" & oRS("chapter_name").Value & "	" & oRS("waddress").Value & "	" & oRS("hemail").Value & "	" & oRS("wphone").value & "

") Conn.Close Set oRS = Nothing Set Conn = Nothing %>