%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_FarmConn_STRING 'MM_FarmConn_STRING = "Driver={SQL Server};Server=[connection info] MM_FarmConn_STRING = "Driver={SQL Server};Server=[connection info] %> <% Dim rsGallery Dim rsGallery_numRows Set rsGallery = Server.CreateObject("ADODB.Recordset") rsGallery.ActiveConnection = MM_FarmConn_STRING rsGallery.Source = "SELECT * FROM dbo.ProjectsTbl" rsGallery.CursorType = 0 rsGallery.CursorLocation = 2 rsGallery.LockType = 1 rsGallery.Open() rsGallery_numRows = 0 %> <% Dim rsPictures Dim rsPictures_numRows Set rsPictures = Server.CreateObject("ADODB.Recordset") rsPictures.ActiveConnection = MM_FarmConn_STRING rsPictures.Source = "SELECT * FROM dbo.PicturesTbl" rsPictures.CursorType = 0 rsPictures.CursorLocation = 2 rsPictures.LockType = 1 rsPictures.Open() rsPictures_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsGallery_numRows = rsGallery_numRows + Repeat1__numRows %>