|
e-mail:david
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.pseudo-cyb.org"
If Request("Send") <> "" Then
Mail.From = Request("Email")
Mail.FromName = Request("Name")
Mail.AddAddress "david@pseudo-cyb.org", "david"
Mail.Subject = "e-male"
Mail.Body = Request("Message")
ErrStr = ""
On Error Resume Next
if not Mail.Send Then
ErrStr = Err.Description
Else
ErrStr = "success"
End If
If ErrStr <> "" and ErrStr <> "success" Then
Response.Write "Message was not sent due to the following error: " & ErrStr & " "
ElseIf ErrStr = "success" Then
Response.Write "your e-mail has been sent. thanks. i'll reply as soon as possible. "
End If
Else
Response.Write ""
End If
%>
members can edit their info here.
e-male is run by david: e-mail
/ site.
|