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.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less
connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("VolunteerDatabase/volunteersandcitizens.mdb")
'Create an ADO recordset object
Set rsSeniors = Server.CreateObject("ADODB.Recordset")
'THIS CODE IS FOR SKILLS DROP DOWN BOX.
'Initialise the strSQL variable with an SQL statement to query the
database
strSQL ="SELECT TProfiles.lngProfileID, TProfiles.strProfileDescription
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("lngProfileID")
& ">" & rsSeniors("strProfileDescription") & "</option>"
rsSeniors.MoveNext
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.lngGenderID, TGenders.strGender 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("lngGenderID")
& ">" & rsSeniors("strGender") & "</option>"
rsSeniors.MoveNext
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.lngEthnicityID, TEthnicities.strEthnicity
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
("lngEthnicityID") & ">" & rsSeniors("strEthnicity") & "</option>"
rsSeniors.MoveNext
LOOP
'Reset server objects
rsSeniors.Close
'END OF CODE FOR ETHNIC DROP DOWN BOX.
'THIS CODE IS FOR SENIOR INFORMATION.
lngSeniorInfo = CLng(Request.QueryString("ID"))
'Initialise the strSQL variable with an SQL statement to query the
database
strSQL = "SELECT TSeniors.* FROM TSeniors WHERE TSeniors.lngSeniorID =" &
lngSeniorInfo & ";"
'Open the recordset with the SQL query
rsSeniors.Open strSQL, adoCon
'END OF CODE FOR SENIOR DETAIL DATA QUERY.
%>
<form method="POST" action="MatchSearchIII.asp">
<table border="1">
<tr>
<td>Full Name</td>
<td><% =rsSeniors("strFirstName") %>
<% =rsSeniors("strMiddleName") %>
<% =rsSeniors("strLastName") %></td>
</tr>
<tr>
<td>Address</td>
<td><% =rsSeniors("strAddress") %></td>
</tr>
<tr>
<td>City</td>
<td></font><% =rsSeniors("strCity") %></td>
</tr>
<tr>
<td>Zip Code</td>
<td><% =rsSeniors("strZipCode") %></td>
</tr>
<tr>
<td>Phone</td>
<td><% =rsSeniors("strPhoneNumber") %></td>
</tr>
</table>
Skill needed
<SELECT size="1" NAME="SkillType">
<OPTION Value="<%=SkillType%>">
<%=SkillType%>
</option>
</select>
<P>
Gender
<select size="1" name="GenderType">
<option value="<%=GenderType%>">
<%=GenderType%>
</option>
</select>
</P>
Ethnicity
<select size="1" name="EthnicType">
<option value="<%=EthnicType%>">
<%=EthnicType%>
</option>
</select>
<Table>
<td height="51" colspan=2><input 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>
