| If I've saved you some time or given you some ideas, please rate.
|
Dim cnnSimple ' ADO connection
Dim rstSimple ' ADO recordset
Dim strDBPath ' path to our Access database (*.mdb) file
strDBPath = Server.MapPath("AccessDatabase.mdb")
Set cnnSimple = Server.CreateObject("ADODB.Connection")
cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
%>
<table border="1" width="100%" bgcolor="#000080">
<tr>
<td align="center"><table border="1">
<tr>
<td>
<%
Set rstSimple = cnnSimple.Execute("SELECT * FROM [horsedata] WHERE
[gender]='"&"Sire"&"'")
%>
<form name="ex2" action="dropdown_selection_box_hyperlinked_menu_from_database.asp"
method="POST">
<select name="GALLERYCAT" size="1">
<% Do While Not rstSimple.EOF %>
<option value="<%= rstSimple.Fields("ID").Value %>">#<%=
rstSimple.Fields("ID").Value %> - <%= rstSimple.Fields("Horse
Name").Value %></option>
<%
rstSimple.MoveNext
Loop
%>
</select>
<input type="submit" value="Go!">
</div>
</form>
</td>
</tr>
</table>
<font color="#FF0000"><b>Stallion</b></font><b><font
color="#FF0000">s
</td>
<td align="center">
<%
Set rstSimple = cnnSimple.Execute("SELECT * FROM [horsedata] WHERE
[gender]='"&"Broodmare"&"'")
%>
<table border="1">
<tr>
<td>
<form name="ex2" action="dropdown_selection_box_hyperlinked_menu_from_database.asp"
method="POST">
<select name="GALLERYCAT" size="1">
<% Do While Not rstSimple.EOF %>
<option value="<%= rstSimple.Fields("ID").Value %>">#<%=
rstSimple.Fields("ID").Value %> - <%= rstSimple.Fields("Horse
Name").Value %></option>
<%
rstSimple.MoveNext
Loop
%>
</select>
<input type="submit" value="Go!">
</div>
</form>
</td>
</tr>
</table>
<font color="#FF0000"><b>Broodmares</b></font></td>
<td align="center">
<%
Set rstSimple = cnnSimple.Execute("SELECT * FROM [horsedata] WHERE
[for-sale]='"&"Yes"&"'")
%>
<body style="font-family: Verdana">
<table border="1">
<tr>
<td>
<form name="ex2" action="dropdown_selection_box_hyperlinked_menu_from_database.asp"
method="POST">
<select name="GALLERYCAT" size="1">
<% Do While Not rstSimple.EOF %>
<option value="<%= rstSimple.Fields("ID").Value %>">#<%=
rstSimple.Fields("ID").Value %> - <%= rstSimple.Fields("Horse
Name").Value %></option>
<%
rstSimple.MoveNext
Loop
%>
</select>
<input type="submit" value="Go!">
</div>
</form>
</td>
</tr>
</table>
<b><font color="#FF0000">For Sale</td>
</tr>
<tr>
<td align="center" colspan="3" bgcolor="#FF0000"><b>
<font color="#FFFFFF"><%if NOT request.form("GALLERYCAT")="" then
%>Display record number: <%= request.form("GALLERYCAT") %><% end if
%></font></b></td>
</tr>
</table>
<%
rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing
%>
