Notifikationer

Markér alle som læst Log ud

midgaardsorm Nybegynder

25. august 2006 - 13:52 Der er 6 kommentarer og
1 løsning

Opdatere værdier i en dropdownboks efter valg i en anden dropdown

Hej

Jeg har en dropdownbops hvor jeg vælger leverandør. herefter skal dropdownboksen varenummer kun vise varenumre fra den leverandør.
Begge bokse sidder på samme ASP-side !

Da jeg er et fjols bruger jeg Frontpage :-)

Synes godt om

madeindk Nybegynder

25. august 2006 - 14:07 #1

<%
strMode = request.querystring("mode")

if strMode = "" then
' Siden hvor du vælger dine leverandører
%>

<form method="post" name="minForm" style="margin:0px;">

<select name="select" style="width:135;" onChange="frames.self.location.href=minForm.select.options[form.select.selectedIndex].value">

<%
SQL = "SELECT * FROM levandoerer "

if not rs.eof then
do until rs.eof
%>

<option value="?mode=varenumre&id=<%=rs("id")%>"><%=rs("id")%>"><%=rs("leverandoerNavn")%></option>

<%
rs.movenext
loop
end if
%>

</select>

</form>

<%
end if

if strMode = "varenumre" then

' Siden der viser varenumre fra kunden
%>

<%
SQL = "SELECT * FROM varenumre WHERE levandoer=" & request.querystring("id")

if not rs.eof then
do until rs.eof
%>

<%=rs("varenummer")%><br>

<%
rs.movenext
loop
end if
%>

<% end if %>

Synes godt om

midgaardsorm Nybegynder

25. august 2006 - 14:31 #2

Som sagt er jeg et fjols der bruger Frontpage så hvor er det lige jeg sætter hvad ind ??????

Synes godt om

midgaardsorm Nybegynder

25. august 2006 - 14:33 #3

Jeg har en side : Vælg vare. På denne side skal jeg vælge en leverandør i en boks. Herefter vil den næste boks kun indeholde vare fra den leverandør.
Dette skal ske på samme side, da der er andre felter der skal udfyldes før det sendes til DB'en

Synes godt om

madeindk Nybegynder

25. august 2006 - 15:24 #4

Det har da ikke noget at gøre med du bruger Frontpage :-)

Vælg vare:

<% if request.querystring("id") = "" then %>

<form method="post" name="minForm" style="margin:0px;">

<select name="select" style="width:135;" onChange="frames.self.location.href=minForm.select.options[form.select.selectedIndex].value">

<%
SQL = "SELECT * FROM levandoerer "

if not rs.eof then
do until rs.eof
%>

<option value="?mode=varenumre&id=<%=rs("id")%>"><%=rs("id")%>"><%=rs("leverandoerNavn")%></option>

<%
rs.movenext
loop
end if
%>

</select>

</form>

<% else %>

<%
SQL = "SELECT * FROM varenumre WHERE levandoer=" & request.querystring("id")

if not rs.eof then
do until rs.eof
%>

<%=rs("varenummer")%><br>

<%
rs.movenext
loop
end if
%>

<% end if %>

Synes godt om

madeindk Nybegynder

25. august 2006 - 17:10 #5

Men du skal sætte koden ind i mellem <body> og body slut </body>

Synes godt om

midgaardsorm Nybegynder

28. august 2006 - 09:40 #6

Nu fatter jeg jo mindre end lidt af det her.
Her er min kode :
<%
' FP_ASP ASP genereret automatisk af en FrontPage-komponent. Undlad at redigere.
On Error Resume Next

strErrorUrl = "oplysningerne_er_ikke_gemt_Indgang.asp"

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Der kan ikke oprettes forbindelse."

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."

fp_conn.Open Application("web_ConnectionString")
FP_DumpError strErrorUrl, "Databasen kan ikke åbnes."

fp_rs.Open "Indgangskontrol", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."

fp_rs.AddNew
FP_DumpError strErrorUrl, "Der kan ikke føjes nye poster til databasen."
Dim arFormFields0(12)
Dim arFormDBFields0(12)
Dim arFormValues0(12)

arFormFields0(0) = "Dato_for_kontrol"
arFormDBFields0(0) = "Dato_for_kontrol"
arFormValues0(0) = Request("Dato_for_kontrol")
arFormFields0(1) = "Antal_modtaget"
arFormDBFields0(1) = "Antal_modtaget"
arFormValues0(1) = Request("Antal_modtaget")
arFormFields0(2) = "Bemarkninger"
arFormDBFields0(2) = "Bemarkninger"
arFormValues0(2) = Request("Bemarkninger")
arFormFields0(3) = "Leveringsdato"
arFormDBFields0(3) = "Leveringsdato"
arFormValues0(3) = Request("Leveringsdato")
arFormFields0(4) = "Ordrenummer"
arFormDBFields0(4) = "Ordrenummer"
arFormValues0(4) = Request("Ordrenummer")
arFormFields0(5) = "Varenummer"
arFormDBFields0(5) = "Varenummer"
arFormValues0(5) = Request("Varenummer")
arFormFields0(6) = "Leverandor"
arFormDBFields0(6) = "Leverandor"
arFormValues0(6) = Request("Leverandor")
arFormFields0(7) = "Varenavn"
arFormDBFields0(7) = "Varenavn"
arFormValues0(7) = Request("Varenavn")
arFormFields0(8) = "Udfort_af"
arFormDBFields0(8) = "Udfort_af"
arFormValues0(8) = Request("Udfort_af")
arFormFields0(9) = "Antal_kontrolleret"
arFormDBFields0(9) = "Antal_kontrolleret"
arFormValues0(9) = Request("Antal_kontrolleret")
arFormFields0(10) = "afvist/godkendt"
arFormDBFields0(10) = "Afvist/godkendt"
arFormValues0(10) = Request("afvist/godkendt")
arFormFields0(11) = "Fejl"
arFormDBFields0(11) = "Fejl"
arFormValues0(11) = Request("Fejl")

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Navn_på_fjerncomputer"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Web-browsertype"
End If
FP_SaveFieldToDB fp_rs, Now, "Tidsstempel"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Brugernavn"
End If

