<%
DIM strname, strorganisation, stremail, strtelephone, strfax, strnote, Mail
strname = request.form("name")
strorganisation = request.form("organisation")
stremail = request.form("email")
strtelephone = request.form("telephone")
strfax = request.form("fax")
strnote = request.form("note")
DIM strMsgHeader
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = stremail
Mail.To = "jakpo@jakpo.com"
Mail.CC = "testcc@jakpo.com"
Mail.Subject = "Enquiry from MITPM website"
strMsgHeader = "This email was delivered from the MITPM website." & vbCrLf & vbCrLf
Mail.Body = strMsgHeader & "From: " & strname & vbCrLf & _
"Organisation: " & strorganisation & vbCrLf & _
"Email: " & stremail & vbCrLf & _
"Telephone: " & strtelephone & vbCrLf & _
"Fax: " & strfax & vbCrLf & _
"Note: " & vbCrLf & strnote
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN
Response.Write "Thank you." & Err.Description
END IF
%>
<%
Response.Write strname & "
"
Response.Write "Your details has been submitted to MITPM"
%>