%@LANGUAGE="VBSCRIPT"%> <% Dim get_poll_q__MMColParam get_poll_q__MMColParam = "1" %> <% Dim get_poll_q Dim get_poll_q_numRows Set get_rates = Server.CreateObject("ADODB.Recordset") get_rates.ActiveConnection = MM_sbpsearch_STRING get_rates.Source = "SELECT * FROM SBPONLINE.CONVERSION_RATES where active=1" get_rates.CursorType = 0 get_rates.CursorLocation = 2 get_rates.LockType = 1 get_rates.Open() get_rates_numRows = 0 Set get_poll_q = Server.CreateObject("ADODB.Recordset") get_poll_q.ActiveConnection = MM_sbpsearch_STRING get_poll_q.Source = "SELECT * FROM SBPONLINE.POLL_QUESTIONS WHERE ACTIVE=1" get_poll_q.CursorType = 0 get_poll_q.CursorLocation = 2 get_poll_q.LockType = 1 get_poll_q.Open() get_poll_q_numRows = 0 Set get_poll_opt = Server.CreateObject("ADODB.Recordset") get_poll_opt.ActiveConnection = MM_sbpsearch_STRING get_poll_opt.Source = "SELECT * FROM SBPONLINE.POLL_Options WHERE Poll_ID=" & get_poll_q("POLL_ID") get_poll_opt.CursorType = 0 get_poll_opt.CursorLocation = 2 get_poll_opt.LockType = 1 get_poll_opt.Open() %>