home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar 2003 April
/
Gamestar_50_2003-04_cd1.bin
/
Reklama
/
novinky.asp
< prev
next >
Wrap
Text File
|
2000-12-31
|
2KB
|
65 lines
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Dovozce CD - R & CD - RW mΘdiφ, v₧dy nejni₧Üφ mo₧nΘ ceny !!!</title>
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center" valign="top">
<table border="0" width="80%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><br>
</td>
</tr>
<tr>
<td width="100%" align="center"><br>
<%
email=Request.Form("email")
if len(email)>0 then
on error resume next
dim mymail
set mymail=server.CreateObject("cdonts.newmail")
mymail.from=email
mymail.to="news@bestmedia.cz"
mymail.subject="Zasφlßnφ novinek"
mymail.send
if err.number<>0 then
Response.Write ("VßÜ po₧adavek nebyl odeslßn - zkuste znovu.")
err.clear
else
Response.Write ("VßÜ po₧adavek ")
Response.Write "z emailu: "&email&"<br>"
Response.Write ("byl odeslßn - d∞kujeme za VaÜi registraci.")
end if%>
<A HREF="<%=Request.ServerVariables("script_name")%>">Nßvrat zp∞t</A><%
else%>
<form action="<%=Request.ServerVariables("script_name")%>#Novinky" method=post id=form1 name=form1>
<b><font face="Arial" size="2">NOVINKY E - MAILEM<br>
V p°φpad∞, ₧e chcete abychom Vßm zasφlaly Novinky a aktußlnφ cenφky,
vypl≥te e-mail a stiskn∞te OK:<br>
<br>
</font></b><font color="#C0C0C0"><INPUT type="text" name=EMAIL size="20">
<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">
</form>
</font><%
end if%>
<hr noshade color="#D9D9FF">
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>