<%
Dim l_list_sql as string
Dim ArrayVote() As Integer
Dim ArrayWeb() As string
ReDim ArrayVote(7)
Dim ii as integer
l_list_sql = "select * from ev20080321_sport03_vote order by no asc"
style_Cmd = New OleDbCommand(l_list_sql,style_Connect )
style_Reader = style_Cmd.ExecuteReader()
ii = 0
Do While style_Reader.Read()
ii = ii + 1
if ii = Cint(style_Reader.Item("no"))
ArrayVote(ii) = style_Reader.Item("vote_count")
end if
'response.write(" "&ArrayVote(ii))
Loop
style_Reader.Close()
%>
STYLEblog
