%@LANGUAGE="VBSCRIPT"%> <% Dim rshomeweek Dim rshomeweek_numRows Set rshomeweek = Server.CreateObject("ADODB.Recordset") rshomeweek.ActiveConnection = MM_photogallerymanager_STRING rshomeweek.Source = "SELECT ItemID, price, status, beds, ItemDesc, ImageFileA FROM tblPhotoGallery WHERE status LIKE 'Home%'" rshomeweek.CursorType = 0 rshomeweek.CursorLocation = 2 rshomeweek.LockType = 1 rshomeweek.Open() rshomeweek_numRows = 0 %>
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
admin |