Contact Information

ï»¿ Contact Information ï»¿<%@ Language=VBScript%> ï»¿<%@ Language=VBScript%> <% mes = "" IsSuccess = false sTo = "bnewman98@comcast.net" sFrom = ValidSTR(Trim(Request.Form("From")),mailval) sSubject = ValidSTR(Trim(Request.Form("Subject")),bodyval) sMailServer = "127.0.0.1" sBody = Trim(Request.Form("Message")) if Request("__action")="SendEMail" then SendEMail() end if Sub SendEMail() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then mes = " - Your message has been received!" IsSuccess = true else mes = " " + Err.Description + " TESTS FAILED! Please report this to me." end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "

Success:" & html & "

" else Response.Write "

Fail:" & html & "

" end if End Sub %>

If you see anything you like drop me a line, please contact me at Barbnewman98@gmail.com l.

To hear more about where you can see my work or future exhibits, add your contact information to my mailing list.

Full Name

How Did You Hear About Us?
If Other Enter Information

Enter Your Email Address

Comments/Questions?