Курсовая работа: Рассылка

Tema2 = Request. Form ("chk2")

Tema3 = Request. Form ("chk3")

Tema4 = Request. Form ("chk4")

if Tema1 <> "" Then

Response. Write Tema1 & "<br>" & vbCrLf

end if

if Tema2 <> "" Then

Response. Write Tema2 & "<br>" & vbCrLf

end if

if Tema3 <> "" Then

Response. Write Tema3 & "<br>" & vbCrLf

end if

if Tema4 <> "" Then

Response. Write Tema4 & "<br>" & vbCrLf

end if

%>

<br>

<% Dim Result

Response. Write "</b>На почтовый ящик: " & vbCrLf

Response. Write "<b>"

Result = Request. Form ("Usermail")

Response. Write Result & "<br>" & vbCrLf

Dim DBConn,RS,ConnStr,SQL

Set DBConn = Server. CreateObject ("ADODB. Connection")

Set RS = Server. CreateObject ("ADODB. RecordSet")

ConnStr = "Provider=Microsoft. Jet. OLEDB.4.0; Data Source=" & Server. MapPath ("data/Рассылка. mdb")

DBConn. Open ConnStr

RS. ActiveConnection = DBConn

Usermail = Trim (Request. Form ("Usermail"))