<%@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 %> Learning Tree Farms "The Farm" Field Trips by Learning Tree International
Learning Tree Farms Learning Tree Farms
Home
Picnic
Ten Guidelines
Field Trips
Photo Galleries
About Us
directions
Contact Us
Photo Galleries...Coming Soon

For More Information: Learning Tree Farms • 3876 Learning Tree Lane, Delaplane, Virginia 20144
Phone: (540) 364-0484 • Fax: (540) 364-0486 • Copyright © 2009 - Learning Tree Farms
<% rsGallery.Close() Set rsGallery = Nothing %> <% rsPictures.Close() Set rsPictures = Nothing %>