/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Bestilling
Fra : Klaus Egebjerg


Dato : 04-11-01 17:31

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




 
 
Anders Holbøll (05-11-2001)
Kommentar
Fra : Anders Holbøll


Dato : 05-11-01 20:18

Klaus Egebjerg wrote:
>
> 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 ?
>
> <textarea Name="Kommentar1" cols="40" Rows="5" Wrap="Virtual">
> <%
> Call PrintBag(BagItems)
> %>
> </textarea>

Jeg forstår ikke helt. Hvis du vil have skrivet teksten uden for et
textarea, hvad så med at fjerne textarea-tagsne unden om kaldet til
PrintBag? og hvis du vil have skrivet teksten i et textarea, hvad så med
at sørge for at PrintBag ikke udskriver html (men en tekst).

--
Anders

e-SKape (25-01-2002)
Kommentar
Fra : e-SKape


Dato : 25-01-02 16:30

> <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">


Har nok ikke noget med dit problem at gøre, men mangler der ikker en hel del
</TR> og </TD> ???

//e-SKape



Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408852
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste