<% dim strName dim strEmail dim strComments dim itsReady itsReady = "" strAddr = Trim(Request.form("email")) if strAddr <> "" then replyTo = cstr(strAddr) end if strName = Request.form("name") strEmail = Request.form("email") strComments = Request.form("comments") strText = "Name: " & strName & vbCrLf & vbCrLf & "Email: " & strEmail & vbCrLf & vbCrLf & "Comments: " & strComments if replyTo <> "" then itsReady = send_email() function send_email() Dim objMail Set objMail = Server.CreateObject("CDO.Message") objMail.To = "embreya@tfcumn.org" objMail.From = replyTo objMail.ReplyTo = replyTo 'replyTo is the user_email email address from the form objMail.Subject = "Artisenne Contact Form" objMail.TextBody = strText objMail.Send Set objMail = Nothing if err.number > 0 then response.write "Errors were encountered in sending your e-mail message. "&_ "Please try again, or contact the webmaster" else %> <% end if end function %>
 

Angela Embrey is a formally trained interactive design artist with experience in a wide range of electronic media. Angela also has fine art experience in ceramics, silkscreen, drawing, painting, metal work, hand-made jewelry, sculpture, photography and intaglio print processes. She has a Bachelor of Fine Arts degree from the University of Minnesota.

Angela Embrey
612.889.0424
angela@artisenne.com


Online Resumé