Avatar billede pro_styler Nybegynder
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>
Avatar billede korup Nybegynder
19. oktober 2003 - 20:03 #1
Hvilken fejl får du?

/korup
Avatar billede ddobbeltv Nybegynder
19. oktober 2003 - 20:13 #2
<% end if %>

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing





</body>
</html>

skal rs.Close og resten ikke <% %>'s ?
Avatar billede 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>
Avatar billede snakeeyz Nybegynder
20. oktober 2003 - 21:18 #4
der mangler da også " " Request.form
og i Recordsettet der bruges til at gemme

f.eks.:
rs.AddNew
rs("hhname") = Request.form("hhname")

Håber det hjælper ?
Avatar billede snakeeyz Nybegynder
24. oktober 2003 - 08:32 #5
Har du fået løst problemet ?
Avatar billede Slettet bruger
07. november 2003 - 21:32 #6
Er du der?
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
Kurser inden for grundlæggende programmering

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