%@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
%>
<%
MosReqNotes.Close()
Set MosReqNotes = Nothing
%>