<%@ Language=VBScript %> Zpráva o úspěšném odeslání <% text = Request.Form("Jmeno") & vbCrLf text = text & Request.Form("Firma") & vbCrLf text = text & Request.Form("Ulice") & vbCrLf text = text & Request.Form("PSC") & " " & Request.Form("Mesto") & vbCrLf & vbCrLf text = text & "Telefon/Fax: " & Request.Form("Telefon") & " / " & Request.Form("Fax") & vbCrLf text = text & "E-mail : " & Request.Form("Email") & vbCrLf & vbCrLf text = text & "IČO/DIČ : " & Request.Form("ICO") & " / " & Request.Form("DIC") & vbCrLf & vbCrLf text = text & "Klientovo číslo objednávky : " & Request.Form("Cislo_obj") & vbCrLf text = text & Request.Form("Text") text = text & vbCrLf & vbCrLf & Request.Form("Poznamka")& vbCrLf objednatel = Request.Form("Email") Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "robot@sagit.cz" objMail.To = "sagit@sagit.cz" objMail.Subject = "Objednávka z WWW" 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 publikací z nakladatelstvi Sagit" objMail.Body = text objMail.Send Set objMail = Nothing %>

Zpráva
 
Děkujeme Vám !

Vaše objednávka byla úspěšně odeslána na náš server. Obratem Vám budou zaslány objednané tituly, nebo platební doklady k úhradě předplatného.
Kopie objednávky byla odeslána na adresu <%=objednatel%>
Věříme, že budete s našimi tituly spokojeni a těšíme se na Vaše další objednávky.

Sagit

Nákupní systém SIN SHOP
..