function emailit(emailto, emailfrom, sujet, mess){
Dim objCDOMail

if emailto <> "" and emailfrom <> "" and sujet <> "" then
	Set objCDOMail = server.CreateObject("CDONTS.NewMail")
	With objCDOMail
 	   	.From = emailfrom
    	.To = emailto
    	.Subject = sujet
    	.Body = mess
    	.Send
	End With
	Set objCDOMail = Nothing 
end if
	
end function 




 
Dim mess

	mess = mess & "Inscription Kdhama " & vbcrlf & vbcrlf
	mess = mess & "Nom : " & Request.Form("nom") & vbcrlf
	mess = mess & "Date de naissance : " & Request.Form("date") & vbcrlf
	mess = mess & "Profession : " & Request.Form("prof") & vbcrlf
	mess = mess & "Adresse : " & Request.Form("ad1") & vbcrlf & Request.Form("ad2") & vbcrlf & Request.Form("ad3")
	mess = mess & "Tél. : " & Request.Form("tel") & vbcrlf & vbcrlf
	mess = mess & "Fax : " & Request.Form("fax") & vbcrlf & vbcrlf
	mess = mess & "E-mail : " & Request.Form("mail") & vbcrlf
	
	call emailit("sanadon@cinam.com","sanadon@cinam.com", "Inscription Kdhama" & Request.Form("nom"), mess)

window.print()}