<% wein1=request.form("wein1") l1=request.form("l1") menge1=request.form("menge1") einzel1=request.form("einzel1") summe1=request.form("summe1") wein2=request.form("wein2") l2=request.form("l2") menge2=request.form("menge2") einzel2=request.form("einzel2") summe2=request.form("summe2") wein3=request.form("wein3") l3=request.form("l3") menge3=request.form("menge3") einzel3=request.form("einzel3") summe3=request.form("summe3") wein4=request.form("wein4") l4=request.form("l4") menge4=request.form("menge4") einzel4=request.form("einzel4") summe4=request.form("summe4") wein5=request.form("wein5") l5=request.form("l5") menge5=request.form("menge5") einzel5=request.form("einzel5") summe5=request.form("summe5") wein6=request.form("wein6") l6=request.form("l6") menge6=request.form("menge6") einzel6=request.form("einzel6") summe6=request.form("summe6") wein7=request.form("wein7") l7=request.form("l7") menge7=request.form("menge7") einzel7=request.form("einzel7") summe7=request.form("summe7") wein8=request.form("wein8") l8=request.form("l8") menge8=request.form("menge8") einzel8=request.form("einzel8") summe8=request.form("summe8") wein9=request.form("wein9") l9=request.form("l9") menge9=request.form("menge9") einzel9=request.form("einzel9") summe9=request.form("summe9") wein10=request.form("wein10") l10=request.form("l10") menge10=request.form("menge10") einzel10=request.form("einzel10") summe10=request.form("summe10") gesamt=request.form("gesamt") bemerkung=request.form("bemerkung") name=request.form("name") adresse=request.form("adresse") tel=request.form("tel") mail=request.form("mail") senden=request.form("Senden") error=false errormsg="" if senden="SEND" then IF len(name)=0 THEN error=true errormsg=errormsg+"Please, let us know your name!
" end if end if IF (senden="SEND") AND not error THEN Set a=CreateObject("Scripting.FilesystemObject") Set txt=a.CreateTextFile("c:\fwdmail\in\mail.in") txt.writeline("From: postmaster@wvnet.at") txt.writeline("To: heidemarie.bauer@wvnet.at") txt.writeline("") txt.writeline("From: E-Mail Bestellung") txt.writeline("Organization: WVNET GmbH") txt.writeline("X-Mailer: Mozilla 2.0 (Win95; I)") txt.writeline("MIME-Version: 1.0") txt.writeline("To: heidemarie.bauer@wvnet.at") txt.writeline("Subject: Bestellung Weine") txt.writeline("Content-Type: text/plain;") txt.writeline("Content-Transfer-Encoding: iso-8859-1") txt.writeline("") txt.writeline("Bestellung Weine - Englische Seiten") txt.writeline("---------------------------------------------------") txt.writeline(+menge1+ " " +wein1+ " " +l1+ " ATS " +einzel1+ " ATS " +summe1) txt.writeline(+menge2+ " " +wein2+ " " +l2+ " ATS " +einzel2+ " ATS " +summe2) txt.writeline(+menge3+ " " +wein3+ " " +l3+ " ATS " +einzel3+ " ATS " +summe3) txt.writeline(+menge4+ " " +wein4+ " " +l4+ " ATS " +einzel4+ " ATS " +summe4) txt.writeline(+menge5+ " " +wein5+ " " +l5+ " ATS " +einzel5+ " ATS " +summe5) txt.writeline(+menge6+ " " +wein6+ " " +l6+ " ATS " +einzel6+ " ATS " +summe6) txt.writeline(+menge7+ " " +wein7+ " " +l7+ " ATS " +einzel7+ " ATS " +summe7) txt.writeline(+menge8+ " " +wein8+ " " +l8+ " ATS " +einzel8+ " ATS " +summe8) txt.writeline(+menge9+ " " +wein9+ " " +l9+ " ATS " +einzel9+ " ATS " +summe9) txt.writeline(+menge10+ " " +wein10+ " " +l10+ " ATS " +einzel10+ " ATS " +summe10) txt.writeline("************Gesamtsumme: ATS " +gesamt + "************") txt.writeline("---------------------------------------------------") txt.writeline("Anfrage: "+bemerkung) txt.writeline("---------------------------------------------------") txt.writeline("Name: "+name) txt.writeline("Adresse: "+adresse) txt.writeline("E-Mail: "+mail) txt.writeline("Telefonnummer: "+tel) txt.writeline("") txt.writeline("---------------------------------------------------") txt.writeline("Ende des Eintrages - (c) 2001 by WVNET") txt.writeline("") txt.close end if %> Winery Leopold
<% IF (senden="SEND" AND error) OR (senden<>"SEND") THEN %>
For your convenience in ordering Leopold wines, we are providing this electronic form. Please fill in this form! To send your order, click on the SEND button below!
<%=errormsg%>
Selected wine Litre Quantity (bottles) Price p. unit
(ATS)		 Total
(ATS)

Total amount:

Comment:
Name
Address
Phone
E-Mail
<%else%>
Your order
Quantity Selected wine

Litre

Price p. unit
(ATS)

 Total
(ATS)
<% =menge1 %><%=wein1%><%=l1%><%=einzel1%><%=summe1%>
<% =menge2 %><%=wein2%><%=l2%><%=einzel2%><%=summe2%>
<% =menge3 %><%=wein3%><%=l3%><%=einzel3%><%=summe3%>
<% =menge4 %><%=wein4%><%=l4%><%=einzel4%><%=summe4%>
<% =menge5 %><%=wein5%><%=l5%><%=einzel5%><%=summe5%>
<% =menge6 %><%=wein6%><%=l6%><%=einzel6%><%=summe6%>
<% =menge7 %><%=wein7%><%=l7%><%=einzel7%><%=summe7%>
<% =menge8 %><%=wein8%><%=l8%><%=einzel8%><%=summe8%>
<% =menge9 %><%=wein9%><%=l9%><%=einzel9%><%=summe9%>
<% =menge10 %><%=wein10%><%=l10%><%=einzel10%><%=summe10%>
Total amount:  <% =gesamt %>

Your adress:
<% =name %>
<% =adresse %>

Yours
Familiy Leopold

<%end if%>