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
%>