How to translate this ASP code in PHP code?
<%
'Get Poll Results using Filter
Dim arrCount(1000)
For i = 1 to 4
FilterParam = i
rs_poll.Filter = "Choice = " & FilterParam
'Count results
While NOT rs_poll.EOF
arrCount(i) = arrCount(i) + 1
rs_poll.MoveNext()
Wend
Next
%>
<%
'Get Poll Results using Filter
Dim arrCount(1000)
For i = 1 to 4
FilterParam = i
rs_poll.Filter = "Choice = " & FilterParam
'Count results
While NOT rs_poll.EOF
arrCount(i) = arrCount(i) + 1
rs_poll.MoveNext()
Wend
Next
%>