Hej
Jeg har nu gennem længere tid opbygget en lille netbutik, men nu behøver jeg
hjælp til afsendelse af betillingen. Det går meget fint med navn, adresse
etc. Men at få afdent selve varerlinierne der er sku lidt svært. Følgende
script giver bare det resultat at den skriver en del af scriptet i en en
tekstbox, hvor det jeg ønsker er, at den skal skrive resultatet af script
linierne. Hvordan gør jeg det ?
Med venlig hilsen
Klaus
<%
Set XMLDoc = Server.CreateObject ("Microsoft.XMLDOM")
XMLDOC.loadXML CStr(Session("BagItems"))
Set BagItems = XMLDoc.documentElement
Sub Out(strOut)
Response.Write strOut
End Sub
%>
<html>
<FORM action="
http://scripts.wannafind.dk/form2mail.asp" method="post"
id=form1 name=form1>
</table>
<br>
<b>Ovenstående skal leveres til:</b>
<table>
Forsendelsemåde:
<select Name="Forsendelse">
<option Value="Sendes">Sendes
<option Value="Afhentes">Afhentes
</select>
<br><br>
<tr><td>Navn:<td><input Type="Text" Size="40" Name="Navn">
<tr><td>Adresse:<td><input Type="Text" Size="40" Name="Adresse1">
<tr><td>Adresse:<td><input Type="Text" Size="40" Name="Adresse2">
<tr><td>Postnr:<td><input Type="Text" Size="7" Name="Postnr">By:<input
Type="Text" Size="28" Name="By">
<tr><td>E-mail:<td><input Type="Text" Size="40" Name="E-mail">
<tr><td>Telefon:<td><input Type="Text" Size="10" Name="Telefon">
</table>
<br>
Kommentar:<br>
<textarea Name="Kommentar" cols="40" Rows="5" Wrap="Virtual">
</textarea>
<p><input Type="Submit" Value="Send order" id=Submit2 name=Submit2> <input
Type="Reset" Value="Nulstil felter" id=Reset1 name=Reset1>
<INPUT type="hidden" name="recipient" value="ke@brygladen.dk">
<INPUT type="hidden" name="fromaddress" value="ke@brygladen.dk">
<INPUT type="hidden" name="subject" value="Subject">
<INPUT type="hidden" name="redirect"
value="
http://www.brygladen.dk/aarhus.htm">
<INPUT type="hidden" name="orderby"
value="navn,Adresse1,Adresse2,Postnr,By,E-mail,Telefon,Forsendelse,Kommentar
,Kommentar1">
<INPUT type="submit" value="Send" id=submit1 name=submit1>
<%
Sub PrintBag (BagItems)
'Out "<FORM METHOD="" ACTION="""
Out Request.ServerVariables("SCRIPT_NAME") & """>"
Out "<Table><TR><TH Bgcolor=""9999ff"">Antal</TH><TH Colspan=2
Bgcolor=""9999ff"">"
Out "Varetekst</TH><TH Bgcolor=""9999ff"" align=""right"">a pris</TH><TH
Bgcolor=""9999ff"" Align=""Center"">Ialt DKK</TH>"
Out "</TR>" & vbCrLf
For Each item in BagItems.childNodes
'Out ""&item.GetAttribute("Qty")
Out "<TR><TD><input type=""TEXT"" NAME=""Qty"
Out ""&item.getAttribute("Varenummer")
Out """ VALUE=""" & item.text & """ SIZE=""3"">"
Out "<TD>" & item.getAttribute("Varetekst") & "<TD></TD>"
nPris = item.getAttribute("Pris")
nSubTotal = item.text * nPris
nTotal = nTotal + nSubTotal
Out "<TD align=""Right"">" & nPris & ",00" & "</TD>"
Out "<TD align=""Right""><B>" & nSubTotal & ",00" & "</B></TD>"
Out "</TR>" & vbCRLF
Next
Out "<TR><TD COLSPAN=5></TD></TR>"
Out "<TR><TD COLSPAN=3></TD><TD><B>Total:</B></TD>"
Out "<TD Align=""Right""><B>" & FormatCurrency(nTotal) & "</B></TD></TR>" &
vbCrLf
End Sub
%>
<textarea Name="Kommentar1" cols="40" Rows="5" Wrap="Virtual">
<%
Call PrintBag(BagItems)
%>
</textarea>
</table>
</form>
</body>
</html>
Klaus Egebjerg