<%@ Page Language="VB" %> <%@ Import Namespace = "System.Net" %> <%@ Import Namespace="System.Net.Mail" %>

<% Set rstest = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM tblContacts;" rstest.Open sql, db %> <% if rstest.EOF then response.write "No Records Found!" Do While NOT rstest.Eof %> %>

Date/Time	Officer	Comments

First Name:
Last Name:
E-mail: