Create your own Newsletter in ASP 3.0

Newsletters are part and parcel of a website nowadays. When a website visitor enters his email address in the newsletter input box, it is saved in the database. As more and more visitors subscribe, the mailing list grows. You can then send all the subscribers of your newsletter, email, whenever you like. Newsletters are an effective way to keep your website users informed of latest news and information related to your website or topic.

In this tutorial, I will guide you through the steps of creating a simple news letter using classic ASP.

We will divide our work into three steps :

• Step 1 : Create a simple HTML Form where users can insert their email addresses and an ASP page which will receive the Form email address from the HTML page and insert it into the database.
• Step 2 : Create a simple Access database to store user's email addresses.
• Step 3 : A simple admin ASP page from where you can send email messages to all the users whose email addresses are present in the database.
• Step 4 : An ASP page from where the users can delete their email addresses from the database if they later choose to.

Alright then lets now move to the creation of our News Letter messaging system.

Simple HTML Form
Create a new HTML page and name it 'mail.htm' and then add the following code in the 'body' section of that page :-

News Letter :
<form action="mail_ac.asp" method="post">
<input type="text" name="email" size="11">
<input type="submit" value="submit">
</form>

Above HTML code will produce a simple input box where users can enter their email addresses. After entering their email address and pressing the 'submit' button, the users email address will be ported to our 'mail_ac.asp' page where the email address will be inserted into the database. You can edit it to suite the design of your site.

Form Action Page
Open notepad or any text editor for that matter and add the following lines of code into it and then save it as 'mail_ac.asp' in the same directory where you have put the above 'mail.htm' page.

	<%
' Declaring variables
Dim email, con, data_source, sql_insert, sql_check, rs
email = Request.Form("email")
' Check that email address is empty or not. If email address 
' is not empty then continue, otherwise redirect the user back to
' the main page
If Len(email) Then
' Note you can add your database's DSN here if you want
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
	
	Server.MapPath("mail.mdb")
' Our SQL statements
sql_check = "select email from users where email = '" & email & "'"
sql_insert = "insert into users( email ) values ('" & email & "')"
' Lets first check to see if the email address is alread present in
' the database. Create the instance of Connection Object and then
' open the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
Set rs = con.Execute (sql_check, , 1)
' If email address is not present then add it to the database
If rs.EOF Then
con.Execute sql_insert
' Displaying the result of successful entry to the user
Response.Write "Thank you. Your email address <b>" & email & _
"</b> was successfully entered into the database"
' But if email address is already present then display it to 
' the user
Else
Response.Write "Your email address " & email & _
" is already present in the database. Thank you."
End If
' Done. Disconnecting and setting Connection Object to Nothing
con.Close
Set con = Nothing
' And if the email address submitted was empty Then
Else
Response.Redirect "mail.htm"
End If
	%>

This 'mail_ac.asp' page will first check to see if the user has just pressed the 'submit' button and has not entered the email address, if it is so then the user will be redirected back to the 'mail.htm' page. If the user entered it's email address then first check database to see if it's already present or not. If email address is not found in the database then add it otherwise tell the user that the email address is already present and exit.

Simple Access Database
Now we will create a simple Access database with just one table 'users' containing two fields, 'id' and 'email' respectively. If you are not comfortable with creating simplest of Access databases then you might want to read the database tutorial I have compiled for you. Note that at the end of this article you can download the sample database and code mentioned in this article. Open Microsoft Access and create a database 'mail.mdb' and save it in the same directory where you are creating other HTML and ASP files for this tutorial. In 'design view' of Microsoft Access our 'users' table will look like :

Users - Table

Ok, we've completed first two steps. Now we'll move on to the next page where we will create 'admin' page and an email deletion page from where users can delete their email addresses from your database.

We have created an HTML Form to receive user's email address, an ASP action page to insert that email address into the database and an Access database to receive and store those email addresses. We will now create an admin page from where we can send emails to all the users on our mailing list at once and an email deletion page from where users can delete their email addresses if they later want to.

HTML Admin Page
Create a new HTML page and paste following lines in it's 'body' section :

<p align="center">ADMIN PAGE</p>
<form action="admin_ac.asp" method="post">
Subject :<br>
<input type="text" name="subject"><br><br>
Message :<br><br>
<textarea name="message" cols="60" rows="15"></textarea><br>
<input type="submit" value="send">
</form>

Save it as 'admin.htm'. All it will do is to provide you with an online Form from where you can send messages to all the users of your mailing list.

ASP Admin Action Page
This ASP page will receive the contents of above 'admin.htm' page and will send the actual emails to all the users. Copy and paste the following lines of code into a new page and then save it as 'admin_ac.asp' in the same directory where you have been saving the other pages :