Problemer med UPDATE !
Jeg er ved at blive sindsyg....Jeg har ingen problemer med at Oprette nye poste i min db... jeg kan også slette dem..
Men jeg kan ikke få min UPdate side til at virke... det er så slemt, at jeg ikke engang kan få kontakt med siden...
Jeg har lavet en side hvor man får en formular op, med alle de nuværende dataer..
Den virker fint :
------------ Form.asp ---------------
<%
Response.Buffer = True
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"../db/p.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
%>
<html>
<head>
<title>Ændring af Produkt</title>
</head>
<body>
<br><br>
<form method=\"POST\" action=\"update.asp?id=<% = Request.QueryString(\"id\") %>\">
<table border=\"0\" width=\"550\" cellpadding=\"1\" cellspacing=\"1\">
<tr><td valign=\"top\" align=\"left\" colspan=\"2\"><b>Indsæt produkt</b></td></tr>
<tr><td valign=\"top\" align=\"left\" colspan=\"2\">NB : Alle felter skal udfyldes!</td></tr>
<tr><td valign=\"top\" align=\"right\"><b>Katagori : </b></td>
<td valign=\"top\" align=\"left\">
<%
Sql = \"SELECT k.Kat_ID, k.KategoriNavn FROM Kategorier k ORDER BY k.KategoriNavn;\"
Set Record = Rs.Execute(Sql)
response.write \"<select name=\'Kat_ID\' size=\'1\'><option value=\'\" & Request.QueryString(\"Cat\") &\"\'>\" & Request.QueryString(\"CatN\") & \"</option>\"
Do While Not Record.EOF
response.write \"<option value=\'\" & Record(\"Kat_ID\") & \"\'>\" & Record(\"KategoriNavn\") & \"</option>\"
Record.MoveNext
Loop
response.write \"</select>\"
%>
</td></tr>
<tr><td valign=\"top\" align=\"right\"><b>Producent : </b></td>
<td valign=\"top\" align=\"left\">
<%
Sql = \"SELECT pr.Producent_ID, pr.ProducentNavn FROM Producenter pr ORDER BY pr.ProducentNavn;\"
Set Record = Rs.Execute(Sql)
response.write \"<select name=\'Producent_ID\' size=\'1\'><option value=\'\" & Request.QueryString(\"Produ\") & \"\'>\" & Request.QueryString(\"ProdN\") & \"</option>\"
Do While Not Record.EOF
response.write \"<option value=\'\" & Record(\"Producent_ID\") & \"\'>\" & Record(\"ProducentNavn\") & \"</option>\"
Record.MoveNext
Loop
response.write \"</select>\"
%>
</td></tr>
<%
sql = \"SELECT p.ProduktID, p.Produktnavn, p.Produktbeskrivelse, p.PrisPrEnhed FROM Produkter p WHERE p.ProduktID = \"
sql = sql & Request.QueryString(\"id\")
sql = sql & \" ORDER BY p.Produktnavn;\"
Set Record = Rs.Execute(Sql)
Do While Not Record.EOF
response.write \"<tr><td valign=\'top\' align=\'right\'><b>Produktnavn : </b></td>\"
response.write \"<td valign=\'top\' align=\'left\'><input type=\'text\' name=\'Produktnavn\' size=\'46\' value=\'\" & Record(\"Produktnavn\") & \"\'></td></tr>\"
response.write \"<tr><td valign=\'top\' align=\'right\'><b>Produktbeskrivelse : </b></td>\"
response.write \"<td valign=\'top\' align=\'left\'><textarea rows=\'8\' name=\'Produktbeskrivelse\' cols=\'40\'>\" & Record(\"Produktbeskrivelse\") & \"</textarea></td></tr>\"
response.write \"<tr><td valign=\'top\' align=\'right\'><b>Pris pr. Enhed : </b></td>\"
response.write \"<td valign=\'top\' align=\'left\'><input type=\'text\' name=\'PrisPrEnhed\' size=\'10\' value=\'\" & Record(\"PrisPrEnhed\") & \"\'></td></tr>\"
response.write \"<tr><td valign=\'top\' align=\'center\' colspan=\'2\'>\"
response.write \"<input type=\'submit\' value=\'Send\'> <input type=\'reset\' value=\'Anuller\'></td></tr>\"
Record.MoveNext
Loop
response.write \"</table>\"
%>
<%
Record.Close
RS.Close
%>
</form>
</body>
</html>
--------------------
Jeg har så denne update.asp :
------------------------------- UPDATE.asp -------------------------------
<%
Response.Buffer = True
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"../db/p.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
%>
<%
sql = \"SELECT * FROM Produkter WHERE p.ProduktID =\"
sql = sql & Request.QueryString(\"id\")
Set Record = Rs.Execute(Sql)
%>
<%
Sql = \"UPDATE DISTINCTROW Produkter SET (p.Kat_ID, p.Producent_ID, p.Produktnavn, p.Produktbeskrivelse, p.PrisPrEnhed) values(\'\" & Request.form(\"Kat_ID\") & \"\',\'\" & Request.form(\"Producent_ID\") & \"\',\'\" & Request.form(\"Produktnavn\") & \"\',\'\" & Request.form(\"Produktbeskrivelse\") & \"\',\'\" & Request.form(\"PrisPrEnhed\") & \"\')\"
Sql = Sql & \" WHERE ProduktID = \'\" & Record(\"ProduktID\") & \"\'\"
response.redirect \"in.asp\"
Record.Close
RS.Close
%>
-------------------------------
jeg har prøvet lidt af hvert efterhånden,
og er derfor desparat efter hjææælp..
(derfor den høje \"dusør\")
hvad er galt ?
