<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_images_STRING Recordset1.Source = "SELECT * FROM gallery01 ORDER BY img_order ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat_Recordset1__numRowsHL Dim Repeat_Recordset1__indexHL Repeat_Recordset1__numRowsHL = -1 Repeat_Recordset1__indexHL = 0 Recordset1_numRows = Recordset1_numRows + Repeat_Recordset1__numRowsHL %> MARCHMONT WEB - Marchmont Community Website - Edinburgh, Scotland

LOCAL BUSINESSES

Click on the thumbnails to see the full images...

<% ' Horizontal Looper While ((Repeat_Recordset1__numRowsHL <> 0) AND (NOT Recordset1.EOF)) %> ','','width=500,height=500')"> " alt="<%=(Recordset1.Fields.Item("img_alttext").Value)%>" hspace="10" vspace="10" border="0"> <% 'Horizontal Looper Repeat_Recordset1__indexHL=Repeat_Recordset1__indexHL+1 Repeat_Recordset1__numRowsHL=Repeat_Recordset1__numRowsHL-1 Recordset1.MoveNext() if len(nested_Recordset1)<=0 then nested_Recordset1 = 1 end if if ((Repeat_Recordset1__numRowsHL <> 0) AND (NOT Recordset1.EOF) AND (nested_Recordset1 mod 3 = 0)) then Response.Write "
" end if nested_Recordset1 = nested_Recordset1 + 1 'end horizontal looper Wend %>

HOME | BUSINESSES | NEWS | MAP | NOTICEBOARD | CONTACT

Site designed & maintained by: AACHEN PROJECT

<% Recordset1.Close() Set Recordset1 = Nothing %>