%@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 sculpturemenu Dim sculpturemenu_numRows Set sculpturemenu = Server.CreateObject("ADODB.Recordset") sculpturemenu.ActiveConnection = MM_figurativeart_STRING sculpturemenu.Source = "SELECT * FROM gallerytype WHERE gallery_section ='S' ORDER BY gallery_id ASC" sculpturemenu.CursorType = 0 sculpturemenu.CursorLocation = 2 sculpturemenu.LockType = 1 sculpturemenu.Open() sculpturemenu_numRows = 0 %> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_figurativeart_STRING news.Source = "SELECT * FROM news WHERE news_id=2" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> <% Dim isnewslink Dim isnewslink_numRows Set isnewslink = Server.CreateObject("ADODB.Recordset") isnewslink.ActiveConnection = MM_figurativeart_STRING isnewslink.Source = "SELECT news_islink, news_id FROM news WHERE news_id =1 AND news_islink='NO'" isnewslink.CursorType = 0 isnewslink.CursorLocation = 2 isnewslink.LockType = 1 isnewslink.Open() isnewslink_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 %>
|
|||||||||||||||||||||||||||||||||