 About Me
Membership
References
Writings
Outreach
My Rituals
Newsletter
Contact Me
HOME
|
Church of the Divine Sage
----
Bhagavad-Gita Online ----
|
Chapters |
<%
'open database connection
Call OpenConn(strConn)
'open recordset
Call OpenRS("Exec OTBooksProc", oConn, adOpenForwardOnly, adUseServer, adLockReadOnly, "")
'check for database error etc.
if oConn.Errors.Count > 0 or oRS.EOF then
Response.Write("Error opening page, please contact system administrator. | ")
else
Dim i
i=1
'write the Old Testament results
do while not oRS.EOF
'used to count columns
if i>2 then
i=1
end if
if i = 1 then
Response.Write("")
end if
Response.Write("| · " & oRS.Fields("BookName") & " | ")
if i = 2 then
Response.Write(" ")
end if
oRS.MoveNext
i=i+1
loop
end if
'close recordset
Call CloseRS
'open new recordset
Call OpenRS("Exec NTBooksProc", oConn, adOpenForwardOnly, adUseServer, adLockReadOnly, "")
%>
|
|
|
