Listar 1 registro

[Tosta 0]

Olá a todos,

 

Bem eu tenho uma tabela com cód. da empresa, códigos de cupom e cód. do usuário. Ex:

Empresa | Cupom | Usuário

1000 | AAA | Pedro

1000 | BBB |

1234 | XXX | Paulo

1000 | CCC |

 

Quero listar o 1º cód. de cupom que não tem um usuário informado e se for acrescentado 1 usuário nele ele passa a listar o próximo cód. que estiver vazio até acabar.

 

Já consegui fazer listar os registros vazios porém todos e não consigo apenas o 1º. Está aparecendo BBB CCC

Fiz da seguinte forma:

 

Set rsGetsites = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * From tblCUPONSCONSULTA WHERE IDSITES = " & intSiteIDNo & ";"

rsGetsites.CursorType = 2

rsGetsites.LockType = 3

rsGetsites.Open strSQL, strCon

set rsGetsites = adoCon.Execute(strSQL)

<%

Do while not rsGetsites.eof

If isNull(rsGetsites("USER_ID")) then

Response.Write vbCrLf & "<b>" & rsGetsites("COD") &"</b><BR>"

End IF

rsGetsites.MoveNext

loop

%>

 

Ele lista todos os cupons quando usuário está vazio, porém como disse preciso que liste apenas o 1º cupom e se este for utilizado ai passa para o segundo cupom e assim por diante. Deveria sair BBB apenas.

[Tosta 0]

Galera consegui resolver aqui. Se servir para alguém a solução foi fazer o seguinte no select:

 

strSQL = "SELECT TOP 1 * From tblCUPONSCONSULTA WHERE USER_ID IS NULL and IDSITES = " & intSiteIDNo & " "

 

Acrescentei USER_ID IS NULL e resolveu