Here is the code that I use in a lot of applications:
I would like to create a QC_Load_Arrays like so:
How can I get around to this?
Code:
cmd.CommandText="SELECT ID, Brand FROM Brands ORDER BY Brand;"
set rs=cmd.execute
If not rs.EOF Then
ArrBrands=rs.GetRows
set rs=nothing
objBR=UBound(ArrBrands,2)
End If
cmd.CommandText="SELECT NTLogon, LastName + ', ' + FirstName FROM Associates WHERE QADE='1' AND Active='1';"
set rs=cmd.execute
If not rs.EOF Then
ArrQNTID=rs.GetRows
set rs=nothing
objQR=UBound(ArrQNTID,2)
End If
cmd.CommandText="SELECT NTLogon, LastName + ', ' + FirstName FROM Associates WHERE DataEntry='1' AND Active='1';"
set rs=cmd.execute
If not rs.EOF Then
ArrONTID=rs.GetRows
set rs=nothing
objOR=UBound(ArrONTID,2)
End If
I would like to create a QC_Load_Arrays like so:
Code:
Function QC_Load_Arrays ()
cmd.CommandText="SELECT ID, Brand FROM Brands ORDER BY Brand;"
set rs=cmd.execute
If not rs.EOF Then
ArrBrands=rs.GetRows
set rs=nothing
objBR=UBound(ArrBrands,2)
End If
cmd.CommandText="SELECT NTLogon, LastName + ', ' + FirstName FROM Associates WHERE QADE='1' AND Active='1';"
set rs=cmd.execute
If not rs.EOF Then
ArrQNTID=rs.GetRows
set rs=nothing
objQR=UBound(ArrQNTID,2)
End If
cmd.CommandText="SELECT NTLogon, LastName + ', ' + FirstName FROM Associates WHERE DataEntry='1' AND Active='1';"
set rs=cmd.execute
If not rs.EOF Then
ArrONTID=rs.GetRows
set rs=nothing
objOR=UBound(ArrONTID,2)
End If
End Function
QC_Load_Arrays ()
...
For iCtr=0 to objBR
%><option value="<%=ArrBrands(0,iCtr)
%>"><%=ArrBrands(1,iCtr)
%></option>
Next
..
How can I get around to this?