19. oktober 2003 - 19:52
Der er
6 kommentarer
Hva er fejlen.
Hejsa jeg har et lille bytte ting system :) Jeg kan bare ikke finde fejlen :( Håber der er noget der kan hjælpe mig ;) Sådan ser min kode ud: <% Response.Buffer = True mode = Request.QueryString("mode") %> <html> <head> <title> Tilbyder:</title> <meta name="GENERATOR" content="Namo WebEditor v5.0(Trial)"> <meta name="description" content="Inserts a blank document layout with no defined style."> </head> <body> <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") Conn.Open DSN Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"Select * From bruger_koeb\" rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic <% if mode = "bruger" then %> <form action="byt.asp?mode=postet" method="post" name="formen"> HH Bruger Navn: <input type="text" name="hhname"><br> Jeg Tilbyder : <input type="text" name="tilbyder"><br> Jeg Får : <input type="text" name="for"><br> Andet : <textarea name="txt"> rows="4" cols="40" </textarea><br> <input type="submit" value="BYT!"> <hr> <%=RS("hhname")%><br> Tilbyder:<%=RS("tilbyder")%><br> For:<%=RS("for")%> <br> Andet:<%=RS("txt")%> <% end if %> <% if mode = "postet" then %> rs.AddNew rs(hhname) = Request.form(hhname) rs(tilbyder) = Request.form(tilbyder) rs(for) = Request.form(for) rs(icq) = Request.form(txt) rs.Update <% end if %> rs.Close Set rs = Nothing Conn.Close set Conn = Nothing </body> </html>
Annonceindlæg fra DE-CIX
Edge computing: behandling ved kilden
Edge computing revolutionerer den måde, data behandles på, ved at bringe kapacitet og ydeevne tættere på dér, hvor der er behov for det.
15. april 2025
Slettet bruger
19. oktober 2003 - 20:15
#3
Der er flere steder der mangler <% og %> <% Response.Buffer = True mode = Request.QueryString("mode") %> <html> <head> <title> Tilbyder:</title> <meta name="GENERATOR" content="Namo WebEditor v5.0(Trial)"> <meta name="description" content="Inserts a blank document layout with no defined style."> </head> <body> <% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") Conn.Open DSN Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"Select * From bruger_koeb\" rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic if mode = "bruger" then %> <form action="byt.asp?mode=postet" method="post" name="formen"> HH Bruger Navn: <input type="text" name="hhname"><br> Jeg Tilbyder : <input type="text" name="tilbyder"><br> Jeg Får : <input type="text" name="for"><br> Andet : <textarea name="txt"> rows="4" cols="40" </textarea><br> <input type="submit" value="BYT!"> <hr> <%=RS("hhname")%><br> Tilbyder:<%=RS("tilbyder")%><br> For:<%=RS("for")%> <br> Andet:<%=RS("txt")%> <% end if %> <% if mode = "postet" then rs.AddNew rs(hhname) = Request.form(hhname) rs(tilbyder) = Request.form(tilbyder) rs(for) = Request.form(for) rs(icq) = Request.form(txt) rs.Update end if rs.Close Set rs = Nothing Conn.Close set Conn = Nothing %> </body> </html>