%@ Language=VBScript %>
<%
Dim objNewMail
dim sMsgEMail
dim emailuser
dim respo
dim errorc
CRLF= chr(13) + chr(10)
if request("cmd")="send" then
if request("name")="" or request("town")="" or request("hometown")="" or request("medium")="" then
errorc = "***All required fields not filled
"
else
sMsgEMail="2007 Pequot Library Artist Biography & Statement" & CRLF & CRLF & _
"Coast. Countryside. City." & CRLF & _
"Images of Southern New England" & CRLF & CRLF & _
"Artist Name: " & request("NAME") & CRLF & CRLF & _
"Town of Residence: " & request("town") & CRLF & CRLF & _
"Hometown: " & request("hometown") & CRLF & CRLF & _
"Website: " & request("website") & CRLF & CRLF & _
"Gallery Affliation: " & request("gallery") & CRLF & CRLF & _
"Mediums Used: " & request("medium") & CRLF & CRLF & _
"Training/Education: " & request("training") & CRLF & CRLF & _
"Other Exhibits or Shows Participated In: " & request("participate") & CRLF & CRLF & _
"Statement (about your art, influences, process, etc.): " & request("statement")
'Send Email Response
set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.Send "jerrild@pequotlibrary.com", "jerrild@pequotlibrary.com", "biography.asp", sMsgEMail
set objNewMail=nothing
response.redirect "/new/thankyou.html"
end if
end if
%>
| "A man is known by the books he reads." Ralph Waldo Emerson |
![]() |
![]() |
![]()
|
|||||||||||||