%@LANGUAGE="VBSCRIPT"%>
<%
Dim dev
Dim dev_numRows
Set dev = Server.CreateObject("ADODB.Recordset")
dev.ActiveConnection = MM_nhm_STRING
dev.Source = "SELECT * FROM Devotionals ORDER BY devid DESC"
dev.CursorType = 0
dev.CursorLocation = 2
dev.LockType = 1
dev.Open()
dev_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
dev_numRows = dev_numRows + Repeat1__numRows
%>
New Hope Ministries - Getting to Know Jesus Newsletter
 |
|
|
Getting to Know Jesus Newsletter
<%
While ((Repeat1__numRows <> 0) AND (NOT dev.EOF))
%>
| "><%=(dev.Fields.Item("title").Value)%> |
| Date:<%=(dev.Fields.Item("Xdate").Value)%> |
By:
Glen Copple |
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
dev.MoveNext()
Wend
%>
|
|
|
 |
|
<%
dev.Close()
Set dev = Nothing
%>