home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 March / Chip_2001-03_cd1.bin / bonus / shop / okeb.asp < prev    next >
Text File  |  1999-11-20  |  1KB  |  31 lines
  1. <%@ Language=VBScript %>
  2. <% 
  3. text = Request.Form("Jmeno") & vbCrLf
  4. text = text & Request.Form("Firma") & vbCrLf
  5. text = text & Request.Form("Ulice") & vbCrLf
  6. text = text & Request.Form("PSC") & "  " & Request.Form("Mesto") & vbCrLf & vbCrLf 
  7. text = text & "Telefon/Fax:  " & Request.Form("Telefon") & " / " & Request.Form("Fax") & vbCrLf
  8. text = text & "E-mail :  " & Request.Form("Email") & vbCrLf & vbCrLf
  9. text = text & "I╚O/DI╚ :  " & Request.Form("ICO") & " / " & Request.Form("DIC") & vbCrLf & vbCrLf
  10. text = text & "Klientovo Φφslo objednßvky :  " & Request.Form("Cislo_obj") & vbCrLf
  11. text = text & Request.Form("Text")
  12. text = text & vbCrLf & vbCrLf & Request.Form("Poznamka")& vbCrLf
  13. objednatel = Request.Form("Email")
  14. text = Replace(text, " ", "+")
  15. text = Replace(text, vbCrLf, "º")
  16. text = Replace(text, vbtab, "^")
  17. Session("objednavka") = text
  18. cena = Request.QueryString("cena")
  19. user = Request.QueryString("vs")
  20. Set objMail = Server.CreateObject("CDONTS.NewMail")
  21.     objMail.From = "robot@sagit.cz"
  22.     objMail.To = "sagit@sagit.cz"
  23.     objMail.Subject = "Objednßvka z WWW - EB - zprßva p°ed zaplacenφm"
  24.     objMail.Body = text
  25.     objMail.Send
  26. Set objMail = Nothing
  27. presmerovani = "https://klient1.ebanka.cz/ebts/owa/shop.payment?shopname=SAGIT&creditaccount=104508001&creditbank=2400&amount=" & cena & "&varsymbol=" & user & "&URL=http://www.sagit.cz/shop/zpravaeb.asp&otherparams=objednatel=" & objednatel
  28. 'Response.write presmerovani
  29. Response.Redirect presmerovani
  30. %>
  31.