<% If request("Button")="Send Mail" then Set objMail = Server.CreateObject("CDONTS.NewMail") For each sRequest in Request.Form 'response.write sRequest Select Case sRequest Case "From" objMail.From=request(sRequest) Case else sBody=sBody & sRequest & " - " & request(sRequest) & chr(13) End select Next 'response.write sBody objMail.Body=sBody objMail.To="info@adventure4ever.com" objMail.Subject="mail afkomstig van het registratie form" objMail.Send set objMail = nothing 'response.write "Thank you for registering. We will keep you informed about the latest features!" response.redirect("thankYou.htm") else %>

	Name:
	Publication:
	Circulation:
	Publication type:
	Address:
	Postcode:
	Country:
	Phone:
	Fax:
	E-mail:
	What kind of stories are you looking for?

<% End if %>