The culprit is the "vertical bar" character (|).
Customers can order a text (decal). This was his tekst : Goethals J.|O+ "Shadownight #771"
So I tried it for my own and I had also the error 500.
In the "eCart Store Details in Database", the product "cStr(WA_eCart_DisplayInfo(stickersBE, "EigenTekst"))" is stored as text.
<%' WA eCart Store Cart Details in Db
if ("" = "") then
WA_connection = MM_connstickersBE_STRING
WA_table = "tblOrderDetails"
WA_redirectURL = ""
WA_indexField = "OrderID"
WA_fieldNamesStr = "OrderID|ProductID|ProductName|MirrorImage|ProductSize|ProductColor|EigenTekst|Font|StandaardPrijs|AangepastePrijs|Aantal|Total|AanboordTekst"
WA_fieldValuesStr = WA_eCDB_ConvertNumber("" & cStr( Session("OrderNumber") ) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(stickersBE, "ID")) & "") & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Name")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "MirrorImage")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Size")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Color")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "EigenTekst")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Font")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Price")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "TruePrice")) & "" & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(stickersBE, "Quantity")) & "") & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "TotalPrice")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "AanboordTekst")) & ""
WA_columnTypesStr = "none,none,NULL|none,none,NULL|',none,''|',none,''|',none,''|',none,''|',none,''|',none,''|',none,''|',none,''|none,none,NULL|',none,''|',none,''"
indexFieldIndex = -1
WA_fieldValues = Split(WA_fieldValuesStr,"|")
if (WA_redirectURL <> "" AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
if (inStr(WA_redirectURL,"?") > 0) then
WA_redirectURL = WA_redirectURL & "&"
else
WA_redirectURL = WA_redirectURL & "?"
end if
WA_redirectURL = WA_redirectURL & Request.QueryString
end if
WA_cmdObjString = "ADODB.Command"
set WA_editCmd = Server.CreateObject(WA_cmdObjString)
WA_editCmd.ActiveConnection = WA_connection
WA_fieldNames = Split(WA_fieldNamesStr,"|")
WA_columns = Split(WA_columnTypesStr,"|")
for i = 0 to Ubound(WA_fieldNames)
if (WA_indexField = WA_fieldNames(i)) then
indexFieldIndex = i
exit for
end if
next
deleteFieldValue = cStr(WA_fieldValues(indexFieldIndex))
if (deleteFieldValue <> "" AND deleteFieldValue <> "undefined") then
deleteParamsObj = WA_generateInsertParams(Array(WA_indexField), Array(WA_columns(indexFieldIndex)), Array(deleteFieldValue), -1)
WA_editCmd.CommandText = "Delete from " & WA_table & " where " & WA_indexField & " = " & deleteParamsObj(2)
WA_editCmd.Execute()
end if
set stickersBE = WA_eCart_MoveFirst(stickersBE)
while (NOT WA_eCart_EOF(stickersBE))
WA_fieldValuesStr = WA_eCDB_ConvertNumber("" & cStr( Session("OrderNumber") ) & "") & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(stickersBE, "ID")) & "") & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Name")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "MirrorImage")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Size")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Color")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "EigenTekst")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Font")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "Price")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "TruePrice")) & "" & "|" & WA_eCDB_ConvertNumber("" & cStr(WA_eCart_DisplayInfo(stickersBE, "Quantity")) & "") & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "TotalPrice")) & "" & "|" & "" & cStr(WA_eCart_DisplayInfo(stickersBE, "AanboordTekst")) & ""
WA_fieldValues = Split(WA_fieldValuesStr,"|")
insertParamsObj = WA_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
WA_editCmd.CommandText = "insert into " & WA_table & " (" & insertParamsObj(1) & ") values (" & insertParamsObj(2) & ")"
WA_editCmd.Execute()
set stickersBE = WA_eCart_MoveNext(stickersBE)
wend
set stickersBE = WA_eCart_MoveFirst(stickersBE)
WA_editCmd.ActiveConnection.Close()
if (WA_redirectURL <> "") then
Response.Redirect(WA_redirectURL)
end if
end if
%>
