home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 July & August / PCWorld_2002-07-08_cd.bin / Software / Komercni / sodatsw / deutsch / objedn.asp < prev    next >
Text File  |  1999-01-14  |  2KB  |  50 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.       <%
  3.       Sub Write(strWriteThis)
  4.       
  5.          response.write(strWriteThis & "<br>")
  6.       end sub
  7.  
  8.       %>
  9.       <%
  10.       Dim objMail
  11.       Dim test
  12.       Dim test1
  13.       Dim test2
  14.       Dim test3
  15.       Dim blnSuccess
  16.       blnSuccess = False
  17.  
  18.       test1 = request.form("NAZEV_FIRMY_NEED")
  19.       test2 = request.form("ADRESA_NEED")
  20.       test3 = request.form("OSOBA")
  21.          
  22.       Set objMail = Server.CreateObject("VBMail.Connector")
  23.       objMail.Sender = "www@box.cz"
  24.       objMail.Recipient = "www@box.cz"
  25.       objMail.SenderName = "www@box.cz"    
  26.       objMail.RecipientName =  "www@box.cz"
  27.       objMail.Subject = "Objednavka ze Serveru Deutsch"
  28.  
  29.       objMail.Body ="NAZEV FIRMY :" +request.form("NAZEV_FIRMY_NEED")+Chr(13)+Chr(10)+"ADRESA :        "+request.form("ADRESA_NEED")+Chr(13)+Chr(10)+"ICO :                "+request.form("ICO")+Chr(13)+Chr(10)+"DIC :                 "+request.form("DIC")+Chr(13)+Chr(10)+"OSOBA :          "+request.form("OSOBA")+Chr(13)+Chr(10)+"FUNKCE :         "+request.form("FUNKCE")+Chr(13)+Chr(10)+"TELEFON :       "+request.form("TELEFON")+Chr(13)+Chr(10)+"MOBIL :           "+request.form("MOBIL")+Chr(13)+Chr(10)+"EMAIL :           "+request.form("EMAIL")+Chr(13)+Chr(10)+"WWW :           "+request.form("WWW")+Chr(13)+Chr(10)+"KOD1 :            "+request.form("KOD1")+Chr(13)+Chr(10)+"POCETKUSU1 :"+request.form("POCETKUSU1")+Chr(13)+Chr(10)+"CENA1 :           "+request.form("CENA1")+Chr(13)+Chr(10)+"KOD2 :            "+request.form("KOD2")+Chr(13)+Chr(10)+"POCETKUSU2 :"+request.form("POCETKUSU2")+Chr(13)+Chr(10)+"CENA2 :           "+request.form("CENA2")+Chr(13)+Chr(10)+"KOD3 :            "+request.form("KOD3")+Chr(13)+Chr(10)+"POCETKUSU3 :"+request.form("POCETKUSU3")+Chr(13)+Chr(10)+"CENA3 :           "+request.form("CENA3")+Chr(13)+Chr(10)
  30.       objMail.Server = "212.47.11.197"      
  31.       if test1 = "" OR test2 = "" OR test3 = "" Then %>
  32.     <% Response.ContentType = "text/HTML" %>
  33.  
  34.         <%Response.Redirect "http://www.sodatsw.cz/deutsch/error.htm" %>
  35.  
  36. <%Else
  37.       blnSuccess = objMail.Send%>
  38. <%End If
  39.     If blnSuccess Then%>
  40.     <% Response.ContentType = "text/HTML" %>
  41.  
  42.         <%Response.Redirect "http://www.sodatsw.cz/deutsch/ok.htm" %>
  43.  
  44.  
  45. <%Else%>
  46.  
  47. <%End If%>
  48.  
  49.  
  50.