<%@ Language=VBScript %><% ' Program: email_research.asp ' Version: 1.0 ' Programmer: Stephen Arone ' Copyright.........Copyright 2001, The Educational CyberPlayGround All Rights Reserved. ' Function: Sends an E-Mail with form information. ' Parameters: ' Fields: Function SendEMail(sEMail, sName, sInfo) ' This function sends an e-mail. Set Mail= Server.CreateObject("Persits.MailSender") Mail.host = "mail.edu-cyberpg.com" Mail.From = "salesteam@edu-cyberpg.com" Mail.FromName = "Educational CyberPlayGround: The Mall" Mail.Subject= "Research Services Request" myBody = "Research Services Request:" & chr(13)& Chr(10) ' Display the information myBody = myBody & sInfo & chr(13) & chr(10) Mail.Body = myBody Mail.AddAddress "salesteam@edu-cyberpg.com", "Educational CyberPlayGround" Mail.Send If err<> 0 Then Response.Write "Message was not sent due to the following error: " & Err.Description SendEMail = False Else SendEMail = True End If Set Mail = Nothing End Function ' Retrieve all of the data that the user entered by using the request object cPersonName = Trim(Request("personname")) cAddress = Trim(Request("address")) cEMail = Trim(Request("email")) cPhone = Trim(Request("phone")) cWorkDescription = Trim(Request("workdescription")) cAssistanceNeeded = Trim(Request("assistanceneeded")) cProductTitle = Trim(Request("producttitle")) cKeyConcept = Trim(Request("keyconcept")) cSynonyms = Trim(Request("synonyms")) cEndProduct= Trim(Request("endproduct")) ' Verify fields are filled out. (Also Create JavaScript to do this on client side) If cPersonName = "" Then strError = "You did not enter your name. " End if If cPhone = "" Then strError = strError & "You did not provide a phone number. " End If ' Write the Header Information %> Educational CyberPlayGround: Thanks For Ordering Domino From Guavaberry Books

TM
212 Gulph Lane
Conshohocken, PA 19428

National Childrens Folksong Repository

National Children's Folksong Repository
Thanks You!

If you have any questions please E-mail or

We are open 10 AM to 4 PM Eastern Time Monday - Friday