ubound - forkerte typer! 600 point!
Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a000d\'Typerne stemmer ikke overens: \'ubound\'
shopcart.asp, linje 11
Dette er fejlen der kommer når jeg vil køre nedenstående script. Er der nogen der kan finde ud af hvor fejlen opstår?
Jeg vil give 600 point!!!
<!--#INCLUDE FILE=\"adovbs.inc\"-->
<!--#INCLUDE FILE=\"45tn73gf4347y.asp\"-->
<!--#include file=\"proces.inc\"-->
\'<%
\'response.write request.querystring(\"itemno\")
\'%>
<%
vareNr = session(\"CartItemNumArreay\")
antal = session(\"CartItemQtyArray\")
optaltVarenr = ubound(vareNr)
\'Determine the mode of this page\'s operation. If we got here from a
\' link that had a \"mode\" querystring of \"add\", mode is add:
sMode = request.querystring(\"mode\")
\'Or, we could have gotten here from a form:
select case request.form(\"cmdSubmit\")
case \"Forlad siden\"
sMode = \"forlad\"
case \"Slet ordre\"
sMode = \"slet\"
case \"Fortsæt indkøb\"
sMode = \"fortsaet\"
end select
if sMode = \"add\" then
nVareIndex = 0
sItemNo = ucase(request.querystring(\"itemno\"))
if optaltVarenr > 0 then
for i = 1 to optaltVarenr
if ucase(vareNr(i)) = sItemNo then
nVareIndex = i
exit for
end if
next
end if
if nVareIndex = 0 then
nVareIndex = optaltVarenr + 1
redim Preserve vareNr(nVareIndex)
redim Preserve antal(nVareIndex)
vareNr(nVareIndex) = sItemNo
antal(nVareIndex) = 1
else
antal(nVareIndex) = antal(nVareIndex) + 1
end if
session(\"CartItemNumArray\") = vareNr
session(\"CartItemQtyArray\") = antal
optaltVarenr = ubound(vareNr)
end if
if sMode = \"slet\" or sMode = \"forlad\" or sMode = \"fortsaet\" then
for i = 1 to optaltVarenr
nThisQty = int(request.form(\"txtItemQty\" & i))
antal(i) = nThisQty
next
session(\"CartItemNumArray\") = vareNr
session(\"CartItemQtyArray\") = antal
end if
%>
<html>
<br>
<font face=\"Verdana,Arial\" color=\"#008000\" size=\"-1\">
<% if sMode = \"forlad\" then %>
<form action=\"../submitorder.asp\" method=\"POST\">
<% else %>
<form action=\"shopcart.asp\" method=\"POST\">
<% end if %>
<%
if optaltVarenr = 0 then
response.write \"Der er ingen vare i din indkøbskurv.<br>\"
else
if sMode = \"forlad\" then
%>
<%
cSubTotal = 0 \'
nNumItems = 0 \'
for i = 1 to optaltVarenr \'
Set database = Server.CreateObject(\"ADODB.Recordset\") \'
sSQL = \"SELECT * FROM koeleskab WHERE Varenr = \'\" & _
vareNr(i) & \"\'\" \'
set database = con.execute(sSQL)\'
database.open sSQL \'
con, adopenstatic, _
adlockpessimistic, adcmdtext \'
%>
<tr bgcolor=\"#99ccff\">
<%
sTemp = \"<input type=\'Text\' name=\'txtItemQty\" & i & \"\' value=\'\" & _
antal(i) & \"\' size=\'3\'>\"
nNumItems = nNumItems + antal(i)
%>
<td align=\"center\">
<font face=\"Verdana,Arial\" color=\"#000000\" size=\"-1\">
<% = sTemp %></font></td>
<td align=\"center\">
<font face=\"Verdana,Arial\" color=\"#000000\" size=\"-1\">
<% = database(\"varenr\") %></font></td>
<td><font face=\"Verdana,Arial\" color=\"#000000\" size=\"-1\">
<% = database(\"varenavn\") %></font></td>
<%
cPrice = database(\"Pris\")
%>
<td align=\"center\">
<font face=\"Verdana,Arial\" color=\"#000000\" size=\"-1\">
<% = formatcurrency(cPrice) %></font></td>
<%
cExtension = antal(i) * cPrice
cSubTotal = cSubTotal + cExtension
%>
<td align=\"right\">
<font face=\"Verdana,Arial\" color=\"#000000\" size=\"-1\">
<% = formatcurrency(cExtension) %></font></td>
</tr>
<% next %>
<tr bgcolor=\"#c5c5c5\">
<td align=\"center\" colspan=\"4\">
<font face=\"Verdana,Arial\" size=\"-1\">Subtotal</font></td>
<td align=\"right\"><font face=\"Verdana,Arial\" size=\"-1\">
<% = formatcurrency(cSubTotal) %></font></td>
</tr>
</table>
<br><div align=\"center\">
<input type=\"Submit\" name=\"cmdSubmit\" value=\"Fortsæt indkøb\">
<input type=\"Submit\" name=\"cmdSubmit\" value=\"Slet ordre\">
<br><br>
<% if sMode = \"forlad\" then %>
<input type=\"Submit\" name=\"cmdSubmit\" value=\"Send ordre\">
<% else %>
<input type=\"Submit\" name=\"cmdSubmit\" value=\"Gå til kassen\">
<% end if %>
</div></form>
<% end if %>
</body>
</html>
