<% Dim action Dim ErrorText Dim tmpText action = Request("action") Select Case action Case "contact" tmpText = "From Name: " & Trim(Request("FromName")) & vbcrlf tmpText = tmpText & "From Email: " & Trim(Request("FromEmail")) & vbcrlf tmpText = tmpText & "Message: " & Trim(Request("Message")) & vbcrlf & vbcrlf tmpText = tmpText & "Remote Host: " & Request.ServerVariables("REMOTE_HOST") & vbcrlf Set objMailer = CreateObject("SMTPsvg.Mailer") objMailer.BodyText = tmpText If Trim(Request("FromName")) <> "" Then objMailer.FromName = Trim(Request("FromName")) Else If Trim(Request("FromEmail")) <> "" Then objMailer.FromName = Trim(Request("FromEmail")) Else objMailer.FromName = "Anonymous" End If End If If Trim(Request("FromEmail")) <> "" Then objMailer.FromAddress = Trim(Request("FromEmail")) objMailer.ReplyTo = Trim(Request("FromEmail")) Else objMailer.FromAddress = "noreply@ez2.net" objMailer.ReplyTo = "noreply@ez2.net" End If objMailer.AddRecipient "James Tangherlini", "jamestangherlini@ez2.net" objMailer.Subject = "Contact Form Submission" 'objMailer.QMessage = True objMailer.RemoteHost = "mail.ez2.net:587" 'objMailer.RemoteHost = "192.168.0.2" If Not objMailer.SendMail Then result = "Failed." End If 'result = FormatDateTime(Date() & " " & Time(),vbLongDate) Set objMailer = Nothing ErrorText = "Your message has been sent." ShowMain Case Else ShowMain End Select Sub ShowMain %>

<% If ErrorText <> "" Then %> <% = ErrorText %> <% End If %> Contact James Your Name Your Email Message
Content & Photos ©2004 James Tangherlini

<% End Sub %>