Das mit der Fehlermeldung hab ich jetzt irgendwie hinbekommen. Jetzt ist nur
noch ein Problem mit dem Update, da wird n�mlich nur immer der letzte
Datensatz abge�ndert.
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\xxx\x\xxx.mdb")
sSQL="SELECT * FROM Warenkorb WHERE Bestell_ID ='" & Session("Kunden_ID") &
"'"
Set oRS = oConn.Execute(sSQL)
%>
<TABLE WIDTH=70% BORDER=1>
<TR bgcolor="#000000#" style='color:white;'>
<!--TD>Artikel-Nr</TD-->
<TD>Bezeichnung</TD>
<TD>Anzahl</TD>
<TD>Preis</TD>
</TR>
<FORM NAME=Update ACTION='' METHOD=Post>
<%
Counter = 0
Do While NOT oRS.EOF
Counter = Counter + 1
P = P + oRS("Preis") * oRS("Anzahl")
'Response.Write("<TR><TD>" & oRS("ID") & "</TD>")
Response.Write("<TR><TD>" & oRS("Beschreibung") & "</TD>")
Response.Write("<TD><INPUT TYPE=text Name='UpdateID" & Counter & "'
Value='" & oRS("ID") & "'><INPUT TYPE=Text SIZE=2 NAME='UpdateAnz" & Counter &
"'VALUE='" & oRS("Anzahl") & "'></TD>")
Response.Write("<TD>" & oRS("Preis") * oRS("Anzahl") & "</TD></TR>")
oRS.MoveNext
Loop
Response.Write("<TR><TD><B>Sie bezahlen:</B></TD>")
Response.Write("<TD colspan=2 ALIGN=RIGHT><B>sFR. " & P &
".-</B></TD></TR>")
Response.Write("<TR><TD colspan='3'><INPUT TYPE=Submit Name=Update
Value=Update></FORM></TD></TR>")
Response.Write("</TABLE>")
IF Request.Form("Update") = "Update" THEN
sSQL="SELECT * FROM Warenkorb WHERE Bestell_ID ='" & Session("Kunden_ID") &
"'"
Set oRS = oConn.Execute(sSQL)
oRS.MoveFirst
For X = 1 to counter
oConn.Execute("UPDATE Warenkorb SET Anzahl='" &
Request.Form("UpdateAnz" &
Counter) & "' WHERE ID ='" & Request.Form("UpdateID" & Counter) & "'")
oRS.MoveNext
Next
END IF
%>
--
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
