<% Language = VBScript %> <% Response.Buffer = True %> <% dim strSQL, sqlCMD, ODBCConnection, rs, strConnect,cStr 'sqlCMD = "SELECT firstname,lastname,tmiemail,title,bio FROM contactinfo" sqlCMD = "SELECT * FROM contactinfo" cStr = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=;Password=;Data Source=" & server.mappath("../database/contact.mdb") set ODBCConnection = Server.CreateObject( "ADODB.Connection" ) ODBCConnection.Open cStr set rs = ODBCConnection.Execute(sqlCMD) %> Team Bios

<% dim fixBio rs.MoveFirst do while not rs.EOF fixBio = rs("bio") if (fixBio <> "") then Response.Write "" & rs("firstname") & " " & rs("lastname") & "" Response.Write " " & fixBio & "

" end if rs.MoveNext loop %> <% 'Close and null the recordset rs.close set rs = nothing 'Close and null the connection ODBCConnection.close set ODBCConnection = nothing %>