Avatar billede aero Nybegynder
25. juni 2004 - 18:43 Der er 14 kommentarer og
1 løsning

JS submit script og request.trim

hvordan kan jeg tage dette lille script jeg har lavet og så når jeg væler noget så bliver jeg sendt til en anden side hvor dropdown menuen så bliver vist igen bare med det valgte og bagved vises nu en anden dropdown.

min code er
<code>
<%
Dim strSQL, objRS, objConn
Dim strProduktid, strProdukt

Call OpenDB

strSQL = "SELECT [ID],[PR] FROM tbl_test ORDER BY [PR] ASC"
Set objRS = objConn.Execute(strSQL)

If (Not objRS.BOF) And (Not objRS.EOF) Then
Response.Write "<br />" & vbcrlf
Response.Write "<form name=""test"" method=""get"" action=""#"">" & vbcrlf
Response.Write "<table border=""0"">" & vbcrlf
Response.Write "<tr><td>V&aelig;lg et produkt</td></tr>" & vbcrlf
Response.Write "<tr><td><select name=""produkt"" size=""1"">" & vbcrlf
Response.Write "<option value=""Valg"">G&oslash;r et Valg" & vbcrlf
Do While Not objRS.EOF

    strProduktid = objRS("ID")
  strProdukt = objRS("PR")

    Response.Write "<option value="""&strProduktid&""">"&strProdukt&"</option>" & vbcrlf
    objRS.MoveNext
Loop
Call CloseDB
Response.Write "</Select></td></tr>" & vbcrlf
Response.Write "</table></form>" & vbcrlf
End If
%>
</code>
Avatar billede mm12010 Nybegynder
25. juni 2004 - 18:46 #1
hvilken side skal sendes til når man vælger?

hvilke parametre skal der sendes med? og skal det være POST eller GET?

hvad er det for en proddown der skal vises? og hvor skal den vises?
Avatar billede aero Nybegynder
25. juni 2004 - 18:49 #2
Der skal sendes til valgtest.asp og POST eller GET ved jeg ikke da jeg ikek ved hvad der er bedst. og det det vælgte skal gemmes senere på valgtest.asp siden.

håber du forstår.
Avatar billede mm12010 Nybegynder
25. juni 2004 - 18:55 #3
sådan her, så sendes man videre til valgtest.asp med strProduktid tilføjet din url, så den kan hentes med Request.QueryString("pID")

Response.Write "<tr><td><select name=""produkt"" size=""1"" onchange=""location.href='valgtest.asp?pID='+this.value;"">" & vbcrlf
Avatar billede mm12010 Nybegynder
25. juni 2004 - 18:57 #4
det skal måske være sådan, så men ikke bliver sendt videre hvis man vælger den første option:

Response.Write "<tr><td><select name=""produkt"" size=""1"" onchange=""if(this.selectedIndex!=0)location.href='valgtest.asp?pID='+this.value;"">" & vbcrlf
Avatar billede aero Nybegynder
25. juni 2004 - 19:11 #5
Det skal være sådan at jeg har evt 4 valg

-IS
-Sodavand
-Chips
-Kage

og hvis man vælger IS så kommer man til valgtest.asp og den viser nu dropdown menuen igen bage hvor IS er valgt og bagved viser den en ny dropdown hvor jeg nu kan valge nogle ting som har med IS at gøre og det samme gælder selvf. de andre ting.
Avatar billede mm12010 Nybegynder
25. juni 2004 - 19:42 #6
sådan?

<%
Dim strSQL, objRS, objConn
Dim strProduktid, strProdukt, sel

Call OpenDB

strSQL = "SELECT [ID],[PR] FROM tbl_test ORDER BY [PR] ASC"
Set objRS = objConn.Execute(strSQL)

If (Not objRS.BOF) And (Not objRS.EOF) Then
Response.Write "<br />" & vbcrlf
Response.Write "<form name=""test"" method=""get"" action=""#"">" & vbcrlf
Response.Write "<table border=""0"">" & vbcrlf
Response.Write "<tr><td>V&aelig;lg et produkt</td></tr>" & vbcrlf
Response.Write "<tr><td><select name=""produkt"" size=""1"">" & vbcrlf
Response.Write "<option value=""Valg"">G&oslash;r et Valg" & vbcrlf
Do While Not objRS.EOF

    strProduktid = objRS("ID")
    strProdukt = objRS("PR")
    if strProduktid=Request.QueryString("pID") then sel=" selected"

    Response.Write "<option value="""&strProduktid&""&sel&""">"&strProdukt&"</option>" & vbcrlf
    objRS.MoveNext
Loop
Call CloseDB
Response.Write "</Select></td></tr>" & vbcrlf
Response.Write "</table></form>" & vbcrlf
Response.Write "<select name=""produkt_spec"" size=""1"">" & vbcrlf
Response.Write "<option value=""Valg"">G&oslash;r et Valg" & vbcrlf
strSQL = "SELECT * FROM tbl_testvalg" 'tilpasses din situation
Set objRS = objConn.Execute(strSQL)
Do While Not objRS.EOF
    Response.Write "<option value="""&kolonne#1&""">"&kolonne#2&"</option>" & vbcrlf 'tilpasses oz
Loop
Response.Write "</select>"
Call CloseDB
End If
%>
Avatar billede mm12010 Nybegynder
25. juni 2004 - 19:43 #7
sorry - glemte lige lidt:

strSQL = "SELECT * FROM tbl_testvalg WHERE produkt='"&Request.QueryString("pID") &"'" 'tilpasses din situation
Avatar billede aero Nybegynder
25. juni 2004 - 19:47 #8
okay hvor skal det være !??
Avatar billede mm12010 Nybegynder
25. juni 2004 - 19:49 #9
valgtest.asp
Avatar billede mm12010 Nybegynder
29. juni 2004 - 20:32 #10
finder du ud af det?-)
Avatar billede aero Nybegynder
29. juni 2004 - 21:02 #11
@
Kommentar: aero
25/06-2004 19:47:12

er ikke med endnu !?
Avatar billede mm12010 Nybegynder
29. juni 2004 - 21:10 #12
gem overstående i en fil kaldet valgtest.asp og når du så afvikler test.asp skulle du gerne blive sendt til valgtest.asp hvor du så kan se resultatet...
Avatar billede aero Nybegynder
29. juni 2004 - 21:16 #13
hvad med

@ Kommentar: mm12010
25/06-2004 19:43:35
Avatar billede mm12010 Nybegynder
29. juni 2004 - 21:22 #14
det er denne linie:
  strSQL = "SELECT * FROM tbl_testvalg" 'tilpasses din situation
der skal erstattes med denne:
  strSQL = "SELECT * FROM tbl_testvalg WHERE produkt='"&Request.QueryString("pID") &"'" 'tilpasses din situation
Avatar billede mm12010 Nybegynder
14. september 2005 - 10:50 #15
skal vi lukke dette spg ?-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester