The Corner Shelf Bookstore

<%@LANGUAGE="VBSCRIPT"%> <% Dim evntdetail Dim evntdetail_numRows Set evntdetail = Server.CreateObject("ADODB.Recordset") evntdetail.ActiveConnection = MM_Bookstore_STRING evntdetail.Source = "SELECT * FROM evnts ORDER BY txtEvntID ASC" evntdetail.CursorType = 0 evntdetail.CursorLocation = 2 evntdetail.LockType = 1 evntdetail.Open() evntdetail_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 evntdetail_numRows = evntdetail_numRows + Repeat1__numRows %> The Corner Shelf Bookstore

<% While ((Repeat1__numRows <> 0) AND (NOT evntdetail.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 evntdetail.MoveNext() Wend %>

<%=(evntdetail.Fields.Item("txtEvntTitle").Value)%>

<%=(evntdetail.Fields.Item("txtEvntBody").Value)%>

<% evntdetail.Close() Set evntdetail = Nothing %>