home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 January / Chip_2000-01_cd.bin / internet / Sagit / shop / okeb.asp < prev    next >
Encoding:
Text File  |  1999-10-20  |  1.2 KB  |  24 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. 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
  21. 'Response.write presmerovani
  22. Response.Redirect presmerovani
  23. %>
  24.