|
What if you have a (javascript)combobox (in an ASP page) that you're trying to fill from an SQL server database? I have this code here, but I can't get it to work...
Function PrintJavascriptArray(ByRef objCN, strsql)
Dim objRS, ArrayRecords, i, j
Dim NumRows, NumColumns
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql,objcn,adOpenForwardOnly,adLockReadOnly,adCm dText
Do While Not objRS.EOF
ArrayRecords = objRS.GetRows(50)
NumRows = UBound(ArrayRecords,2)
NumColumns = UBound(ArrayRecords,1)
For i = 0 To NumRows
For j = 0 To NumColumns
Response.write Chr(34)
If Not IsNull(ArrayRecords(j, i)) Then
Response.write Replace(ArrayRecords(j, i), _
Chr(34),Chr(34)&"+String.fromCharCode(34)+"&Chr(34 ))
End If
Response.write Chr(34)
' Print comma, except at last record
If Not objRS.EOF Or i <> NumRows _
Or j <> NumColumns Then
Response.write ","
End If
Next
Next
Response.write vbCrLf
Loop
objRS.Close
Set objRS = nothing
End Function
Then I'm calling it with this:
<script type="text/javascript">
myJavascriptArray = Array(
<% PrintJavascriptArray "DSN=MyDSN", _
"SELECT ObjectID, ObjectName FROM tblObjects" %>
);
</script>
__________________
Need a vacation.
|