<% @ language="vbscript" %>
<% Response.Buffer = True %>
<%


'	Easy postcard script!
'	Courtesy of SamHS, a member of the dotdragnet team
'	Please see the readme.txt for full instructions on how to set this up
'	But I promise - it'll take you no more than 5 minutes!
'	This version copyright dotdragnet.co.uk
'	Please let us know if you make any enhancements to this
'	script - so we can offer them to our users.

' *************************
' DO NOT ALTER THIS SECTION
' *************************
	message=Request.Form("message")
	yourname=Request.Form("yourname")
	youremail=Request.Form("youremail")
	theirname=Request.Form("theirname")
	theiremail=Request.Form("theiremail")
	picture=Request.Form("picture")
	picture=Server.MapPath(picture)

' *********************************************
' You can alter this section to suit your needs
' *********************************************

' You can set your own variables here:

' Insert your site name for use in the email
	sitename="www.www.leisure-ideas.com"

' Insert the subject of the email sent (remembering to leave in the & sitename bit)
	strsubject="A postcard from " & sitename

' Insert the body of the email to be sent (remembering that the user also gets to add their own message)
' I've gone a bit OTT here with a disclaimer here - why not run the script, see what happens by doping a test postcard
' to yourself - and then have a play around with it?
	strbody="Hi " & theirname & "!" & vbCrLf & vbCrLf & "Your friend " & yourname & " has been visiting " & sitename & ". They wanted to show you "
	strbody = strbody & "what it's like over here - why not check it out for yourself - look at the attachment! "
	strbody = strbody & "They had this message for you: " & vbCrLf & vbCrLf & message & vbCrLf & vbCrLf
	strbody = strbody & "---" & vbCrLf & vbCrLf & "Please note that this message has been automatically "
	strbody = strbody & "generated by a user on " & sitename & " - no record of either your email address "
	strbody = strbody & "nor the person who sent this email to you has been made. We accept no responsibility "
	strbody = strbody & "for the contents of this email!"

' Insert the location of the thank you page for users (change it from my site would ya?!)
	thankspage="http://www.leisure-ideas.com"

' *************************
' DO NOT ALTER THIS SECTION
' *************************
	Dim objCDOMail
	If youremail<>"" And theiremail<>"" And IsValidEmail(youremail) And IsValidEmail(theiremail) Then
		sendemail(theiremail)
		Response.Redirect thankspage
	Else
		Response.Write "There was an error with the email addresses. Please <a href='javascript:history.back(-1)'>go back</a> and correct the problem - then resubmit."
	End If

%>

<% ' Functions follow

' Send the email
Function sendemail(stremail)
			Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
			objCDOMail.From = youremail
			objCDOMail.To = stremail
			objCDOMail.Subject = strSubject
			objCDOMail.AttachFile(picture)
			objCDOMail.Body = strBody
			objCDOMail.Send
			Set objCDOMail = Nothing
End Function	

' Is it a valid email address being used?
Function IsValidEmail(strEmail)
	Dim bIsValid
	bIsValid = True
	
	If Len(strEmail) < 5 Then
		bIsValid = False
	Else
		If Instr(1, strEmail, " ") <> 0 Then
			bIsValid = False
		Else
			If InStr(1, strEmail, "@", 1) < 2 Then
				bIsValid = False
			Else
				If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
					bIsValid = False
				End If
			End If
		End If
	End If
	IsValidEmail = bIsValid
End Function
%>