15. januar 2003 - 11:30
Der er
11 kommentarer og 1 løsning
Dropdownbox skal skrive til db
Hej. Håber at der er nogen som kan hjlæpe mig. Jeg sidder med et problem som jeg ikke kan løse :-( Jeg har en dropdownbox, med felterne "Lager", "Rest." og "Udgået". Fx. når man klikker på "Lager", så skal den overskrive 2 værdier i databasen, som hedder "Status" og "Farve". Og det samme med "Rest." og "Udgået". Her er koden for salg.asp: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb") SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;" Conn.Execute (SQLstmt) Set rs = conn.Execute(SQLstmt) %> <html> <head> <script language=\"JavaScript\"> function navigate() { loc = document.navigate.location.selectedIndex; locval = document.navigate.loacation[loc].value; if (locval ==\"x\") return; window.location = locval + \".html\"; } </script> <script language=\"JavaScript\"> <!-- <!-- function jumppage(sel) { var i = sel.selectedIndex if (i!=0) { top.location.href = sel.options[i].value } } // --> function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script> <!--#include file="title.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF"> <!--#include file="top.asp"--> <!--#include file="top_produkter.asp"--> <br> <br> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr align="left" valign="top"> <td height="18" width="9%"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div> </td> <td width="8%" height="18"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare navn</font></div> </td> <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare beskrivelse</font></td> <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td> <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td> <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td> <td height="18" colspan="2"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div> </td> <% DO WHILE NOT rs.EOF Stregkode = rs("Stregkode") VareNavn = rs("VareNavn") VareBeskrivelse = rs("VareBeskrivelse") Antal = rs("Antal") Netto = rs("Netto") Brutto = rs("Brutto") Status = rs("Status") Farve = rs("Farve") %> </tr> <tr> <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td> <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td> <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td> <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td> <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td> <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td> <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%> </font></b></td> <td width="12%" align="left" valign="top"> <form name="form1"> <select name="select" onChange="MM_jumpMenu('parent',this,0)"> <option selected></option> <option>Lager</option> <option>Rest.</option> <option>Udgået</option> </select> </form> </td> </tr> <% rs.MoveNext LOOP RS.Close Response.Write "" conn.Close Set conn = nothing Set SQLstmt = nothing %> </table> </body> </html>
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
15. januar 2003 - 11:44
#1
Du skal først og fremmest give dien option en value: <option value="lager">Lager</option> <option value="rest">Rest.</option> <option value="usgået">Udgået</option> og fortælle hvor din form skal gå hen: <form name="form1" action="" method="post"> og så kan du jo lave en upload...
15. januar 2003 - 11:49
#2
ok... Så er det med, men jeg mangler stadigvæk en del :-( Jeg har simpelhent set mig blind på det. Kan du hjælpe mig noget mere?
15. januar 2003 - 11:56
#3
hvordan ser din kode nu ud?
15. januar 2003 - 12:20
#4
Her er siden salg.asp: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb") SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;" Conn.Execute (SQLstmt) Set rs = conn.Execute(SQLstmt) %> <html> <head> <script language=\"JavaScript\"> function navigate() { loc = document.navigate.location.selectedIndex; locval = document.navigate.loacation[loc].value; if (locval ==\"x\") return; window.location = locval + \".html\"; } </script> <script language=\"JavaScript\"> <!-- <!-- function jumppage(sel) { var i = sel.selectedIndex if (i!=0) { top.location.href = sel.options[i].value } } // --> function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script> <!--#include file="title.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF"> <!--#include file="top.asp"--> <!--#include file="top_produkter.asp"--> <br> <br> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr align="left" valign="top"> <td height="18" width="9%"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div> </td> <td width="8%" height="18"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare navn</font></div> </td> <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare beskrivelse</font></td> <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td> <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td> <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td> <td height="18" colspan="2"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div> </td> <% DO WHILE NOT rs.EOF Stregkode = rs("Stregkode") VareNavn = rs("VareNavn") VareBeskrivelse = rs("VareBeskrivelse") Antal = rs("Antal") Netto = rs("Netto") Brutto = rs("Brutto") Status = rs("Status") Farve = rs("Farve") %> </tr> <tr> <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td> <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td> <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td> <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td> <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td> <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td> <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%> </font></b></td> <td width="12%" align="left" valign="top"> <form name="form1" action="" method="post"> <select name="select" onChange="MM_jumpMenu('parent',this,0)"> <option selected></option> <option value="lager">Lager</option> <option value="rest">Rest.</option> <option value="udgaet">Udgået</option> </select> </form> </td> </tr> <% rs.MoveNext LOOP RS.Close Response.Write "" conn.Close Set conn = nothing Set SQLstmt = nothing %> </table> </body> </html>
15. januar 2003 - 12:27
#5
er der forskel på de data som de 3 values lægger ind i databasen...?
15. januar 2003 - 12:37
#6
Jeg tror at jeg ved hvad du mener. drobdownbox: ------------ Lager ---> skriver "Lager" & "#009900" til db Rest. ---> skriver "Rest." & "#009900" til db Udgået ---> skriver "Udgået" & "#FFCC00" til db
15. januar 2003 - 12:47
#7
Nu skulle den vist være der... <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb") SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;" Set rs = conn.Execute(SQLstmt) update = request("update") If update = 1 Then Dim status, value, farver value = Request.Form("select") If value = "lager" Then status = "Lager" farver = "#009900" End If If value = "rest" Then status = "Rest" farver = "#009900" End If If value = "udgået" Then status = "Udgået" farver = "#FFCC00" End If SQLupdate = "UPDATE VareBeskrivelse SET Status='" & status & "', Farve =" & farver Conn.Execute(SQLupdate) End If %> <html> <head> <script language=\"JavaScript\"> function navigate() { loc = document.navigate.location.selectedIndex; locval = document.navigate.loacation[loc].value; if (locval ==\"x\") return; window.location = locval + \".html\"; } </script> <script language=\"JavaScript\"> <!-- <!-- function jumppage(sel) { var i = sel.selectedIndex if (i!=0) { top.location.href = sel.options[i].value } } // --> function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script> <!--#include file="title.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF"> <!--#include file="top.asp"--> <!--#include file="top_produkter.asp"--> <br> <br> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr align="left" valign="top"> <td height="18" width="9%"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div> </td> <td width="8%" height="18"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare navn</font></div> </td> <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare beskrivelse</font></td> <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td> <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td> <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td> <td height="18" colspan="2"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div> </td> <% DO WHILE NOT rs.EOF Stregkode = rs("Stregkode") VareNavn = rs("VareNavn") VareBeskrivelse = rs("VareBeskrivelse") Antal = rs("Antal") Netto = rs("Netto") Brutto = rs("Brutto") Status = rs("Status") Farve = rs("Farve") %> </tr> <tr> <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td> <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td> <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td> <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td> <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td> <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td> <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%> </font></b></td> <td width="12%" align="left" valign="top"> <form name="form1" action="salg.asp?update=1" method="post"> <select name="select" onChange="MM_jumpMenu('parent',this,0)"> <option selected></option> <option value="lager">Lager</option> <option value="rest">Rest.</option> <option value="udgået">Udgået</option> </select> </form> </td> </tr> <% rs.MoveNext LOOP RS.Close Response.Write "" conn.Close Set conn = nothing %> </table> </body> </html>
15. januar 2003 - 12:48
#8
en lille update mere... <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb") SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;" Set rs = conn.Execute(SQLstmt) update = request("update") If update = 1 Then Dim status, value, farver value = Request.Form("select") If value = "lager" Then status = "Lager" farver = "#009900" End If If value = "rest" Then status = "Rest" farver = "#009900" End If If value = "udgået" Then status = "Udgået" farver = "#FFCC00" End If SQLupdate = "UPDATE VareBeskrivelse SET Status='" & status & "', Farve =" & farver Conn.Execute(SQLupdate) Response.Redirect(salg.asp) End If %> <html> <head> <script language=\"JavaScript\"> function navigate() { loc = document.navigate.location.selectedIndex; locval = document.navigate.loacation[loc].value; if (locval ==\"x\") return; window.location = locval + \".html\"; } </script> <script language=\"JavaScript\"> <!-- <!-- function jumppage(sel) { var i = sel.selectedIndex if (i!=0) { top.location.href = sel.options[i].value } } // --> function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script> <!--#include file="title.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF"> <!--#include file="top.asp"--> <!--#include file="top_produkter.asp"--> <br> <br> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr align="left" valign="top"> <td height="18" width="9%"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div> </td> <td width="8%" height="18"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare navn</font></div> </td> <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare beskrivelse</font></td> <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td> <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td> <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td> <td height="18" colspan="2"> <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div> </td> <% DO WHILE NOT rs.EOF Stregkode = rs("Stregkode") VareNavn = rs("VareNavn") VareBeskrivelse = rs("VareBeskrivelse") Antal = rs("Antal") Netto = rs("Netto") Brutto = rs("Brutto") Status = rs("Status") Farve = rs("Farve") %> </tr> <tr> <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td> <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td> <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td> <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td> <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td> <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td> <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%> </font></b></td> <td width="12%" align="left" valign="top"> <form name="form1" action="salg.asp?update=1" method="post"> <select name="select" onChange="MM_jumpMenu('parent',this,0)"> <option selected></option> <option value="lager">Lager</option> <option value="rest">Rest.</option> <option value="udgået">Udgået</option> </select> </form> </td> </tr> <% rs.MoveNext LOOP RS.Close Response.Write "" conn.Close Set conn = nothing Set SQLstmt = nothing %> </table> </body> </html>
15. januar 2003 - 13:25
#9
Hej igen... Var lige ude og spise. Den Laver en fejl.. Linje: 81 Et objekt var ventet
15. januar 2003 - 13:35
#11
kenneth@gigaload.dk Jeg bliver nødt til at gå nu... skal på arbejde, men send mig en mail, med filen, så sender retter jeg det når jeg kommer hjem...
16. december 2003 - 00:56
#12
LUKKER... Har ikke været her i længe, så tror ikke at der er nogle der svare på det her længere :-) hehe
Kurser inden for grundlæggende programmering