Hej
Hjælp hvad går der gal med denne tabel ?
Sub PrintBag(BagItems)
Out "<FORM METHOD=""POST"" ACTION="""
Out Request.ServerVariables("SCRIPT_NAME") & """>"
Out "<TABLE><TR><TH>Units</TH><TH COLSPAN=2>"
Out "produkt</TH><TH>Pris</TH><TH>Pris2</TH>"
Out "</TR>" & vbCrLf
For Each item In BagItems.childNodes
Out "<TR><TD><input type=""TEXT"" name=""Qty"
Out item.attributes.getNamedItem("Varenummer")
Out """ VALUE=""" & item.text & """ SIZE=""3"">"
Out "<TD>" & item.attributes.getNamedItem("Varetekst")
Out "</TD><TD>" & item.arrtibutes.getNamedItem("Varenummer") & "</TD>"
nPris = item.attributes.getNamedItem("Pris")
nSubTotal = item.text * nPris
nTotal = nTotal + nSubTotal
Out "<TD>" & FormatCurrency(nPris) & "</TD>"
Out "<TD><B>" & FormatCurrency (nSubTotal) & "</B></TD>"
Out "</TR>" & vbCRLF
Next
Out "<TR><TD COLSPAN=5><HR></TD></TR>"
Out "<TR><TD COLSPAN=3></TD><TD><B>Total:</B></TD>"
Out "<TD><B>" & FormatCurrency(nTotal) & "</B></TD></TR>" & vbCrLf
Out "<TR><TD COLSPAN=5 ALIGN=""RIGHT"">"
Out "<INPUT TYPE=SUBMIT NAME=""DO"" VALUE=""Shop for more""> "
Out "<INPUT TYPE=SUBMIT NAME=""DO"" VALUE=""Recalculate""> "
Out "<INPUT TYPE=SUBMIT NAME=""DO"" VALUE=""Check out"">"
Out "</TD></TR></TABLE></FORM>"
End Sub
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%Call PrintBag(BagItems)%>
</BODY>
</HTML>
Jeg får følgende fejlkode:
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'
Typerne passer ikke sammen: 'Out'
/Brygladen/bag.asp, linje 64
Med venlig hilsen
Klaus Egebjerg
klausegebjerg@get2net.dk