Sri Lanka Contacts

<%@ Language=VBScript %> <% Dim strSQL Dim rsTest Set rsTest = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM contacts ORDER BY Contacts.FirstName" rsTest.Open strSQL,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Inetpub\thecundalls.com\SriLanka\SriLankaContacts.mdb;Persist Security Info=False" %> Sri Lanka Contacts

	Sri Lanka Contacts

<% Do While NOT rsTest.EOF %> <% rsTest.MoveNext Loop %>

Name	Email Address	Country	Occupation	Notes	Prayer Request
<% =rsTest("FirstName") %> <% =rsTest("LastName") %>	"<% =rsTest("EmailName") %>	<% =rsTest("Country") %>	<% =rsTest("Occupation") %>	<% =rsTest("Notes") %>	<% =rsTest("PrayerRequest") %>

<% rsTest.Close Set rsTest = Nothing %>