ciclo per controllo username

[piccolobill]

Ecco cosa devo fare....

ho un username....devo verificare che nel db non ce ne sia uno uguale in tal caso aggiungo ad username 1...se c'è aggiungo 2 etc.

come devo fare? mi sto incasinando
grazie

[optime]

nessun ciclo... basta una SELECT con una WHERE, del tipo

SELECT COUNT(*) FROM tabella_utenti WHERE campo_user = username

se RS(0) e' = 0, allora non c'e', e ti regoli di conseguenza, altrimenti....

[piccolobill]

si ma a questo punto poniamo il caso che ci sia già e ci sia anche quello con 1 finale io devo rifare il ciclo per vedere se ci sono finche non arrivo all'ultimo e ci aggiungo il numero corrispondente.

non so se sono stato chiaro

[optime]

no, non lo fosti

[piccolobill]

allora ho un username....poniamo pinco
se esiste un utente pingo aggiungo a pinco 1..poi rieseguo il ciclo...se c'è pinco1 aggiungo a pinco 2....quindi pinco2 etc.

capito?

credo che mi serve un do while ma non riesco acapire come usarlo

[optime]

okkkkei, prepara la birra

Dim iCnt
Dim sUsername
Dim sFirstFree
Dim sSQL

sUsername=.... lo recuperi in qualche modo
iCnt = 0

Do
   sFirstFree = sUserName
   If iCnt > 0 Then
      sFirstFree = sUserName & Trim(Str$(iCnt))
   End If
   sSQL = "SELECT COUNT(*) FROM tabella WHERE campo_user = '" & sFirstFree & "'"
   oRs.Open sSQL, oConn
   If Ors(0) < 1 Then Exit Do   ' not found, e' libero
   iCnt = iCnt + 1
   oRs.Close
Loop
oRs.Close

'sFirstFree contiene il primo libero

[piccolobill]

grazie...provo e ti faccio sapere......

[piccolobill]

mi da errore nel $

Microsoft VBScript compilation error '800a0408'

Invalid character

/admin/clienti_add.asp, line 27

sFirstFree = sUserName & Trim(Str$(iCnt))
---------------------------------^

[optime]

e che ci fai coi $dollari? toglilo

[piccolobill]

mi dice errore in str