<%
set con = Server.CreateObject("ADODB.Connection")
con.Open Application("CString")
if UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" then
s_Name = Request("Name")
s_Email = Request("Email")
s_Message = Request("Message")
strMessage = ""
strMessage = strMessage & "Name: " & s_Name & vbCrLf & vbCrLf
strMessage = strMessage & "Email: " & s_Email & vbCrLf & vbCrLf
strMessage = strMessage & "Message: " & s_Message & vbCrLf & vbCrLf
b_Valid = false
if InStr(s_Email, "@") > 1 then
if InStr(InStr(s_Email, "@"), s_Email, ".") > InStr(s_Email, "@") then
arrTMP = split(s_Email, ".")
if Len(arrTMP(UBound(arrTMP))) = 2 or Len(arrTMP(UBound(arrTMP))) = 3 then
b_Valid = true
end if
end if
end if
if b_Valid then
strEmailFrom = s_Email
else
strEmailFrom = "mbfi@mweb.co.za."
end if
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "127.0.0.1"
Mail.From = strEmailFrom
Mail.FromName = "MBFi Website"
Mail.AddAddress "mbfi@mweb.co.za"
'Mail.AddAddress "andrew@onlineinnovations.com"
Mail.Subject = "Feedback Form"
Mail.Body = strMessage
on error resume next
Mail.Send
set Mail = nothing
Response.Redirect "feedback.asp?EmailSent=YES"
end if
%>
Send us your Feedback
Feedback
<%
if Request("EmailSent") = "YES" then
%>
Thank you for your submission.
<%
else
%>
<%
end if
%>
<%
con.Close
set con = Nothing
%>