winkelwagen functie

leonard0 · 14 dec 2004

hallo mensen
I.V.M. studie moet ik een webshop maken, met het winkelwagentje heb ik een probleem nl:
ik heb dus een pagina met een aantal getoonde gegevens(producten en prijs) op deze pagina staan en een form. het is de bedoeling dat wanneer je een 0 intikt het product verwijderd word en wanneer het 1 of meer is moet het product extra verrekend worden. waarschijnlijk zit de fout in regel 135, de codes die er mee temaken hebben staan tusssen "------------"
iemand raad? bvd

<%@LANGUAGE="VBSCRIPT"%>

<%
Response.Expires= 0

Dim cnDB
Set cnDB = Server.CreateObject("ADODB.Connection")
cnDB.ConnectionString= strDbXenon
cnDB.Open

Dim blnLogged
blnLogged= False
If Session("gebruikers_id")<> "" Then
Dim rsKlant
Set rsKlant= cnDB.Execute("SELECT * FROM tbl_klanten WHERE klant_id="&Session("gebruikers_id"))
If (rsKlant("Gebruikersnaam")= Session("Gebruikersnaam")) and (rsKlant("Paswoord")= Session("Paswoord")) Then
blnLogged= True
End If
End If

Dim rsCartTmp
Set rsCartTmp= Server.CreateObject("ADODB.Recordset")
rsCartTmp.CursorType= adOpenKeyset
rsCartTmp.LockType= 3 'adLockOptimistic
rsCartTmp.Open "SELECT Aantal, Artikel_Id FROM tbl_cart WHERE klant_id="&Cint(Session("gebruikers_id")), cnDB

'------------------------------------------------------
If not (rsCartTmp.BOF or rsCartTmp.EOF) Then
rsCartTmp.MoveFirst
Dim strVeld
strVeld= ""
While not rsCartTmp.EOF
strVeld= rsCartTmp("artikel_id")
If Request.Form(""&strVeld&"")<> "" and isNumeric(Request.Form(""&strVeld&"")) Then
If Request.Form(""&strVeld&"") => 1 Then
rsCartTmp("Aantal")= Request.Form(""&strVeld&"")
rsCartTmp.Update
Else
If Request.Form(""&strVeld&"") = 0 then
rsCartTmp.Delete
rsCartTmp.Update
End If
End If
End If
rsCartTmp.MoveNext
Wend
rsCartTmp.Close
End If
'-------------------------------------------------------

Dim rsCart
Set rsCart= cnDB.Execute("SELECT crt.*, art.* FROM tbl_cart crt, tbl_artikel art "&_
"WHERE crt.artikel_id= art.artikel_id AND crt.klant_id="&Cint(session("gebruikers_id")))

'Wanneer niet ingelogd, automatisch naar de inlogpagina.
If blnLogged= False Then
Response.Redirect("../inloggen.asp")
End If

Dim blnEmpty
blnEmpty= False
If rsCart.BOF or rsCart.EOF then
blnEmpty= True
Else
blnEmpty= False
End If

Dim intPrijsTotaal
intPrijsTotaal= 0

%>
<html>
<head>
<title>Winkelwagentje</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FF6600" vlink="#FF6600" alink="#FF6600">
<font size="2" font face="Verdana, Arial, Helvetica, sans-serif"> <img src="../logo.jpg" width="396" height="80"><br>
<br>
<%
Response.Write tmp
If blnEmpty= False Then
Response.Write "Dit zit er momenteel in uw winkelwagentje<br>"
Response.Write "Om artikelen te verwijderen, zet u het aantal op 0<hr>"
Else
Response.Write "Uw wagentje is leeg"
End If
%>
<form name="form1" method="post" action="cart.asp">
<table width="75%" border="0">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
If blnEmpty= False Then
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""><tr>"
Response.Write "<td width=""25%"">"
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""><b>Art. nummer</b></font>"
Response.Write "</td>"
Response.Write "<td width=""25%"">"
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""><b>Naam</b></font>"
Response.Write "</td>"
Response.Write "<td colspan=""2"">"
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""><b>StukPrijs(incl. BTW)</b></font>"
Response.Write "</td>"
Response.Write "<td width=""10%"">"
Response.Write "<div align=""right"">"
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""><b>Aantal:</b></font>"
Response.Write "</td></div>"
Response.Write "<td width=""*""></td>"
Response.Write "</tr>"
rsCart.MoveFirst
While not rsCart.EOF
Response.Write "<tr>"
Response.Write "<td width=""25%""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write rsCart("artikel_nr")
Response.Write "</td>"
Response.Write "<td width=""25%""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write rsCart("naam")
Response.Write "</td>"
Response.Write "<td width=""20%""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write "<div align=""right"">"

