%@LANGUAGE="VBSCRIPT"%> <% session("sLANG")="ENG"%> <% Dim ev Dim ev_cmd Dim ev_numRows Set ev_cmd = Server.CreateObject ("ADODB.Command") ev_cmd.ActiveConnection = MM_cmshic_STRING ev_cmd.CommandText = "SELECT * FROM events WHERE events_language ='" + session("slang") + "' and events_outstanding=71 ORDER BY events_id desc" ev_cmd.Prepared = true Set ev = ev_cmd.Execute ev_numRows = 0 %> <% 'response.write(ev.source) %> <% Dim nw Dim nw_cmd Dim nw_numRows Set nw_cmd = Server.CreateObject ("ADODB.Command") nw_cmd.ActiveConnection = MM_cmshic_STRING nw_cmd.CommandText = "SELECT * FROM news WHERE news_language='ENG' and news_outstanding=71 ORDER BY news_publishdate desc" nw_cmd.Prepared = true Set nw = nw_cmd.Execute nw_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 ev_numRows = ev_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 nw_numRows = nw_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||||||||
<% ev.Close() Set ev = Nothing %> <% nw.Close() Set nw = Nothing %>