20. maj 2002 - 02:34
Der er
24 kommentarer og 2 løsninger
Submit en record
Jeg generer en masse submit knapper ud for hver record jeg har i en database ved hjælp af response.write, når jeg trykker på en submitknap skal den sende den record videre som den står ud for. Det virker ikke den kan ikke finde ud af hvilken den skal sende? Please hjælp det er et eksamens projekt
Annonceindlæg fra Genetec
Slettet bruger
20. maj 2002 - 02:36
#1
kan vi se noget kode, ikke nemt at snakke om noget man ikke kan se &:-D
selvfølgelig :) Dim objRS Set objRS = Server.CreateObject ("ADODB.Recordset") objRS.Open "tblVin",objConn,adOpenStatic,adLockReadOnly,adCmdTable Response.Write "<FORM action=""IndkobsVogn.asp?Vare=" & objRS("Navn") & """ method=""post"">" Response.Write "<TABLE BORDER=0><TR><TD><B>Varenr</B></TD><TD><B>Varenavn</B></TD>" & _ "<TD><B>Beskrivelse</B></TD><TD><B>Pris</B></TD></TR>" While not objRS.EOF Response.Write "<TR><TD valign=top>" & objRS("IDnavn") & "</TD>" & _ "<TD valign=top><A HREF=""VisDetail.asp?Vin=" & objRS("Navn") & """>" & objRS("Navn") & "</A></TD>" & _ "<TD valign=top>" & objRS("Beskrivelse") & "</TD>" & _ "<TD valign=top><PNR>" & objRS("Pris") & "Kr.</PNR></TD>" If Session("IDKunde")<>"" Then Response.Write "<TD valign=top><INPUT type=""text"" name=""antal"" size=""2"" value=""1""></TD>" & _ "<TD valign=top><INPUT type=""Submit"" value=""Bestil""></TD></TR>"
Du skal lave en form for hvert "afsnit" af felter der skal sendes.
det ser lidt rodet ud når det bliver klemt Mark
mark: er det alt din kode?
det vil sige jeg skal ligge en form ind efter <TR>
nej der er mere vil du se det hele?
der mangler f.eks. et WEND i din kode for at man rigtig kan se hvoran dine records bliver skrevet ud
<%@ Language=VBScript %> <%Option Explicit%> <!-- #include file="Clssfd.asp" --> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <LINK rel="stylesheet" type="text/css" href="MainStyleSheet.css"> </HEAD> <BODY> <% If Session("IDKunde")<>"" Then Response.Write "<CENTER><H3>Valdemar's vinhandel</H3>" & _ "<H3>Byder dig meget velkommen</H3>" & _ "<H3>" & Session("fornavn") & Session("efternavn") & "</H3>" & _ "<P>Du har nu mulighed for at benytte dig af vores online system.</P>" & _ "<FORM action=""faktura.asp"" method=""post"">" & _ "<P><B>Varer:</B><INPUT type=text size=15 >" & _ "<B>Pris ialt:</B><INPUT type=""text"" name=""pris""> " & _ "<INPUT type=""submit"" value=""Til Kassen""></P></FORM></CENTER>" Else Response.Write "<CENTER><H3>Valdemar's vinliste</H3>" & _ "<P>Hvis du er registreret kan du benytte vores online system</P></CENTER>" End if Dim objRS Set objRS = Server.CreateObject ("ADODB.Recordset") objRS.Open "tblVin",objConn,adOpenStatic,adLockReadOnly,adCmdTable Response.Write "<FORM action=""IndkobsVogn.asp?Vare=" & objRS("Navn") & """ method=""post"">" Response.Write "<TABLE BORDER=0><TR><TD><B>Varenr</B></TD><TD><B>Varenavn</B></TD>" & _ "<TD><B>Beskrivelse</B></TD><TD><B>Pris</B></TD></TR>" While not objRS.EOF Response.Write "<TR><TD valign=top>" & objRS("IDnavn") & "</TD>" & _ "<TD valign=top><A HREF=""VisDetail.asp?Vin=" & objRS("Navn") & """>" & objRS("Navn") & "</A></TD>" & _ "<TD valign=top>" & objRS("Beskrivelse") & "</TD>" & _ "<TD valign=top><PNR>" & objRS("Pris") & "Kr.</PNR></TD>" If Session("IDKunde")<>"" Then Response.Write "<TD valign=top><INPUT type=""text"" name=""antal"" size=""2"" value=""1""></TD>" & _ "<TD valign=top><INPUT type=""Submit"" value=""Bestil""></TD></TR>" Else Response.Write "" End if objRS.MoveNext Wend Response.Write "</TABLE>" Response.Write "</FORM>" objRS.Close Set objRS = Nothing %> </BODY> </HTML> det er det hele, det er fordi jeg tester om personen er logget ind at jeg har session("IDKunde") med Når man trykker på submit vil jeg have det i en indkøbsvogn ved hjælp at et dictionary
kan ikke lige få det til at virke
Så skulle den gerne lave dine forms som du gerne vil ha' dem :o) <%@ Language=VBScript %> <%Option Explicit%> <!-- #include file="Clssfd.asp" --> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <LINK rel="stylesheet" type="text/css" href="MainStyleSheet.css"> </HEAD> <BODY> <% If Session("IDKunde")<>"" Then Response.Write "<CENTER><H3>Valdemar's vinhandel</H3>" & _ "<H3>Byder dig meget velkommen</H3>" & _ "<H3>" & Session("fornavn") & Session("efternavn") & "</H3>" & _ "<P>Du har nu mulighed for at benytte dig af vores online system.</P>" & _ "<FORM action=""faktura.asp"" method=""post"">" & _ "<P><B>Varer:</B><INPUT type=text size=15 >" & _ "<B>Pris ialt:</B><INPUT type=""text"" name=""pris""> " & _ "<INPUT type=""submit"" value=""Til Kassen""></P></FORM></CENTER>" Else Response.Write "<CENTER><H3>Valdemar's vinliste</H3>" & _ "<P>Hvis du er registreret kan du benytte vores online system</P></CENTER>" End if Dim objRS Set objRS = Server.CreateObject ("ADODB.Recordset") objRS.Open "tblVin",objConn,adOpenStatic,adLockReadOnly,adCmdTable Response.Write "<TABLE BORDER=0><TR><TD><B>Varenr</B></TD><TD><B>Varenavn</B></TD>" & _ "<TD><B>Beskrivelse</B></TD><TD><B>Pris</B></TD></TR>" While not objRS.EOF Response.Write "<FORM action=""IndkobsVogn.asp?Vare=" & objRS("Navn") & """ method=""post"">" Response.Write "<TR><TD valign=top>" & objRS("IDnavn") & "</TD>" & _ "<TD valign=top><A HREF=""VisDetail.asp?Vin=" & objRS("Navn") & """>" & objRS("Navn") & "</A></TD>" & _ "<TD valign=top>" & objRS("Beskrivelse") & "</TD>" & _ "<TD valign=top><PNR>" & objRS("Pris") & "Kr.</PNR></TD>" If Session("IDKunde")<>"" Then Response.Write "<TD valign=top><INPUT type=""text"" name=""antal"" size=""2"" value=""1""></TD>" & _ "<TD valign=top><INPUT type=""Submit"" value=""Bestil""></TD></TR>" Else Response.Write "<td colspan=""2""> </td></tr>" Response.Write "</FORM>" End if objRS.MoveNext Wend Response.Write "</TABLE>" objRS.Close Set objRS = Nothing %> </BODY> </HTML> det er det hele, det er fordi jeg tester om personen er logget ind at jeg har session("IDKunde") med Når man trykker på submit vil jeg have det i en indkøbsvogn ved hjælp at et dictionary
Jeg ville lave denne, som jeg mener er lidt mere elegant end at blandet querystring og post. Response.Write "<FORM action=""IndkobsVogn.asp"" method=""post"">" Response.Write "<INPUT TYPE=""HIDDEN"" VALUE=""" & objRS("Navn") & """ NAME=""Vare"">"
istedet for min submit sejt
jeg er lige lidt lost med den "HIDDEN" hvordan virker det og hvor skal den placeres
Nej, ikke i stedet for din submit, men istedet for denne linie: Response.Write "<FORM action=""IndkobsVogn.asp?Vare=" & objRS("Navn") & """ method=""post"">" Du skal stadig have en submit som det er foreslået, men med et skjult felt gør du tingene mere diskret.
hvis jeg ikke har "form action" hvordan sender jeg så objRS("Navn") videre
det er netop det dit hidden field gør - det er ligesom f.eks. at du skriver det i et tekstfelt: <input type="text" name="navn" value="<%=objRS("navn")%>"> ..blot, hvis du bruger et hidden field kan du ikke se det.
Tak nu virker det det var kanont men hvordan vil i have point i hjalp begge to men tmceu har ikke lavet et svar MARK : -)
Hvad med at dele fifty-fifty? tmceu: læg et svar så du ka' få points :o)
Point er ikke det vigtigste og kimiwan kom med det væsentligste, så giv du ham/hende de fleste :-)
Endnu engang tak, det bliver nok ikke sidste gang jeg kigger forbi Mark
jeg er en ham ;o) og takker for point.
hey kimiwan har du ICQ? //>Rune
det har jeg, hvad er dit #?
hehe, du vil heller ik' ha' dit ICQ nr. smidt ud her på E!? well, søg under Nickname under medions, der er kun 2 der hedder det, og den ene er en tysker.... -og det er jo ik' mig.. ;-) //>Rune
Kurser inden for grundlæggende programmering