Onchange

det skal da være onClick.. ikke onChange.. ?

/theSurfer.

umm jeg klikker da ikke på noget i en dropdown box gør jeg ?? troede man "ændrede" noget

thesurfer> Nej, onchange :)

nope det er ikke onclick

onchange er korrekt i select kommandoer.
der skal tilføjes this. to steder, og self. eet sted i din onchange:
onChange="self.location.href='default2.asp?vis=2&hprodukt='+this.options[this.selectedIndex].value">

jakoba> Mester, jeg har skuffet dig! :) Jeg tager konsekvenserne :)

/theSurfer.

Hey, dine options har jo slet ikke nogen value:
        <option><%=RS("varegrp_navn")%></option>
de har kun den tekst der skal vælges på.

onChange="self.location.href='default2.asp?vis=2&hprodukt='+this.options[this.selectedIndex].text"> 

eller indsæt en value= i dine options:
        <option value="<%=RS("varegrp_navn")%>"><%=RS("varegrp_navn")%></option>

mvh JakobA

Nej nej lille ven. Vej til visdom går igennem mange fejl, og du er godt på vej :)

lol... TAK! :)

/theSurfer.

nu ser det sådan her ud..men det hjalp ikke

<select name="hprodukt" onChange="self.location.href='default2.asp?vis=2&hprodukt='+this.options[this.selectedIndex].value">
     
        <option> Vælg varegruppe</option>
      <%
      IF NOT RS.EOF THEN
      Do Until RS.EOF
      %>
        <option value="<%=RS("varegrp_navn")%>"><%=RS("varegrp_navn")%></option>
      <%
      RS.Movenext
      LOOP
              END IF

kan du evt vis det tilsvarende stykke htmlkode som din .asp fil sender til browseren?  Det kan give problemer hvis  din variabel varegrp_navn indeholder sære tegn.

jamen det kan jeg da :)
<select name="hprodukt" onChange="self.location.href='default2.asp?vis=2&hprodukt='+this.options[this.selectedIndex].value">
---
   
        <option> Vælg varegruppe</option>
     
        <option value="Alufolie">Alufolie</option>
     
        <option value="Dressings">Dressings</option>
     
        <option value="Flåede tomater">Flåede tomater</option>
     
        <option value="Grøntsager">Grøntsager</option>
     
        <option value="Halal slagtet kød">Halal slagtet kød</option>
     
        <option value="Karton">Karton</option>
     
        <option value="Konserves">Konserves</option>
     
        <option value="Krydderier">Krydderier</option>
     
        <option value="Kylling">Kylling</option>
     
        <option value="Lasagne">Lasagne</option>
     
        <option value="Mel">Mel</option>
     
        <option value="Olier">Olier</option>
     
        <option value="Oliven">Oliven</option>
     
        <option value="Ost">Ost</option>
     
        <option value="Pizza æsker">Pizza æsker</option>
     
        <option value="Pizzasauce">Pizzasauce</option>
     
        <option value="Plastic">Plastic</option>
     
        <option value="Pommes frites">Pommes frites</option>
     
        <option value="Ris">Ris</option>
     
        <option value="Shawarma">Shawarma</option>
     
        <option value="Spaghetti">Spaghetti</option>

mestendels er de fine. men enkelte, som fx: "Flåede tomater", skal lige rettes til for at blive afsendt korrekt som url-parameter:
<select name="hprodukt" onChange="self.location.href='default2.asp?vis=2&hprodukt='+escape(this.options[this.selectedIndex].value)">

ved at escape værdien bliver blanktegnet og det danske å ført sikkert over.

men selv uden det burder der komme noget igennem nu ? ? ?

prøv at sætte en midlertidig debug-sætning ind foran if:

response.write( request.querystring("hprodukt") ) 'hvordan det nu skrives i ASP
IF request.querystring("hprodukt") <> "" THEN
session("hprodukt") = request.querystring("hprodukt")
END IF

<select name="hprodukt" onChange="self.location.href='default2.asp?vis=2&hprodukt='+escape(this.options[this.selectedIndex].value)">

hmm stadig ingenting

tag linien nedenfor og kopier den ind i adresselinien i din browser. (efter at have rettet 'http://www.ditfomaene.dk/sti' til hvad det nu skal være
    http://www.ditfomaene.dk/sti/default2.asp?vis=2&hprodukt=Dressings
og check om det nu også virker som det skal.

Oh det virker, så længe jeg ikke roder javascript ind i det, og den eneste grund til det var at jeg vilel sleppe for at folk skulle trykke på en submit knap
--
sådan ser hele koden ud
response.write request.querystring("hprodukt")


IF not request.servervariables("REQUEST_METHOD") = "POST" AND NOT Request.querystring("i") = "yes" AND request.querystring("hprodukt")= "" THEN
  Session("hprodukt") = ""
END IF

IF request.querystring("hprodukt") <> "" THEN
session("hprodukt") = request.querystring("hprodukt")
END IF

IF request.form("form2") <> "" THEN
 
  varenr          = request.form("varenr")
  varenavn        = request.form("varenavn")
  varegrp        = request.form("varegrp")
  pris            = request.form("pris")
  stk            = request.form("stk")
  pris_stk        = cint(pris)/cint(stk)
  enhed          = request.form("enhed")
  kolli          = request.form("kolli")
  tilbud          = request.form("tilbud")
  if tilbud = "on" then
    tilbud = 1
  else
    tilbud = 0
  end if
  dato_fra        = request.form("dato_fra")
  if dato_fra <> "" then
    dato_fra = "20" & mid(dato_fra,5,2) & mid(dato_fra,3,2) & mid(dato_fra,1,2)
  else
    dato_fra = 0
  end if
 
  dato_til        = request.form("dato_til")
  if dato_til <> "" then
    dato_til = "20" & mid(dato_til,5,2) & mid(dato_til,3,2) & mid(dato_til,1,2)
  else
    dato_til = 0
  end if

  response.write request.form
'  response.write tilbud
'  response.end

 
  Source = "db/" & Session("ID") & "/" & Session("ID") & ".mdb"
  Set Conn = Server.createobject("ADODB.Connection")
  Conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath(source)
    SQL = "INSERT INTO tblProdukter ("
    SQL = SQL & "telefon, "
    SQL = SQL & "varenr, "
    SQL = SQL & "varenavn, "
    SQL = SQL & "varegrp, "
    SQL = SQL & "pris, "
    SQL = SQL & "stk, "
    SQL = SQL & "enhed, "
'    SQL = SQL & "pris_stk, "
    SQL = SQL & "kolli, "
    SQL = SQL & "tilbud, "
    SQL = SQL & "dato_fra, "
    SQL = SQL & "dato_til) "
    SQL = SQL & "VALUES( "
    SQL = SQL & "'" & Session("ID") & "', "
    SQL = SQL & "'" & varenr & "', "
    SQL = SQL & "'" & varenavn & "', "
    SQL = SQL & "'" & varegrp & "', "
    SQL = SQL & "'" & pris & "', "
    SQL = SQL & "'" & stk & "', "
    SQL = SQL & "'" & enhed & "', "
'    SQL = SQL & "'" & pris_stk & "', "
    SQL = SQL & "'" & kolli & "',"
    SQL = SQL & "'" & tilbud & "', "
    SQL = SQL & "'" & dato_fra & "', "
    SQL = SQL & "'" & dato_til & "') "
    conn.execute(SQL)
    conn.close

    if tilbud = "1" then
      Source = "db/marketplace.mdb"
      Conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath(source)
      SQL = "INSERT INTO tblProdukter ("
      SQL = SQL & "telefon, "
      SQL = SQL & "varenr, "
      SQL = SQL & "varenavn, "
      SQL = SQL & "varegrp, "
      SQL = SQL & "pris, "
      SQL = SQL & "pris_stk, "
      SQL = SQL & "stk, "
      SQL = SQL & "kolli, "
      SQL = SQL & "enhed, "
      SQL = SQL & "dato_fra, "
      SQL = SQL & "dato_til) "
      SQL = SQL & "VALUES( "
      SQL = SQL & "'" & Session("ID") & "', "
      SQL = SQL & "'" & varenr & "', "
      SQL = SQL & "'" & varenavn & "', "
      SQL = SQL & "'" & varegrp & "', "
      SQL = SQL & "'" & pris & "', "
      SQL = SQL & "'" & pris_stk & "', "
      SQL = SQL & "'" & stk & "', "
      SQL = SQL & "'" & kolli & "', "
      SQL = SQL & "'" & enhed & "', "
      SQL = SQL & "'" & dato_fra & "', "
      SQL = SQL & "'" & dato_til & "') "
      conn.execute(SQL)
      conn.close
    end if

    set conn = nothing
    response.redirect "default2.asp?i=yes"
  END IF
%>

<!--maintable-->
  <table class='skrift' border="0" width="100%" height="100%">
  <tr>
    <td width="30%">
    <fieldset>
    <legend class='skrifth'>Vælg varegruppe&nbsp;</legend>
    <!-- hoved produkt table -->
    <table border="0">
    <form action="" method="post">
      <tr>
      <td>
      <%
      Source = "db/" & Session("ID") & "/" & Session("ID") & ".mdb"
      Set Conn = Server.createobject("ADODB.Connection")
      conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath(source)
      Set RS = Server.createObject("ADODB.Recordset")
      SQL = " SELECT varegrp_ID, varegrp_NAVN FROM tblVaregrp"
      SQL = SQL & " ORDER BY varegrp_NAVN"
      RS.open SQL,Conn
      %>
        <select name="hprodukt" onChange="self.location.href='default2.asp?vis=2&hprodukt='+escape(this.options[this.selectedIndex].value)">
     
        <option> Vælg varegruppe</option>
      <%
      IF NOT RS.EOF THEN
      Do Until RS.EOF
      %>
        <option value="<%=RS("varegrp_navn")%>"><%=RS("varegrp_navn")%></option>
      <%
      RS.Movenext
      LOOP
      rs.close
      set rs = nothing
      conn.close
      set conn = nothing
      END IF
      %>
        </select>
      </td>
      <td align="right">
        <input type="submit" name="form1" value="Vælg">
      </td>
      </tr>
    </form>
    </table>
    <!-- hoved produkt table slut -->
  </fieldset>
  </td>
  <td width="70%">
  <fieldset>
  <legend class='skrifth'>Valgte varegruppe &nbsp;</legend>
    <!-- info produkt table -->
    <table class='skrift' border="0">
    <tr>
      <td>
      <%
      IF session("hprodukt") = "" THEN
      %>
      Du har valgt at tilføje produkter til dit katalog. Du skal nu vælge i hvilken
      varegruppe du vil tilføje et produkt.
      <%
      ELSE
      %>
      Du har valgt at tilføje produkt(er) til <b><%=session("hprodukt")%></b> gruppen.
      <%
      END IF
      %>
      </td>
    </tr>
    </table>
      <!-- info produkt table slut -->
  </fieldset>
  </td>
  </tr>
  <tr>
  <td colspan="2" width="76%">
  <%
  IF  session("hprodukt") <> "" THEN
    Set Conn = Server.createobject("ADODB.Connection")
    conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath(source)
    Set RS = Server.createObject("ADODB.Recordset")
    SQL = " SELECT varegrp_ID, varegrp_NAVN FROM tblVaregrp"
    SQL = SQL & " ORDER BY varegrp_ID"
    RS.open SQL,Conn
  %>
  <fieldset>
  <legend class='skrifth'>Varegrupper&nbsp;</legend>
    <table class='skrift' border="0">
    <%
    Do Until RS.EOF
   
    response.write "<tr>"
    For i = 0 to 5
    IF NOT RS.EOF THEN
    IF Session("hprodukt") = RS("varegrp_navn") THEN
      ID = RS("varegrp_id")
      response.write "<td align='right'><b>" & RS("varegrp_id") & "</b></td><td align='center' width='5px'><b>=</b></td><td width='120'><b>" & RS("varegrp_navn") & "</b></td>"
    ELSE
      response.write "<b><td align='right'>" & RS("varegrp_id") & "</td><td align='center' width='5px'>=</td><td width='120'>" & RS("varegrp_navn") & "</td></b>"
    END IF
    rs.movenext
    END IF
    NEXT
    Response.write "<tr>"
    LOOP
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    %>
    </table>
    </fieldset>
  </td>
  </tr>
  <tr>
  <td colspan="2" width="76%">
  <fieldset>
  <legend class='skrift'>Tilføjelse til <b><%=session("hprodukt")%></b> gruppen&nbsp;</legend>
    <table class='skrift' border="0">
    <form action="" method="post">
    <tr class='skrifth1'>
      <td width="70px">
      Varenr.
      </td>
      <td width="210px">
      Varenavn
      </td>
      <td width="70px">
      Pris
      </td>
      <td width="52px">
      Stk
      </td>
      <td width="52px">
      Enhed
      </td>
      <td width="52px">
      Kolli
      </td>
      <td width="22px" align='center'>
      T
      </td>
      <td width="75px">
      Dato fra
      </td>
      <td width="75px">
      Dato til
      </td>
    </tr>
    <tr>
      <td width="70px">
      <input type="hidden" name="varegrp" value='<% =id %>' />
      <input type="text" name="varenr" size="9">
      </td>
      <td width="210px">
      <input type="text" name="varenavn" size="34">
      </td>
      <td width="70px">
      <input type="text" name="pris" size="7">
      </td>
      <td width="52px">
      <input type="text" name="stk" size="4">
      </td>
      <td width="52px">
      <input type="text" name="enhed" size="5">
      </td>
      <td width="52px">
      <input type="text" name="kolli" size="5">
      </td>
      <td width="22px">
      <input type="checkbox" name="tilbud">
      </td>
      <td width="75px">
      <input type="text" name="dato_fra" size="6">
      </td>
      <td width="75px">
      <input type="text" name="dato_til" size="6">
      </td>
      <td align="right">
      <input type="submit" name="form2" value="Tilføj">
      </td>
    </tr>
    </form>
    </table>
  </fieldset>
  </td>
  </tr>
  <tr>
  <td colspan="2" width="76%" height="30%">
  <fieldset>
  <legend class='skrift'>Produkter i <b><%=session("hprodukt")%></b> gruppen.</legend>
    <table border="0" width="740">
  <%
  Source = "db/" & Session("ID") & "/" & Session("ID") & ".mdb"
  Set Conn = Server.createobject("ADODB.Connection")
  conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath(source)
  Set RS = Server.createObject("ADODB.Recordset")
  SQL = " SELECT tblProdukter.varenr, tblProdukter.varenavn, tblProdukter.varegrp, tblProdukter.pris,"
  SQL = SQL & " tblProdukter.stk, tblProdukter.enhed, tblVaregrp.varegrp_ID, tblVaregrp.varegrp_navn,"
  SQL = SQL & "tblProdukter.Tilbud, tblProdukter.kolli, tblProdukter.Dato_fra, tblProdukter.Dato_til"
  SQL = SQL & " FROM tblProdukter INNER JOIN tblVaregrp ON tblProdukter.Varegrp = tblVaregrp.Varegrp_ID"
  SQL = SQL & " WHERE tblVaregrp.Varegrp_navn ='" & Session("hprodukt") & "'"
  SQL = SQL & " ORDER BY tblProdukter.varenr DESC"
  RS.open SQL,Conn
  IF not RS.EOF THEN
  %>
    <tr class='skrifth1'>
      <td width="70px">
      Varenr.
      </td>
      <td width="210px">
      Varenavn
      </td>
      <td width="70px">
      Pris
      </td>
      <td width="52px">
      Stk
      </td>
      <td width="52px">
      Enhed
      </td>
      <td width="52px">
      Kolli
      </td>
      <td width="22px" align="center">
      T
      </td>
      <td width="75px">
      Dato fra
      </td>
      <td width="75px">
      Dato til
      </td>
    </tr>
    </table>
    <div style="overflow:auto; height:100px; margin:0px 0px 0px 0px;">
    <table border="0" width="740">
  <%
  do until rs.eof
    if RS("Dato_fra") <> "" then
      Dato_fra = mid(RS("Dato_fra"),7,2) &  mid(RS("Dato_fra"),5,2) & mid(RS("Dato_fra"),3,2)
    else
      Dato_fra = ""
    end if
    if RS("Dato_til") <> "" then
      Dato_til = mid(RS("Dato_til"),7,2) &  mid(RS("Dato_til"),5,2) & mid(RS("Dato_til"),3,2)
    else
      Dato_til = ""
    end if
    if RS("tilbud") = 1 then
      tilbud = "checked"
    else
      tilbud = ""
    end if
  %>
    <tr class='skrift'> 
      <td width="70px">
      <%=rs("varenr")%>
      </td>
      <td width="210px">
      <%=rs("varenavn")%>
      </td>
      <td width="70px">
      <%=rs("pris")%>
      </td>
      <td width="52px">
      <%=rs("stk")%>
      </td>
      <td width="52px">
      <%=rs("enhed")%>
      </td>
      <td width="52px">
      <%=rs("kolli")%>
      </td>
      <td width="22px">
      <input type="checkbox" <% =tilbud %>>
      </td>
      <td width="75px">
      <%=dato_fra%>
      </td>
      <td width="75px">
      <%=dato_til%>
      </td>
    </tr>
  <%
  rs.movenext
  loop
  %>
    </table>
  </fieldset>
    </div>
  <%
  END IF 
  rs.close
  set rs = nothing
  conn.close
  set conn = nothing
  END IF
  %>
  </td>
  </tr>
</table>
  <!--maintable slut-->

oh well senge tid

lukket