Курсовая работа: Рассылка
Usermail = REPLACE (Usermail, "<", "")
Usermail = REPLACE (Usermail, "'", "")
Usermail = REPLACE (Usermail, ">", "")
rs. locktype = 2
rs. open "select * from подписчики"
rs. addnew
rs ("Usermail") = Usermail
rs ("Tema1") = Tema1
rs ("Tema2") = Tema2
rs ("Tema3") = Tema3
rs ("Tema4") = Tema4
rs. update
rs. close
%>
<p>Спасибо за регистрацию. <br>
Ваши данные успешно внесены в список пользователей</p>
<a href="ras. asp">На первую страницу</a>
</form>
</body>
</html>
Файл ras_B
<html>
<head>
<title>Курсовая работа</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<script LANGUAGE="JavaScript">
function checkValid () {
var p = document. form;