Okay.. here is the full script (minus some html crap) that is passing on
the values.. I am still getting the same results..
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<link rel="stylesheet " type="text/css" href="css/styles1.css"/>
</head>
<body>
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsSeniors 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
'Create an ADO connection object
Set adoCon = Server.CreateOb ject("ADODB.Con nection")
'Set an active connection to the Connection object using a DSN-less
connection
adoCon.Open "DRIVER={Micros oft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath( "VolunteerDatab ase/volunteersandci tizens.mdb")
'Create an ADO recordset object
Set rsSeniors = Server.CreateOb ject("ADODB.Rec ordset")
'THIS CODE IS FOR SKILLS DROP DOWN BOX.
'Initialise the strSQL variable with an SQL statement to query the
database
strSQL ="SELECT TProfiles.lngPr ofileID, TProfiles.strPr ofileDescriptio n
FROM TProfiles;"
'Open the recordset with the SQL query
rsSeniors.Open strSQL, adoCon, adOpenKeyset
'loop through the recordset.
DO WHILE NOT rsSeniors.EOF
SkillType = SkillType & "<option value=" & rsSeniors("lngP rofileID")
& ">" & rsSeniors("strP rofileDescripti on") & "</option>"
rsSeniors.MoveN ext
LOOP
' Close the connection.
rsSeniors.Close
' END OF CODE FOR SKILLS DROP DOWN BOX.
'THIS CODE IS FOR GENDER DROP DOWN BOX.
'Initialise the strSQL variable with an SQL statement to query the
database
strSQL ="SELECT TGenders.lngGen derID, TGenders.strGen der from TGenders;"
'Open the recordset with the SQL query
rsSeniors.Open strSQL, adoCon, adOpenKeyset
'loop through the recordset.
DO WHILE NOT rsSeniors.EOF
GenderType = GenderType & "<option value=" & rsSeniors("lngG enderID")
& ">" & rsSeniors("strG ender") & "</option>"
rsSeniors.MoveN ext
LOOP
' Close the connection.
rsSeniors.Close
' END OF CODE FOR GENDER DROP DOWN BOX.
'THIS CODE IS FOR ETHNIC DROP DOWN BOX.
'Initialise the strSQL variable with an SQL statement to query the
database F
strSQL ="SELECT TEthnicities.ln gEthnicityID, TEthnicities.st rEthnicity
FROM TEthnicities;"
'Open the recordset with the SQL query
rsSeniors.Open strSQL, adoCon, adOpenKeyset
'loop through the recordset.
DO WHILE NOT rsSeniors.EOF
EthnicType = EthnicType & "<option value=" & rsSeniors
("lngEthnicityI D") & ">" & rsSeniors("strE thnicity") & "</option>"
rsSeniors.MoveN ext
LOOP
'Reset server objects
rsSeniors.Close
'END OF CODE FOR ETHNIC DROP DOWN BOX.
'THIS CODE IS FOR SENIOR INFORMATION.
lngSeniorInfo = CLng(Request.Qu eryString("ID") )
'Initialise the strSQL variable with an SQL statement to query the
database
strSQL = "SELECT TSeniors.* FROM TSeniors WHERE TSeniors.lngSen iorID =" &
lngSeniorInfo & ";"
'Open the recordset with the SQL query
rsSeniors.Open strSQL, adoCon
'END OF CODE FOR SENIOR DETAIL DATA QUERY.
%>
<form method="POST" action="MatchSe archIII.asp">
<table border="1">
<tr>
<td>Full Name</td>
<td><% =rsSeniors("str FirstName") %>
<% =rsSeniors("str MiddleName") %>
<% =rsSeniors("str LastName") %></td>
</tr>
<tr>
<td>Address</td>
<td><% =rsSeniors("str Address") %></td>
</tr>
<tr>
<td>City</td>
<td></font><% =rsSeniors("str City") %></td>
</tr>
<tr>
<td>Zip Code</td>
<td><% =rsSeniors("str ZipCode") %></td>
</tr>
<tr>
<td>Phone</td>
<td><% =rsSeniors("str PhoneNumber") %></td>
</tr>
</table>
Skill needed
<SELECT size="1" NAME="SkillType ">
<OPTION Value="<%=Skill Type%>">
<%=SkillType% >
</option>
</select>
<P>
Gender
<select size="1" name="GenderTyp e">
<option value="<%=Gende rType%>">
<%=GenderType %>
</option>
</select>
</P>
Ethnicity
<select size="1" name="EthnicTyp e">
<option value="<%=Ethni cType%>">
<%=EthnicType %>
</option>
</select>
<Table>
<td height="51" colspan=2><inpu t type="Submit" name="Submit"
value="Find Match">
<input type="Submit" name="Cancel" value="Cancel">
</td>
</Table>
</form>
<!-- End form code -->
<%
rsSeniors.Close
Set rsSeniors = Nothing 'Nulls the dataset.
Set adoCon = Nothing 'Closes the database connection.
%>
</body>
</html>
