<%
Dim strMessage
Dim nError
nError = 0
strMessage = ""
if Request.Form("Func")="SendMail" then
if Request.Form("EmailFrom")="" then
strMessage="Your email address is required"
nError = 1
end if
if strMessage="" _
and Request.Form("Subject")="" then
strMessage="A subject is required"
nError = 1
end if
if strMessage="" _
and Request.Form("Message")="" then
strMessage="A message is required"
nError = 1
end if
if strMessage="" then
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = Request.Form("Subject")
objMessage.From = Request.Form("EmailFrom")
objMessage.To = "Mike.Procopio@Infospace.com"
objMessage.TextBody = Request.Form("Message")
objMessage.Send
strMessage = "Your email was sent"
end if
end if
%>
Your Email Address:
>
Subject:
<%
if nError=1 then
%>
">
<%
else
%>
<%
end if
%>
Message:
<%
if strMessage<>"" then
%>
<%= strMessage %>
<%
end if
%>