<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim MM_figurativeart_STRING MM_figurativeart_STRING = "Driver={MySQL ODBC 5.1 Driver}; DATABASE=web240-munslow;USER=web240-munslow; PASSWORD=JJKi8fr; Server=127.0.0.1" %> <% Dim menu1 Dim menu1_numRows Set menu1 = Server.CreateObject("ADODB.Recordset") menu1.ActiveConnection = MM_figurativeart_STRING menu1.Source = "SELECT * FROM gallerytype WHERE gallery_section ='S' ORDER BY gallery_id ASC" menu1.CursorType = 0 menu1.CursorLocation = 2 menu1.LockType = 1 menu1.Open() menu1_numRows = 0 %> <% Dim menu2 Dim menu2_numRows Set menu2 = Server.CreateObject("ADODB.Recordset") menu2.ActiveConnection = MM_figurativeart_STRING menu2.Source = "SELECT * FROM gallerytype WHERE gallery_section ='P' ORDER BY gallery_id ASC" menu2.CursorType = 0 menu2.CursorLocation = 2 menu2.LockType = 1 menu2.Open() menu2_numRows = 0 %> <% Dim links Dim links_numRows Set links = Server.CreateObject("ADODB.Recordset") links.ActiveConnection = MM_figurativeart_STRING links.Source = "SELECT * FROM links ORDER BY link_id DESC" links.CursorType = 0 links.CursorLocation = 2 links.LockType = 1 links.Open() links_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 links_numRows = links_numRows + Repeat1__numRows %> <% Dim Repeat99__numRows Dim Repeat99__index Repeat99__numRows = -1 Repeat99__index = 0 menu2_numRows = menu2_numRows + Repeat99__numRows %> <% Dim Repeat98__numRows Dim Repeat98__index Repeat98__numRows = -1 Repeat98__index = 0 menu1_numRows = menu1_numRows + Repeat98__numRows %> Links
figurative art, angela munslow - sculptor & painter
home sculpture gallery painting gallery biography workshops contact links

Links

<% While ((Repeat1__numRows <> 0) AND (NOT links.EOF)) %> "><%=(links.Fields.Item("link_name").Value)%>- <%=(links.Fields.Item("link_desc").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 links.MoveNext() Wend %>

 
Home | Sculpture Gallery | Painting Gallery | Biography | Workshops | Contact | Links | Gallery Details
all copyright, design right and other intellectual property rights of the images, designs and products are and will remain the property of Angela Munslow

© Copyright Angela Munslow 2003
<% menu2.Close() Set menu2 = Nothing %> <% links.Close() Set links = Nothing %> <% menu1.Close() Set menu1 = Nothing %>