R
Ros Vicente
Group,
Please Help.
The following code does not work with a <SELECT> tag. but
it will work for Active X Combobox.
any idea why it will not work for <SELECT>?
keep in mind... our server is locked down for ASP, CGI,
JSP. I'm trying to run the application from our shared
drive.
Thanks in advance.
Ros
<HTML>
<HEAD>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub ComboBox1_onactivate
Set conn = CreateObject("ADODB.Connection")
Set rs= CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source= " _
& "\\OurServer\MyFiles$\files\TestDB.mdb;"
Set rs = conn.Execute("SELECT Employee
FROM qryEmployee")
rs.MoveFirst
Do Until rs.EOF
i=i+1
rs.MoveNext
Loop
rs.MoveFirst
ReDim MyArray(i-1,0)
For i=0 to i
i=i+1
combobox1.add i, rs
("Employee")
rs.MoveNext
Next
rs.Close
End Sub
-->
</SCRIPT>
</HEAD>
<BODY text=white>
<SELECT style="FONT-WEIGHT: normal; FONT-SIZE: smaller;
WIDTH: 179px; FONT-STYLE: normal; FONT-FAMILY: sans-serif;
TEXT-ALIGN: left; FONT-VARIANT: normal; TEXT-DECORATION:
none" name=Combobox1 id=ComboBox1 datasrc=#MyArray
datafld=1>
</SELECT>
</BODY>
</HTML>
Please Help.
The following code does not work with a <SELECT> tag. but
it will work for Active X Combobox.
any idea why it will not work for <SELECT>?
keep in mind... our server is locked down for ASP, CGI,
JSP. I'm trying to run the application from our shared
drive.
Thanks in advance.
Ros
<HTML>
<HEAD>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub ComboBox1_onactivate
Set conn = CreateObject("ADODB.Connection")
Set rs= CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source= " _
& "\\OurServer\MyFiles$\files\TestDB.mdb;"
Set rs = conn.Execute("SELECT Employee
FROM qryEmployee")
rs.MoveFirst
Do Until rs.EOF
i=i+1
rs.MoveNext
Loop
rs.MoveFirst
ReDim MyArray(i-1,0)
For i=0 to i
i=i+1
combobox1.add i, rs
("Employee")
rs.MoveNext
Next
rs.Close
End Sub
-->
</SCRIPT>
</HEAD>
<BODY text=white>
<SELECT style="FONT-WEIGHT: normal; FONT-SIZE: smaller;
WIDTH: 179px; FONT-STYLE: normal; FONT-FAMILY: sans-serif;
TEXT-ALIGN: left; FONT-VARIANT: normal; TEXT-DECORATION:
none" name=Combobox1 id=ComboBox1 datasrc=#MyArray
datafld=1>
</SELECT>
</BODY>
</HTML>