<%
Dim adoEvents
Dim RS
Dim strSearchby
Dim SQL
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Session("ConnectionString") = "dsn=coonpanion"
Conn.Open Session("ConnectionString")
SQL = "SELECT * FROM whatsnew ORDER BY en_date DESC"
Set RS = Conn.Execute (SQL)
Set strDate = RS.fields("en_date")
Set strText = RS.fields("en_text")
%>
<%
Do while not RS.EOF
%>
| <%=strDate%> <%=strText%>
|
<%
RS.MoveNext
Loop
%>
This document was last modified on: