%@LANGUAGE="VBSCRIPT"%> <% Dim rsImagePhotographers Dim rsImagePhotographers_numRows Set rsImagePhotographers = Server.CreateObject("ADODB.Recordset") rsImagePhotographers.ActiveConnection = MM_PhotoLounge2_STRING rsImagePhotographers.Source = "SELECT * FROM Photographers" rsImagePhotographers.CursorType = 0 rsImagePhotographers.CursorLocation = 2 rsImagePhotographers.LockType = 1 rsImagePhotographers.Open() rsImagePhotographers_numRows = 0 %> <% Dim rsImageCategory Dim rsImageCategory_numRows Set rsImageCategory = Server.CreateObject("ADODB.Recordset") rsImageCategory.ActiveConnection = MM_PhotoLounge2_STRING rsImageCategory.Source = "SELECT * FROM Categories" rsImageCategory.CursorType = 0 rsImageCategory.CursorLocation = 2 rsImageCategory.LockType = 1 rsImageCategory.Open() rsImageCategory_numRows = 0 %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||
<% rsImagePhotographers.Close() Set rsImagePhotographers = Nothing %> <% rsImageCategory.Close() Set rsImageCategory = Nothing %>