<%@LANGUAGE="VBSCRIPT"%> <% set rsThumbsMenu = Server.CreateObject("ADODB.Recordset") rsThumbsMenu.ActiveConnection = MM_TemplarDSN_STRING rsThumbsMenu.Source = "SELECT * FROM ImagesUploaded WHERE GalleryID = 'weddings1'" rsThumbsMenu.CursorType = 0 rsThumbsMenu.CursorLocation = 2 rsThumbsMenu.LockType = 3 rsThumbsMenu.Open() rsThumbsMenu_numRows = 0 %> <% Dim rsLargeImage__MMColParam rsLargeImage__MMColParam = "1" if (Request.QueryString("ID") <> "") then rsLargeImage__MMColParam = Request.QueryString("ID") %> <% set rsLargeImage = Server.CreateObject("ADODB.Recordset") rsLargeImage.ActiveConnection = MM_TemplarDSN_STRING rsLargeImage.Source = "SELECT * FROM ImagesUploaded WHERE ID = " + Replace(rsLargeImage__MMColParam, "'", "''") + "" rsLargeImage.CursorType = 0 rsLargeImage.CursorLocation = 2 rsLargeImage.LockType = 3 rsLargeImage.Open() rsLargeImage_numRows = 0 %> <% Dim MM_paramName %> <% Dim HLooper1__numRows HLooper1__numRows = 12 Dim HLooper1__index HLooper1__index = 0 rsThumbsMenu_numRows = rsThumbsMenu_numRows + HLooper1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Third Eye Studio wedding photographer and portrait photographer
            home links about us
          ortho
SOOTHE		 ortho
HARMONY 		ortho
MAXIM 		ortho
FORMAT
 

 
TEL: 01 4552222 email: inpho@thirdeyestudio.com 12 Taylor Street, Balbriggan, Co. Dublin

ABOUT US

Third Eye Studio was developed in 1982 by James Mannion and Eugene McGuinness as they joined their two individual businesses together.

James speciality is wedding photography and portrait photography: he has won a number of national awards over the years.

Eugene's strength lies in the area of commercial photography, where he specialises in fashion photography.

Good photography is created when the proper balance of artistic flair, years of experience and the skill of a good craftsperson.

<% rsThumbsMenu.Close() %> <% rsLargeImage.Close() %>