Hi,
Why does not this code work?
I get type mismatch error.
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sQuery = "SELECT * From event_category order by Category"
rs.Open sQuery, conn, 2, 2
'on error resume next
%>
<html>
<head>
<title>Add Products</title>
<SCRIPT language="JavaScript">
function getListValue(list)
{
var listValue="";
if (list.selectedIndex != -1) {
listValue = list.options[list.selectedIndex].value;
}
return (listValue);
}
</script>
</head>
<body>
<div class="content">
<form name="formCategory" method="get" action="combo_test.asp" onSubmit="return formCheck(this);" >
<p title="This field is mandatory"><label for="qryCategory">Category</label>
<select name="qryCategory" onChange="this.form.action = '<%=Request.ServerVariables("Script_Name")%>'; this.form.submit();" <%=sErrorqryCategoryHighlight%>>
<option value="">Select A Category</option>
<%
Do While Not rs.EOF
%>
<option <%if Trim(rs("id"))=Trim(Request.querystring("qryCatego ry")) then Response.Write "selected" end if%> value=<%=rs("id")%>><%=rs("Category")%></option>
<%
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
</select>
<br/>
<%
If Request.querystring("qryCategory") = "" Then
%>
<p title="This field is mandatory"><label for="subcat">Sub Category</label>
<select name="subcat" cat_id="subcat">
<option value="">Select a Sub Category</option>
<%
Else
Dim strSQL
Set rs = SERVER.CreateObject("ADODB.Recordset")
strSQL = "SELECT * "
strSQL = strSQL & "FROM event_subcategory INNER JOIN event_category ON event_category.id=event_subcategory.Category "
strSQL = strSQL & "WHERE (((event_category.id) = '" & Request.querystring("qryCategory") & "'))"
rs.Open strSQL,conn, 3, 3
If rs.RecordCount = 0 Then
Response.Write("No records found for category " & Request.querystring("qryCategory"))
Else
%>
<p title="This field is mandatory"><label for="subcat">Sub Category</label>
<select name="subcat" id="subcat">
<%
If Not rs.EOF Then
Do While Not rs.EOF
%>
<option><%= rs("Subcategory") %></option>
<%
rs.MoveNext
Loop
%>
<%
Else
%>
<option value="">Error - no Sub Categories can be found</option>
<%
End If
rs.Close
Set rs= Nothing
%>
<%
end If
End if
%>
</select>
</p>
<p><input type="submit" name="mySubmit" value="Add Products" class="button" /><input type="reset" name="reset" value="Clear" class="button" /></p>
</form>
</div>
</body>
</html>
2 dynamic dropdown
