<%@Language=VBScript %>

<%
if request("Name")= "" then
Response.Write("geen data")
else

Response.Write(request("name"))
'*** Load Constants
SENDTO = "steven.zoutendijk@crexx.nl"
SUBJECT = "Form Reply-Response Example"
USERNAME = Request.ServerVariables("LOGON_USER")

'*** Post values to the form
name = Request("Name")
email = Request("Address")


'*** Build message body
BodyString = BodyString & "Name =  " & name & VbCrLf
BodyString = BodyString & "Email =  " & email & VbCrLf

'***Begin Send mail to customer***
   Set myMail = 
Server.CreateObject("CDONTS.NewMail")         
   myMail.From = email
   myMail.To = SENDTO
   myMail.Subject = SUBJECT
   myMail.Body = BodyString
   myMail.Send
   Set myMail = Nothing
'***End Send mail to customer***

'***Build confirmation body***
   OutputString = "<P></BODY></HTML>"
   OutputString = OutputString & "<P>&nbsp;&nbsp;<P>Thank you for 
   sending mail<P>" & VbCrLf

'***Begin Build footer and send to customer***
OutputString = OutputString & "<P></BODY></HTML>"
Response.Write OutputString
'***End Build footer and send to customer***
end if
%>