home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 January / PCWorld_2003-01_cd.bin / Software / Komercni / hopegroup / velkmail2.asp < prev   
Encoding:
Text File  |  2002-11-20  |  3.4 KB  |  93 lines
  1. <%
  2. email=Request.Form("email")
  3. firma=Request.Form("firma")
  4. sidlo=Request.Form("sidlo")
  5. dodani=Request.Form("dodani")
  6. ico=Request.Form("ico")
  7. dic=Request.Form("dic")
  8. tel=Request.Form("tel")
  9. fax=Request.Form("fax")
  10. mobil=Request.Form("mobil")
  11. kontakt=Request.Form("kontakt")
  12. vzkaz=Request.Form("vzkaz")
  13. if len(email)>0 then
  14.    on error resume next
  15.    dim mymail
  16.    set mymail=server.CreateObject("cdonts.newmail")
  17.    mymail.from=email
  18.    mymail.to="velkoobchod@bestmedia.cz"
  19.    mymail.subject="Velkoobchodnφk"
  20.    mymail.body="Firma: "+firma+"; Sφdlo: "+sidlo+"; Ddodacφ adresa: "+dodani+"; I╚O: "+ico+"; DI╚: "+dic+"; Telefon: "+tel+"; Fax: "+fax+"; Mobil: "+mobil+"; E-mail: "+email+"; Kontaktnφ osoba: "+kontakt+"; Vzkaz: "+vzkaz
  21.    mymail.send
  22.    if err.number<>0 then
  23.       Response.Write ("Neodeslßno")
  24.       err.clear
  25.    else
  26.       Response.Write ("Odeslßno")
  27.    end if%>
  28.    
  29.    <br>
  30. <A HREF="<%=Request.ServerVariables("script_name")%>"><font size="3" face="Arial, Helvetica, sans-serif">Návrat 
  31. zp∞t</font></A> 
  32. <%
  33.    else%>
  34.  
  35.    <form action="<%=Request.ServerVariables("script_name")%>#priklad" method=post id=form1 name=form1>
  36.   <p><font size="3" face="Arial, Helvetica, sans-serif"><strong>Vypln∞nφm registraΦnφho 
  37.     formulß°e dealera zφskßte tyto v²hody:<br>
  38.     </strong></font><font size="2" face="Arial, Helvetica, sans-serif"><br>
  39.     <b>- akΦní nabídky<br>
  40.     - pravidelné zasílání ceníku<br>
  41.     - dealerské kategorie cen (dle odb∞ru za m∞síc)</b></font> </p>
  42.   <p><font face="Arial" size="2"><b>Název firmy:<br>
  43.     </b></font> 
  44.     <input name=FIRMA type="text" id="FIRMA" size="50">
  45.     <br>
  46.     <font face="Arial" size="2"><b>Sídlo firmy:<br>
  47.     </b></font> 
  48.     <input name="SIDLO" type="text" id="SIDLO" size="50">
  49.     <br>
  50.     <font face="Arial" size="2"><b>Dodací adresa </b><font size="1">(vypl≥ujte 
  51.     pouze pokud není shodná se sídlem firmy)</font><b>:<br>
  52.     </b></font> 
  53.     <input name="DODANI" type="text" id="DODANI" size="50">
  54.     <br>
  55.     <b><font size="2" face="Arial"><b>I╚O:<br>
  56.     </b></font> 
  57.     <INPUT name=ICO type="text" id="ICO" size="30">
  58.     <font size="2" face="Arial"><br>
  59.     <b>DI╚:<br>
  60.     </b></font> 
  61.     <INPUT name=DIC type="text" id="DIC" size="30">
  62.     <font size="2" face="Arial"> </font> <font size="2" face="Arial"><br>
  63.     </font></b> <font face="Arial" size="2"><b>Telefon:<br>
  64.     </b></font> 
  65.     <INPUT name=TEL type="text" id="TEL" size="30">
  66.     <br>
  67.     <font face="Arial" size="2"><b>Fax:<br>
  68.     </b></font> 
  69.     <INPUT name=FAX type="text" id="FAX" size="30">
  70.     <br>
  71.     <font face="Arial" size="2"><b>Mobil:<br>
  72.     </b></font> 
  73.     <INPUT name=MOBIL type="text" id="MOBIL" size="30">
  74.     <br>
  75.     <font face="Arial" size="2"><b>Email:<br>
  76.     </b></font> 
  77.     <INPUT name=EMAIL type="text" id="EMAIL">
  78.     <br>
  79.     <font face="Arial" size="2"><b>Kontaktní osoba:<br>
  80.     </b></font> 
  81.     <INPUT name=KONTAKT type="text" id="KONTAKT" size="30">
  82.     <br>
  83.     <font face="Arial" size="2"><b>Vzkaz pro firmu HOPE Group s.r.o.: <br>
  84.     </b></font> 
  85.     <input name="VZKAZ" type="text" id="VZKAZ" size="50">
  86.     <br>
  87.     <font face="Arial" size="2"></font><br>
  88.     <br>
  89.     <INPUT type="submit" value="Odeslat" id=submit1 name=submit1>
  90.     <INPUT type="reset" value="Vymazat formulß°" id=reset1 name=reset1>
  91.   </p>
  92.   </form><%
  93. end if%>