I trying to load a combobox and I am having a few problems, here is my code:

VB Code:
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

  2. <%

  3.  
  4. Dim MM_DB_STRING

  5.  
  6. MM_DB_STRING = "Provider=SQLOLEDB;Data Source=(Local);" _

  7.         & "Initial Catalog=IADATA;User Id=UserName;Password=Password;"

  8.  
  9. Dim customerRS

  10. Dim customerRS_numRows

  11. Dim Customer

  12.  
  13. Set customerRS = Server.CreateObject("ADODB.Recordset")

  14. customerRS.ActiveConnection = MM_DB_STRING

  15. customerRS.Source = "select USERLNAM, P_WORD from CURRENT_Users"

  16. customerRS.CursorType = 0

  17. customerRS.CursorLocation = 2

  18. customerRS.LockType = 1

  19. customerRS.Open()

  20.  
  21. customerRS_numRows = 0

  22. %>

  23. <%

  24. While (NOT customerRS.EOF)

  25. %>

  26.  
  27. <%

  28. Customer =(customerRS.Fields.Item("USERLNAM").Value)%><%=(customerRS.Fields.Item("USERLNAM").Value)%>

  29. <%

  30. customerRS.MoveNext()

  31. Wend

  32. If (customerRS.CursorType > 0) Then

  33. customerRS.MoveFirst

  34. Else

  35. customerRS.Requery

  36. End If

  37. %>

  38.  
  39.  
  40. <%

  41. customerRS.Close()

  42. Set customerRS = Nothing

  43. %>

  44.  
  45. And the actionscript

  46.  
  47.  
  48. my_lv = new LoadVars();

  49. my_lv.onLoad = handleLoad;

  50. my_lv.load("combobox.asp");

  51. function handleLoad(success) {

  52. if(success) {

  53. for(var i in this) _root.customer.addItem(i,this[i]);

  54. } else {

  55. trace("Problems loading combo data!");

  56. }

  57. }

Any suggestions?

Thanks