|
|
YOUR
FEEDBACK:
Please fill in the
form and submit it. We appreciate your suggestions and feedback.
Email Contact Form
<%
Dim strName, strEmail, strMessage
strName = Trim(Request.Form("sender"))
strEmail = Trim(Request.Form("email"))
strMessage = Trim(Request.Form("comment"))
If(strMessage <> "") Then
Set objMail = CreateObject("CDO.Message")
objMail.From = strEmail
objMail.To = "alumni@witsolapur.org"
objMail.Subject = "Contact Form from " & strName
objMail.TextBody = strMessage
objMail.Send
Set objMail = Nothing
Response.Write "Thank You"
Else
%>
<% End If %>
|