Du kan lave en form med et indtastning felt og en gem kanp som sender tallet til siden igen sammen med id, og så en SQL update sætning som opdater tallet.
eks:
'din connection til databasen her.
if request.servervariables("REQUEST_METHOD") = "POST" then SQL = "update oenske set antal = antal - " & Request.form("mantal") & " where id = " & Request.QueryString("ID") Conn.Execute(SQL) end if
SQL = "Select * FROM oenske WHERE ID=" & Request.QueryString("ID") Set gb = Conn.Execute(SQL)
Jeg får så flg. fejl i linien med: Set gb = Conn.Execute(SQL)
Fejltype: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "ID=". /drev_c/Internet/bryllup-asp/valg.asp, line 39
<body bgcolor="#E4D7CA"> <% ' vi starter med at oprette forbindelse til vores database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=c:\inetpub\wwwroot\bryllup\gaver.mdb" Conn.Open DSN
' og så finder vi dataene, hvor værdien af feltet ID = værdien i vores Session("ID") SQL = "Select * FROM login WHERE ID=" & Session("ID") Set rs = Conn.Execute(SQL)
' nu kan vi så lave vores udtræk %><h4><% Response.Write "Velkommen til : " Response.Write rs("navn") & "<br><br>" Response.Write "Her skal I/du endelig vælge hvor mange af vedkommende gaver I/du vil give" & "<br>" Response.Write "Vælg det ønskede antal og tryk på OK" %></h4><%
' og så finder vi dataene, hvor værdien af feltet ID = værdien i vores Session("ID") if request.servervariables("REQUEST_METHOD") = "POST" then SQL = "update oenske set antal = antal - " & Request.form("mantal") & " where id = " & Request.QueryString("ID") Conn.Execute(SQL) end if
<body bgcolor="#E4D7CA"> <% ' vi starter med at oprette forbindelse til vores database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=c:\inetpub\wwwroot\bryllup\gaver.mdb" Conn.Open DSN
' og så finder vi dataene, hvor værdien af feltet ID = værdien i vores Session("ID") SQL = "Select * FROM login WHERE ID=" & Session("ID") Set rs = Conn.Execute(SQL)
' nu kan vi så lave vores udtræk %><h4><% Response.Write "Velkommen til : " Response.Write rs("navn") & "<br><br>" Response.Write "Her skal I/du endelig vælge hvor mange af vedkommende gaver I/du vil give" & "<br>" Response.Write "Vælg det ønskede antal og tryk på OK" %></h4><%
' og så finder vi dataene, hvor værdien af feltet ID = værdien i vores Session("ID") if request.servervariables("REQUEST_METHOD") = "POST" then SQL = "update oenske set antal = antal - " & Request.form("mantal") & " where id = " & session("ID") Conn.Execute(SQL) end if
SQL = "Select * FROM oenske WHERE ID=" & session("ID") Set gb = Conn.Execute(SQL) %><h4><% Response.Write gb("Betegnelse") & "<BR>" Response.Write "Antal ønsket: " Response.Write gb("Antal") & "<BR>" Response.Write "<form mehod=""post"" action="""">Træk fra <input type=""text"" name=""mantal""><input type=""submit"" value=""Gem"" name=""Gem""></form>" %><h4><%
' ' her har jeg forsøgt at sætte "din" kode ind, det vil den godt nok ikke ! '
<body bgcolor="#E4D7CA"> <% ' vi starter med at oprette forbindelse til vores database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=c:\inetpub\wwwroot\bryllup\gaver.mdb" Conn.Open DSN
' og så finder vi dataene, hvor værdien af feltet ID = værdien i vores Session("ID") SQL = "Select * FROM login WHERE ID=" & Session("ID") Set rs = Conn.Execute(SQL)
' nu kan vi så lave vores udtræk %><h4><% Response.Write "Velkommen til : " Response.Write rs("navn") & "<br><br>" Response.Write "Her skal I/du endelig vælge hvor mange af vedkommende gaver I/du vil give" & "<br>" Response.Write "Vælg det ønskede antal og tryk på OK" %></h4><%
' og så finder vi dataene, hvor værdien af feltet ID = værdien i vores Session("ID") if request.servervariables("REQUEST_METHOD") = "POST" then SQL = "update oenske set antal = antal - " & Request.form("mantal") & " where id = " & Request.Querystring("ID") Conn.Execute(SQL) end if
SQL = "Select * FROM oenske WHERE ID=" & Request.Querystring("ID") Set gb = Conn.Execute(SQL) %><h4><% Response.Write gb("Betegnelse") & "<BR>" Response.Write "Antal ønsket: " Response.Write gb("Antal") & "<BR>" Response.Write "<form mehod=""post"" action=""?id="&Request.Querystring("ID")&">Træk fra <input type=""text"" name=""mantal""><input type=""submit"" value=""Gem"" name=""Gem""></form>" %><h4><%
' ' her har jeg forsøgt at sætte "din" kode ind, det vil den godt nok ikke ! '
Fejltype: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge en opdaterbar forespørgsel. /drev_c/Internet/bryllup-asp/valg.asp, line 35
Det er fordi den folder database filen ligger skal give skrive rettighed til brugeren IUSR_maskinavn (Internet Gæst). Du kan gøre sådan her for at give skriveretttighed:
- Vælg den folder databasen ligger i - Højreklik og vælg Properties - Vælg security/sikkerhed fanen - Hvis brugeres ikke findes tryk på Add og tilføj IUSR_maskinnavn. - Giv så IUSR_maskinnavn skriverettighed / write
Har XP er det ikke sikkert du har sikkerhed's fanen så skal du gøre sådan her for at få den frem: - Åbn denne computer - Klik på menupunktet Funktioner - Mappeindstillinger - Klik på fanen Vis - Fjern flueben i "Brug Enkel Fildelign" så får du adgang til en fane der hedder sikkerhed,
...og jeg får masser af ro på hjemmefonten, det er min papdatter der skal giftes!
Synes godt om
Ny brugerNybegynder
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.
