Many of you may be familiar with FormMail.pl, a perl script that takes the details entered into a form on a website and emails them to the owner of the site. Here we supply code and instructions on how to set up something similar for use with ASP / VBScript.

Full support for use of these scripts is given free of charge to existing hosting customers.

For a version of this script that also allows for file attachments please click here.

Firstly create a file called formmail.asp and copy the following code into it.

<%
' formmail.asp by Duane Jackson 30/11/2004 duane[at]keyone.co.uk
'
'Put a form on your web page with the action set to point to this file and the method set to POST
'The form should contain two hidden fields. The first should be called 'subject' and contain the value
'hat you wish to appear in the email subject line. The second should be called 'redir' and the value
'should contain the URL you want to redirect the user to once the email has been sent. This may be a thanks page.
'
'Finally, edit the details below to set the sender and recipient details, and the text you want to use as
'an introduction to the email. Change continueOnErrors  to 'true' if you want any errors to be ignored.

sSenderAddress = "formmail@yourdomain.com"
sSenderName = "FormMail"
sRecipientName = "Your Name "
sRecipientAddress="you@yourdomain.com"
sIntroText = "The details below were sent via your website:"
continueOnErrors =  false

' Thats all! Don't edit below this line unless you know what you are doing.

if continueOnErrors then on error resume next
Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
mySmartMail.Server = "mail01.leetmail.net"
mySmartMail.SenderName = sSenderName
mySmartMail.SenderAddress = sSenderAddress
mySmartMail.Recipients.Add sRecipientAddress, sRecipientName
mySmartMail.Subject = request.form("subject")

For Each item In Request.Form
	if lcase(item) <> "redir" AND lcase(item) <> "subject" AND lcase(item) <> "submit" then sBody = sBody &  item & ": " & request.form(item) & vbcrlf
Next

mySmartMail.Body  =  sIntroText & vbcrlf & vbcrlf & sBody
mySmartMail.SendMail
set mySmartMail = nothing
response.redirect request.form("redir")
%>

Read the editing instructions at the top of the file to set sender and recipient email addresses, etc. Save the file and upload it to your web space.

Now to create the form that users will see. An example of the form is given below.

<form action="formmail.asp" method="post">
<input type="hidden" name="subject" value="Registration submission details from the website">
<input type="hidden" name="redir" value="thanks.html">
  <br>
  First Name: 
  <input type="text" name="firstname"><br>
  Last Name: 
  <input type="text" name="lastname"><br>
  <input type="submit" name="Submit" value="Submit">
</form>

Upload the page containing your form and try it out. If your are a client of Key One and you are having problems getting this script to work then please contact your account manager or email support@keyone.co.uk.