<%
Sub listaGanhadores(p)
Dim i, s, rs
Set rs = Server.CreateObject("AdoDb.RecordSet")
query = "Select usuarios.nmePes As nome, usuarios.email, usuariosPromocao.posSorteio " & _
" From usuariosPromocao Inner Join t_pessoa As usuarios " & _
" ON usuariosPromocao.usuario = usuarios.codPes " & _
" Where usuariosPromocao.promocao=" & p & _
" AND posSorteio > 0 " & _
" Order By usuariosPromocao.posSorteio"
rs.Open query, conn
If Not rs.EOF Then
i = 1
While Not rs.EOF
Response.Write "" & i & " - " & Trim(rs("nome")) & " " & vbCrLf
i = i + 1
rs.MoveNext
Wend
Else
Response.Write "Nenhum ganhador"
End If
rs.Close
Set rs = Nothing
End Sub
%>