Hmm, men det har jag skapat
<%
Option Explicit
Dim artNr
Dim antal
Dim Item
Dim prodid
Dim strConnString
Dim cart
Dim page
Dim varCart
Dim myCart
If Request.QueryString("webshop")<>"" Then
If Request.QueryString("add_prod")<>"" Then
artNr=trim(Request.querystring("add_prod"))
Response.Cookies(artNr)("ProdID") = artNr
If Request.Form("Items")<>"" Then
Response.Cookies(artNr)("Items") = Request.Form("Items")
Else
Response.Cookies(artNr)("Items") = 1
End If
Response.Redirect "webshop_cart.asp?webshop="& Request.QueryString("webshop")
End if
For each item in Response.Cookies
If Response.Cookies(item).Haskeys Then
prodid = Request.Cookies(item)("ProdID") &","& prodid
antal = Request.Cookies(item)("Items") &","& antal
End If
Next
prodid = Left(prodid, len(prodid)-1)
antal = Left(antal, len(antal)-1)
strConnString = "Driver={Mysql};Server=www.aleborg.com;Database=AleWebshop;UID=Astor;PWD=vincent7625"
Set cart = Server.CreateObject("AleWebshop.Cart")
Set page = Server.CreateObject("AleWebshop.Products")
page.ConnectionString1 = strConnString
cart.ConnectionString1 = strConnString
varCart = page.Page(Request.QueryString("webshop"), "Webshop_Page_Cart")
myCart = cart.viewCart(varCart(0,0), Request.QueryString("webshop"), prodid, antal)
Response.Write myCart
Set page = Nothing
Set cart = Nothing
Else
Response.Redirect "default.asp"
End If
%>
Och liten del av koden från komponenten, tog bort ganska mycket som jag vet att inte felet genereras:
Public Function viewCart(Sida, Webshop, ProdID, Antal) As Variant
On Error GoTo Errorcode
Dim CartSida1
Dim CartSida2
Dim HtmlSida As String
Dim Resp As Response
'Dim Req As Request
Dim InCart
Dim InItems
Dim i
Dim Errorcode As Label
Dim visa As String
Dim objRScart As Recordset
Dim strSQLcart As String
Dim Product
Dim koden As String
Dim nySida As String
'Dim dprice
'Dim totprice
'Dim koden As String
'Dim totPvat
'Dim totitem
Dim strTemp As String
'get the layout and add i to strings
If InStr(Sida, "[CartList]") > 0 And InStr(Sida, "[/CartList]") > 0 Then
CartSida1 = Split(Sida, "[CartList]")
CartSida2 = Split(CartSida1(1), "[/CartList]")
HtmlSida = CartSida2(0)
Else
HtmlSida = Sida
End If
' check if there's any products in the cart
If ProdID <> "" Then
' split the products
InCart = Split(ProdID, ",")
InItems = Split(Antal, ",")
' loop the products
For i = 0 To UBound(InCart)
'put the list html in a string
visa = HtmlSida
'Get the product to the cart
strSQLcart = "SELECT Product_ID, Product_Name, Product_Art, Product_Price, Product_Vat FROM Products Where Product_ID=" & InCart(i) & " And Webshop=" & Webshop
Set objRScart = GetConn.Execute(strSQLcart)
'make sure the product still exists
If Not objRScart.EOF Then
' add it to a string
Product = objRScart.GetRows()
' Show product name
If InStr(visa, "[Product_Name]") > 0 Then
If Product(1) <> "" Then
visa = Replace(visa, "[Product_Name]", Product(1))
Else
visa = Replace(visa, "[Product_Name]", "")
End If
End If
Else
'if not the product exists
' Show product name
If InStr(visa, "[Product_Name]") > 0 Then
visa = Replace(visa, "[Product_Name]", "Product not found")
End If
End If
' close the db
objRScart.Close
Set objRScart = Nothing
' add the product to the list
koden = koden & visa
Next
' add all products in cart to the rest of the html code
nySida = CartSida1(0) & koden & CartSida2(1)
Else
' if there's not any products in the cart
End If
viewCart = nySida
End Function
Raden som genererar felmesset:
myCart = cart.viewCart(varCart(0,0), Request.QueryString("webshop"), prodid, antal)
