<%@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 rsPhotoGallery__MMColParam rsPhotoGallery__MMColParam = "1" If (Request.QueryString("ProjectsID") <> "") Then rsPhotoGallery__MMColParam = Request.QueryString("ProjectsID") End If %> <% Dim rsPhotoGallery Dim rsPhotoGallery_numRows Set rsPhotoGallery = Server.CreateObject("ADODB.Recordset") rsPhotoGallery.ActiveConnection = MM_FarmConn_STRING rsPhotoGallery.Source = "SELECT * FROM dbo.ProjectsTbl WHERE ProjectsID = " + Replace(rsPhotoGallery__MMColParam, "'", "''") + "" rsPhotoGallery.CursorType = 0 rsPhotoGallery.CursorLocation = 2 rsPhotoGallery.LockType = 1 rsPhotoGallery.Open() rsPhotoGallery_numRows = 0 %> <% Dim rsPictures__MMColParam rsPictures__MMColParam = "1" If (Request.QueryString("ProjectsID") <> "") Then rsPictures__MMColParam = Request.QueryString("ProjectsID") End If %> <% Dim rsPictures Dim rsPictures_numRows Set rsPictures = Server.CreateObject("ADODB.Recordset") rsPictures.ActiveConnection = MM_FarmConn_STRING rsPictures.Source = "SELECT * FROM dbo.PicturesTbl WHERE ProjectID = " + Replace(rsPictures__MMColParam, "'", "''") + "" rsPictures.CursorType = 0 rsPictures.CursorLocation = 2 rsPictures.LockType = 1 rsPictures.Open() rsPictures_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 rsPictures_numRows = rsPictures_numRows + HLooper1__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 Gallery - <%=(rsPhotoGallery.Fields.Item("ProjectTitle").Value)%>

Click on image to see full size

<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not rsPictures.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsPictures.EOF)) %> <% startrw = startrw + 1 rsPictures.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
&PictureID=<%=(rsPictures.Fields.Item("PictureID").Value)%>')">" alt="" class="news_bus" />
<%=(rsPictures.Fields.Item("PictureTitle").Value)%>
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
<% rsPhotoGallery.Close() Set rsPhotoGallery = Nothing %> <% rsPictures.Close() Set rsPictures = Nothing %>