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>
