<%@ Language=VBScript %>
<%
Response.Expires=0
set connection=server.CreateObject("ADODB.Connection")
Connection.Open"Ndc_db"
sqlstmt="select * from events ORDER BY date_value"
set rsEvents=connection.Execute(sqlstmt)
tablestring=""
do while not rsEvents.eof
tablestring=tablestring & "| " & rsEvents("date_value") & " | " & replace(rsEvents("heading"),"^","'") & " | |
"
tablestring=tablestring & "
"
rsEvents.movenext
loop
rsEvents.close
set rsEvents=nothing
connection.Close
set connection=nothing
%>
St. Lucia National Developmet Corporation
 |
 |
|
Listing Of
Information for Prospective Investors
|
<%=tablestring%>
|
|
|
