<%@ Language=VBScript %> Zpráva o úspěšném odeslání
Zpráva
<% completed = Request.QueryString("completed") If completed = "Y" Then 'text = Request.QueryString("Text") text = Session("objednavka") objednatel = Request.QueryString("objednatel") text = Replace(text, "+", " ") text = Replace(text, "§", vbCrLf) text = Replace(text, "^", vbtab) Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "robot@sagit.cz" objMail.To = "sagit@sagit.cz" objMail.Subject = "Objednávka z WWW - EB" objMail.Body = text objMail.Send Set objMail = Nothing text = "Kopie objednávky, která byla odeslána na adresu:" & vbCrLf & "Nakladatelství Sagit" & vbCrLf & "Horní 1" & vbCrLf & "700 30 Ostrava 3" & vbCrLf & "tel.:069/353062, fax:069/357758" & vbCrLf & vbCrLf & "Text objednávky:" & vbCrLf & vbCrLf & text Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "robot@sagit.cz" objMail.To = objednatel objMail.Subject = "Objednavka publikaci nakladatelstvi Sagit" objMail.Body = text objMail.Send Set objMail = Nothing %>
 
Děkujeme Vám !

Vaše objednávka byla úspěšně odeslána na náš server. Příkaz k úhradě platby prostřednictvím Expandia Banky byl úspěšně odeslán. Obratem Vám budou zaslány publikace které jsou skladem. Ostatní publikace Vám budou zasílány ihned po vydání.
Kopie objednávky byla odeslána na adresu <%=objednatel%>
Věříme, že budete s našimi publikacemi spokojeni a budete se na náš server rádi vracet.

Sagit
<% Else %>
 
Chyba !

Vaše objednávka nebyla odeslána. Provádění platebního příkazu prostřednictvím Expandia Banky bylo přerušeno.
Opakujte prosím objednávku publikací znovu.

Sagit
<% End If %>