home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Komercni / OptimAccess / support / ud0001v1.asp < prev    next >
Text File  |  2000-01-14  |  3KB  |  61 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 test4
  17.       Dim test5
  18.       Dim test6
  19.       Dim test7
  20.       Dim blnSuccess
  21.       blnSuccess = False
  22.       Response.Buffer = True
  23.       test1 = request.form("CISLO_NEED")
  24.       test2 = request.form("NAZEV_FIRMY_NEED")
  25.       test3 = request.form("ADRESA_NEED")
  26.       test4 = request.form("OSOBA_NEED")
  27.       test5 = request.form("FUNKCE_NEED")
  28.       test6 = request.form("TELEFON_NEED")
  29.       test7 = request.form("EMAIL_NEED")
  30.          
  31.       Set objMail = Server.CreateObject("VBMail.Connector")
  32.       objMail.Sender = "www@box.cz"
  33.       objMail.Recipient = "www@box.cz"
  34.       objMail.SenderName = "www@box.cz"    
  35.       objMail.RecipientName =  "www@box.cz"
  36.       objMail.Subject = "Registrace Update OptimAccess Remote Control ver. 1.0"
  37.  
  38.       objMail.Body ="LICENCNI CISLO :" +request.form("CISLO_NEED")+Chr(13)+Chr(10)+"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_NEED")+Chr(13)+Chr(10)+"FUNKCE :         "+request.form("FUNKCE_NEED")+Chr(13)+Chr(10)+"TELEFON :       "+request.form("TELEFON_NEED")+Chr(13)+Chr(10)+"MOBIL :           "+request.form("MOBIL")+Chr(13)+Chr(10)+"EMAIL :           "+request.form("EMAIL_NEED")+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)
  39.       objMail.Server = "212.47.11.197"      
  40.       if test1 = "" OR test2 = "" OR test3 = "" OR test4 = "" OR test5 = "" OR test6 = "" OR test7 = "" Then %>
  41.     <%Response.Redirect "http://www.sodatsw.cz/support/errorud1.htm"%>
  42. <%Else
  43.       blnSuccess = objMail.Send%>
  44. <%End If
  45.     If blnSuccess Then%>
  46.     <% Response.ContentType = "application/x-exe" %> 
  47.     <%Response.Redirect "http://www.sodatsw.cz/support/ud0001v1.htm"%>
  48.     <% Response.ContentType = "text/HTML" %>
  49.  
  50.         <%Response.Redirect "http://www.sodatsw.cz/"%>
  51.  
  52. <%Else%>
  53.         <% Response.ContentType = "text/HTML" %>
  54.  
  55.     <%Response.Redirect "http://www.sodatsw.cz/errortri.htm"%>
  56.     
  57. <%End If%>
  58.     
  59.  
  60.  
  61.