%@LANGUAGE="VBSCRIPT"%> <% Dim rsWeeklyTip Dim rsWeeklyTip_numRows Set rsWeeklyTip = Server.CreateObject("ADODB.Recordset") rsWeeklyTip.ActiveConnection = MM_connWeb4Golf_STRING rsWeeklyTip.Source = "SELECT * FROM web4golf.golftips WHERE tips_totw = 'Yes'" rsWeeklyTip.CursorType = 0 rsWeeklyTip.CursorLocation = 2 rsWeeklyTip.LockType = 1 rsWeeklyTip.Open() rsWeeklyTip_numRows = 0 %>