Response.Write "€ "&Cstr(rsCart("prijs_excl")+((rsCart("Prijs_excl")/100)*rsCart("BTW"))-((rsCart("prijs_excl")/100)*rsKlant("Korting")))&"</div>"
intPrijsTotaal= intPrijsTotaal+Cint(rsCart("Prijs_excl"))
If rsCart("aantal") > 1 Then
Dim intLus
For intLus=1 To rsCart("aantal")-1
intPrijsTotaal= intPrijsTotaal+rsCart("Prijs_excl")
Next
End If
Response.Write "</td>"
Response.Write "<td width=""5%"">"
Response.Write " "
Response.Write "</td>"
Response.Write "<td width=""10%"">"
Response.Write "<div align=""right"">"

'-------------------------------------------------
'regel 135
Response.Write "<input type='text' name="" 'str(rsCart('artikel_id'))&' "" size=""5"" value='' '&rsCart('aantal')&' "" style="" text-align: right;"">"
'-------------------------------------------------
Response.Write "</td></div>"
Response.Write "</tr>"
rsCart.Movenext
Wend
Response.Write "<tr>"
Response.Write "<td colspan=""5"">"
Response.Write "<div align=""right""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write "<input type=""submit"" name=""btnwijzig"" value=""Bereken nieuwe aantallen"" align=""middle"">"
Response.Write "</div>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr></tr>"
Response.Write "<tr>"
Response.Write "<td colspan=""1""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write "Totaal prijs(Excl.BTW) : "
Response.Write "</td>"
Response.Write "<td>"
Response.Write "<div align=""right""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write "€ "&intPrijsTotaal-((intPrijsTotaal/100)*rsKlant("korting"))
Response.Write "</div>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan=""1""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write "BTW percentage : "
Response.Write "</td>"
Response.Write "<td>"
Response.Write "<div align=""right""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
rsCart.MoveFirst 'Anders BOF/EOF waar en geen BTW, let op waarde van 1ste record word gebruikt !
Response.Write rsCart("BTW")
Response.Write "</div>"
Response.Write "</td>"
Response.Write "<td><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">%</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan=""2"">"
Response.Write "<hr>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan=""1""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write "<b>Totaal prijs(Incl.BTW) :</b> "
Response.Write "</td>"
Response.Write "<td>"
Response.Write "<div align=""right""><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">"
Response.Write "€ "&intPrijsTotaal+((intPrijsTotaal/100)*rsCart("BTW"))-((intPrijsTotaal/100)*rsKlant("Korting"))
Response.Write "</div>"
Response.Write "</td>"
Response.Write "</tr>"
End If
%>
</font>
</table>
</form>
<br>
<br>
<table width"75%" border="0">
<tr>
<td windth="50%">  </td>
<td> <div align="right">
<%
If blnEmpty=False Then
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif""><A HREF=""orders.asp"">Bestelling plaatsen</a>"
Else
Response.Write "Uw winkelwagentje is leeg"
End If
%>
</div></td>
</tr>
<tr>
<td colspan="2"><div align="right"><a href="../logged.asp">start page</a></div></td>
</tr>
<tr>
<td colspan="2"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Als
u een bestelling plaatst word de bestelling als factuur verzonden, u winkelwagentje
is dan weer leeg.</font> </td>
</tr>
</table>
</font> </body> </html>
<%
rsKlant.Close
rsCart.Close
cnDB.Close
%>

winkelwagen functie

leonard0

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy