home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / Komercni / Sodatsw / deutsch / trialoa.asp < prev    next >
Text File  |  1999-01-14  |  3KB  |  53 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.       <%
  3.       Sub Write(strWriteThis)
  4.       
  5.          response.write(strWriteThis & "<br>")
  6.       end sub
  7.  
  8.       %>
  9.  
  10.       <%
  11.       Dim objMail
  12.       Dim test
  13.       Dim test1
  14.       Dim test2
  15.       Dim test3
  16.       Dim blnSuccess
  17.       blnSuccess = False
  18.       Response.Buffer = True
  19.       test1 = request.form("NAZEV_FIRMY_NEED")
  20.       test2 = request.form("ADRESA_NEED")
  21.       test3 = request.form("OSOBA")
  22.          
  23.       Set objMail = Server.CreateObject("VBMail.Connector")
  24.       objMail.Sender = "www@box.cz"
  25.       objMail.Recipient = "www@box.cz"
  26.       objMail.SenderName = "www@box.cz"    
  27.       objMail.RecipientName =  "www@box.cz"
  28.       objMail.Subject = "Trial OA ze Serveru Deutsch"
  29.  
  30.       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)
  31.       objMail.Server = "212.47.11.197"      
  32.       if test1 = "" OR test2 = "" OR test3 = "" Then %>
  33.     <%Response.Redirect "http://www.sodatsw.cz/deutsch/errortri.htm"%>
  34. <%Else
  35.       blnSuccess = objMail.Send%>
  36. <%End If
  37.     If blnSuccess Then%>
  38.     <% Response.ContentType = "application/x-exe" %> 
  39.     <%Response.Redirect "http://www.sodatsw.cz/deutsch/oasodat.exe"%>
  40.     <% Response.ContentType = "text/HTML" %>
  41.  
  42.         <%Response.Redirect "http://www.sodatsw.cz/"%>
  43.  
  44. <%Else%>
  45.         <% Response.ContentType = "text/HTML" %>
  46.  
  47.     <%Response.Redirect "http://www.sodatsw.cz/deutsch/errortri.htm"%>
  48.     
  49. <%End If%>
  50.     
  51.  
  52.  
  53.