Insert into + løkker

Jeg har denne her kode indtil nu:

For taeller= 1 to 999     
  \' Find ud af om personen er datamatiker ændret 30/01-2001 
    strSQL = \"INSERT INTO AxaptaBrugere (Axaptaid) VALUES (\'A\' &taeller) \"
    objCon.execute(strSQL)
    objCon.Commit()
Next

Jeg skal bare lige have fundet en måde at konvertere Values til Nvarchar som min id tabel er:

lav det sådan:


function funcBuildNumber(intNumber)

    dim strTemp
    strTemp = \"A\"
   
    if intNumber < 100 then
    strTemp = strTemp & \"0\"
    end if
   
    if intNumber < 10 then
    strTemp = strTemp & \"0\"
    end if
   
    funcBuildNumber = strTemp & intNumber

end function


For taeller= 1 to 999     
  \' Find ud af om personen er datamatiker ændret 30/01-2001 
    strSQL = \"INSERT INTO AxaptaBrugere (Axaptaid) VALUES (\'\" & funcBuildNumber(taeller) & \"\') \"
    objCon.execute(strSQL)
    objCon.Commit()
Next

Let og elegant måde du lavede til mig der stoffer:

Min egen løsning blev sådan her:

For taeller= 1 to 999
if len(taeller)=1 then
    strSQL = \"INSERT INTO AxaptaBrugere (Axaptaid) VALUES (\'B00\" & taeller & \"\')\"
Elseif len(taeller)=2 then
    strSQL = \"INSERT INTO AxaptaBrugere (Axaptaid) VALUES (\'B0\" & taeller & \"\')\"
Else
strSQL = \"INSERT INTO AxaptaBrugere (Axaptaid) VALUES (\'B\" & taeller & \"\')\"
End if
Response.Write (strSQL & \" \")
objCon.execute(strSQL)

Men du får points for den pæne udførelse =)

merci :)