Below is an example of a drop down list, dynamically populated from
a database table."

Then the values are not shown.Is there a setting on my Macromedia that I need to enable to allow database values or Im missing something.

here is the code:
Please guys, I have till this next week monday to get this rite

<%@LANGUAGE="VBSCRIPT" %>



<%
Option Explicit
Dim objConn
Dim objRS
Dim objRS2
Dim strSQL

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS2 = Server.CreateObject("ADODB.Recordset")

objConn.ConnectionString = Server.MapPath("dropdowns.mdb")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objConn.Open


'-- Sub Procedure that builds the dropdown list.
'-- Parameters c, r and table are passed when the sub is built.
Sub showDropDownList(c, r, table)

'-- SQL Statement
strSQL = "SELECT * FROM " & tblDropDownTest & " ORDER BY Title ASC"
'-- Execute our SQL statement and store the recordset
Set r = c.Execute(strSQL)

'-- START MAIN CODE BLOCK
'-- If we have records to return
if not r.eof = false then
'-- Open a form/select tag
'-- This particular example has no action attribute, which would normally...
'-- ...be required in order to post the data to another page for processing.
Response.Write "

Dynamic dropdown lists using Active Server Pages and Microsoft Access

Below is an example of a drop down list, dynamically populated from
a database table.

<%
' -- Call the sub procedure to build the drop down list, with the connection
and recordset objects and the source table (In quotes).
call showDropDownList(objConn, objRS, "tblDropDownTest")
%>

foreach (string f in Request.Files.AllKeys)<br />
{<br />
    HttpPostedFile file = Request.Files[f];<br />
    file.SaveAs("c:\\inetpub\\test\\UploadedFiles\\" + file.FileName);<br />
}

<form id="spanForm" name="spanForm" action="#">
    <input id="screenSpanWidth" name="screenSpanWidth" type="hidden" />
</form>

<script language='JavaScript' type='text/javascript'>
    document.forms['spanForm'].screenSpanWidth.value = var_nScreenWidth.toString();
</script>

<%
    Dim nUserScreenWidth
    nUserScreenWidth = Document.forms.namedItem("spanForm").screenSpanWidth.value '<--error here
%>

Set objFSO   = CreateObject("Scripting.FileSystemObject")<br />
set oWscript = CreateObject("WScript.Shell")  <br />
dim lstsft<br />
dim mylist <br />
dim i,j<br />
'<---------------------------------><br />
	call getInstalledList ()<br />
'<---------------------------------><br />
Private sub getInstalledList ()<br />
dim chk<br />
mylist = split("Symantec AntiVirus,MSXML 4.0 SP2 Parser and SDK", ",")<br />
strComputer = "."<br />
Set objWMIService = GetObject("winmgmts:" _<br />
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")<br />
Set colSoftware = objWMIService.ExecQuery _<br />
    ("Select * from Win32_Product")<br />
lstsft=""<br />
For Each objSoftware in colSoftware<br />
    lstsft = lstsft & "," & objSoftware.Caption  <br />
Next<br />
lstsft= split (lstsft,",")<br />
for i = 0 to ubound(mylist)<br />
chk="0"<br />
	for j=0 to ubound(lstsft)				<br />
		if lstsft(j) = mylist (i) then<br />
			msgbox(mylist(i) & " exist" ) <br />
			chk="1"	<br />
		end if <br />
next	<br />
if chk = "0" then<br />
	msgbox ( mylist(i) & " not exist")<br />
end if <br />
next<br />
end Sub