%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' HTTP="true" ' Catalog="" ' Schema="" MM_Support_Notes_DB_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/db/support_notes.mdb") %> <% Dim MosReqNotes Dim MosReqNotes_numRows Set MosReqNotes = Server.CreateObject("ADODB.Recordset") MosReqNotes.ActiveConnection = MM_Support_Notes_DB_STRING MosReqNotes.Source = "SELECT CSN, inserted_to_site_date, Subject FROM Support_Notes_Archive ORDER BY inserted_to_site_date DESC" MosReqNotes.CursorType = 0 MosReqNotes.CursorLocation = 2 MosReqNotes.LockType = 1 MosReqNotes.Open() MosReqNotes_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 MosReqNotes_numRows = MosReqNotes_numRows + Repeat1__numRows %>
|
|
|