home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 January / PCWorld_2003-01_cd.bin / Software / Komercni / hopegroup / novinky.asp < prev    next >
Encoding:
Text File  |  2000-12-31  |  2.0 KB  |  65 lines
  1. <html>
  2.  
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
  5. <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
  6. <meta name="ProgId" content="FrontPage.Editor.Document">
  7. <title>Dovozce CD - R & CD - RW mΘdiφ, v₧dy nejni₧Üφ mo₧nΘ ceny !!!</title>
  8. </head>
  9.  
  10. <body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
  11.  
  12. <table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
  13.   <tr>
  14.     <td width="100%" align="center" valign="top">
  15.       <table border="0" width="80%" cellspacing="0" cellpadding="0">
  16.         <tr>
  17.           <td width="100%"><br>
  18.           </td>
  19.         </tr>
  20.         <tr>
  21.           <td width="100%" align="center"><br>
  22. <%
  23. email=Request.Form("email")
  24. if len(email)>0 then
  25.    on error resume next
  26.    dim mymail
  27.    set mymail=server.CreateObject("cdonts.newmail")
  28.    mymail.from=email
  29.    mymail.to="news@bestmedia.cz"
  30.    mymail.subject="Zasφlßnφ novinek"
  31.    mymail.send
  32.    if err.number<>0 then
  33.       Response.Write ("VßÜ po₧adavek nebyl odeslßn - zkuste znovu.")
  34.       err.clear
  35.    else
  36.       Response.Write ("VßÜ po₧adavek ")
  37.       Response.Write "z emailu: "&email&"<br>"
  38.       Response.Write ("byl odeslßn - d∞kujeme za VaÜi registraci.") 
  39.    end if%>
  40.    
  41.       <A HREF="<%=Request.ServerVariables("script_name")%>">Nßvrat zp∞t</A><%
  42.    else%>
  43.  
  44.    
  45.    <form action="<%=Request.ServerVariables("script_name")%>#Novinky" method=post id=form1 name=form1>
  46. <b><font face="Arial" size="2">NOVINKY E - MAILEM<br>
  47. V p°φpad∞, ₧e chcete abychom Vßm zasφlaly Novinky a aktußlnφ cenφky,
  48. vypl≥te e-mail a stiskn∞te OK:<br>
  49. <br>
  50.    </font></b><font color="#C0C0C0"><INPUT type="text" name=EMAIL size="20">
  51. <INPUT type="submit" value="OK" id=submit1 name=submit1 style="background-color: #C9C6DE; font-family: Arial; font-size: 10px; border-style: solid; border-color: #353C91">
  52.    </form>      
  53.       </font><%
  54. end if%>
  55.             <hr noshade color="#D9D9FF">
  56.           </td>
  57.         </tr>
  58.       </table>
  59.     </td>
  60.   </tr>
  61. </table>
  62.  
  63. </body>
  64.  
  65. </html>