Denna select för underkategorier skickar inte vidare till rätt sida
<%Dim varC, rs, objConn
varC = Request.Querystring("c")
Set rs = objConn.Execute("SELECT * FROM wfSubCat s INNER JOIN wfCat c ON s.mainCat = c.id WHERE c.id = " & varC)%>
<form>
<select name="selPage" id="menu" onchange="go()">
<option>--Select a page--</option>
<%DO UNTIL rs.eof%>
<option value="list.asp?id=<%=rs("id")%>&sub=<%=rs("subcat")%>&s=<%=rs("underkategori")%>"><%=rs("underkategori")%></option>
<%rs.MoveNext: LOOP%>
</select>
</form>
men denna för huvudkategorierna funkar
<script type="text/javascript">
function go()
{
window.location=document.getElementById("menu").value
}
</script>
<%Set katRS=objConn.Execute("SELECT * FROM wfCat order by id desc")%>
<form>
<select name="selPage" id="menu" onchange="go()">
<option>--Select a page--</option>
<%DO UNTIL katRS.EOF%>
<option value="subkat.asp?c=<%=katRS("id")%>"><%=katRS("kategori")%></option>
<%katRS.MoveNext:LOOP%>
</select>
</form>
javascriptet ligger redan på sidan efter huvudkategorierna så den för subben ska inte behövas då den använder samma, jag får med alla värden när jag kollar på den exekverade koden så jag hittar inte felet
DenkanMedlem sedan juni 2002256 inlägg Du får alltså javascript-fel vid underkategorierna?
Bifoga gärna klientkoden för select-listan.
Anledningen är för att du inte kan ha två element med samma id.
Gör så här istället.
<%Set katRS=objConn.Execute("SELECT * FROM wfCat order by id desc")%>
<form>
<select name="selPage" onchange="location=this.value;">
<option>--Select a page--</option>
<%DO UNTIL katRS.EOF%>
<option value="subkat.asp?c=<%=katRS("id")%>"><%=katRS("kategori")%></option>
<%katRS.MoveNext:LOOP%>
</select>
</form>
<%Set katRS = Nothing%>
fick det att funka :-) , nu är bara problemet hur jag får ut id för subkategorin när jag ska posta formuläret, får detta fel vid raden vid set mRS
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 3.51 Driver][mysqld-4.0.25-max]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
/Forum/newThread/kategorier.asp, line 41
<%Set mainRS=objConn.Execute("SELECT * FROM wfCat")%>
<select name="txtMainCat" onChange="showSubKat(this.selectedIndex,this.form.subCat);">
<option value="" selected>Välj ett forum här</option>
<%Do until mainRS.eof%>
<option value="<%=mainRS("id")%>"><%=mainRS("kategori")%></option>
<%mainRS.movenext: loop%>
</select>
<%varID=Request.Form("txtMainCat")
Set mRS=objConn.Execute("SELECT * FROM wfSubCat INNER JOIN wfCat ON id=mainCat where mainCat="&varID)%>
<select name="subCat">
<option selected>Välj underkategori</option>
<%Do until mRS.eof%>
<option value="<%=mRS("id")%>"><%=mRS("underkategori")%></option>
<%mRS.movenext: loop%>
</select>
Så här hade nog jag gjort.
<%
Response.Write "<form action=""subkat.asp?c=1"" method=""get"" name=""catForm"">" & vbCrLf
Set mainRS = objConn.Execute("SELECT id, kategori FROM wfCat")
Response.Write "<select name=""txtMainCat"" onchange=""location=this.value;"">" & vbCrLf
Response.Write "<option value=""0"" selected>Välj ett forum här</option>" & vbCrLf
DO UNTIL mainRS.EOF
Response.Write "<option value=""" & mainRS("id") & """>" & mainRS("kategori") & "</option>" & vbCrLf
mainRS.MoveNext
Loop
Response.Write "</select>" & vbCrLf
mainRS.Close
Set mainRS = Nothing
Set mainRS = objConn.Execute("SELECT id, underkategori FROM wfSubCat where mainCat=" & CLng(Request.Form("txtMainCat")))
Response.Write "<select name=""subCat"" onchange=""document.catForm.action='subkat.asp?c=' + this.value;this.form.submit();"">" & vbCrLf
Response.Write "<option value=""0"" selected>Välj underkategori</option>" & vbCrLf
DO UNTIL mainRS.EOF
Response.Write "<option value=""" & mainRS("id") & """>" & mainRS("underkategori") & "</option>" & vbCrLf
mainRS.MoveNext
Loop
Response.Write "</select>"
mainRS.Close
Set mainRS = Nothing
Response.Write "</form>" & vbCrLf
%>
får bara inte denna att fungera
Response.Write "<form action=""/Forum/subkat.asp?c=1"" method=""get"" name=""catForm"">" & vbCrLf
sökvägen blir bara /Forum/newThread/2