<%@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 Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 menu2_numRows = menu2_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 menu1_numRows = menu1_numRows + Repeat1__numRows %> Contact Angela Munslow