|
<%
if request.form("isSubmitted")="yes" then
If request.form("comments")="" then
%>
Not Contacted
Empty Messages Have Little Utility Write something, or don't.
Try Again or:
<%
Else
message=request.form("comments")
contactname=request.form("cname")
emailaddress=request.form("email")
subjectline=request.form("subject")
subjectline= "sylloge contact:" & subjectline
If contactname="" then
contactname="anonymous"
end if
If emailaddress="" then
emailaddress="null@sylloge.com"
end if
Set Mailer = CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "infinity.webdns.net"
Mailer.FromAddress = emailaddress
Mailer.FromName = contactname
Mailer.AddRecipient "Stewart Butterfield", "stewart@ludicorp.com"
Mailer.Subject = subjectline
Mailer.BodyText = message
if Mailer.SendMail then
%>
Contacted Thanks!
Your message was sent and will most likely be received. Now, you can click on these links:
<%
else
%>
Damn! Error!
<% Response.Write Mailer.Response %>
<%
end if
End If
else
%>
Contacting
NB The person whom you'd be contacting, were you to "contact sylloge" would really a particular person: one Stewart Butterfield, of Vancouver, BC.
mobile: 604-551-8514 email: stewart (a) ludicorp / com
SICSAN: Sophisticated Interactive Contact System (Anonymous or Not)
<%
end if
%>
|