fp_rs.Update
FP_DumpError strErrorUrl, "Databasen kan ikke opdateres."

fp_rs.Close
fp_conn.Close

Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Response.Redirect "oplysningerne_er_gemt_Indgang.asp"

End If
End If

%>
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Indtast indgangskontrollabel</title>
</head>

<body>

<form method="POST" action="--WEBBOT-SELF--">
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0">
<p align="center"><font face="Arial" size="6"><b>Indtast kontrollabel for
indgangskontrol</b></font></p>
<p> </p>
<table border="0" width="85%">
<tr>
<td width="26%"><font face="Arial" size="2">Dato for kontrol :</font></td>
<td width="20%"><font face="Arial" size="2"><input type="text" name="Dato_for_kontrol" size="20" value="<%=date()%>"></font></td>
<td width="15%"><font face="Arial" size="2">Udført af :</font></td>
<td width="40%"><font face="Arial" size="2"><input type="text" name="Udfort_af" size="20" value="René Nissen"></font></td>
</tr>
<tr>
<td width="26%"><font face="Arial" size="2">Dato for modtagelse :</font></td>
<td width="20%"><font face="Arial" size="2"><input type="text" name="Leveringsdato" size="20" value="<%=date()%>"></font></td>
<td width="15%"><font face="Arial" size="2">Leverandør :</font></td>
<td width="40%"><nobr><font face="Arial" size="2">
<%
fp_sQry="SELECT * FROM Leverandor ORDER BY Leverandor ASC"
fp_sDefault=""
fp_sNoRecords="Der er ikke blevet returneret nogen poster."
fp_sDataConn="web"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=True
fp_sMenuChoice="Leverandor"
fp_sMenuValue="Leverandor"
fp_iDisplayCols=2
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<select name="Leverandor" size="1">

<option><%=FP_FieldHTML(fp_rs,"Leverandor")%></option>

</select></font></nobr></td>
</tr>
<tr>
<td width="26%"><font face="Arial" size="2">Varenummer :</font></td>
<td width="20%"><nobr>
<%
fp_sQry="SELECT * FROM Leverandor_vare"
fp_sDefault=""
fp_sNoRecords="Der er ikke blevet returneret nogen poster."
fp_sDataConn="web"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=True
fp_sMenuChoice="Varenummer"
fp_sMenuValue="ID"
fp_iDisplayCols=4
fp_fCustomQuery=False
BOTID=1
fp_iRegion=BOTID
%>

<select name="ID" size="1">

<option value="<%=FP_FieldHTML(fp_rs,"ID")%>"><%=FP_FieldHTML(fp_rs,"Varenummer")%></option>

</select>
</nobr></td>
<td width="15%"><font face="Arial" size="2">Varenavn :</font></td>
<td width="40%"><font face="Arial" size="2"><input type="text" name="Varenavn" size="20"></font></td>
</tr>
<tr>
<td width="26%"><font face="Arial" size="2">Ordrenummer :</font></td>
<td width="20%"><font face="Arial" size="2"><input type="text" name="Ordrenummer" size="20"></font></td>
<td width="15%"><font face="Arial" size="2">Antal modtaget :</font></td>
<td width="40%"><font face="Arial" size="2"><input type="text" name="Antal_modtaget" size="20"></font></td>
</tr>
<tr>
<td width="26%"><font face="Arial" size="2">Antal til kontrol :</font></td>
<td width="20%"><font face="Arial" size="2"><input type="text" name="Antal_kontrolleret" size="20"></font></td>
<td width="15%"><font face="Arial" size="2">Fejl i %</font></td>
<td width="40%"><font face="Arial" size="2"><input type="text" name="Fejl" size="20"></font></td>
</tr>
<tr>
<td width="26%" valign="top" align="left"><font face="Arial" size="2">Bemærkninger
:</font></td>
<td width="75%" colspan="3"><font face="Arial" size="2"><textarea rows="2" name="Bemarkninger" cols="81"></textarea></font></td>
</tr>
</table>
<p><font face="Arial" size="2"><input type="checkbox" name="afvist/godkendt" value="ON">Hak
for godkendt</font></p>
<p><input type="submit" value="Send" name="B1"><input type="reset" value="Nulstil" name="B2"></p>
</form>

</body>

</html>

Hvis du kunne fortælle mig hvor jeg skal sætte den ind vil jeg blive meget glad eller hvad jeg skal lave om !

Synes godt om

midgaardsorm Nybegynder

11. september 2006 - 15:37 #7

lukker spørgsmålet....

Finder på noget andet.....

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS