 Learn About: Rationale for the Book The Story The Author The Illustrator The Series Fun Stuff Reviews What's New? Order!  |
 |
<%
Select Case inQuestion
Case 1
questionText = "How does Daniel feel?"
Case 2
questionText = "Do you have any allergies like Dan? What kind?"
Case 3
questionText = "What do you think will happen next?"
Case 4
questionText = "Professor George is an engineer. What do you think engineers do? What's the best thing about being an engineer?"
Case Else
questionText = "There was an error getting the question."
End Select
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Boing-Boing's Fun Stuff Page"
Mailer.FromAddress = "rbreckler@ceramics.org"
Mailer.RemoteHost = "mail.acers.org"
Mailer.AddRecipient "rbreckler@ceramics.org","rbreckler@ceramics.org"
Mailer.ReturnReceipt = false
Mailer.ConfirmRead = false
Mailer.Subject = "Boing-Boing's Fun Stuff Questions"
cBody = formatdatetime(date(),1) & " " & Time & Chr(13) & Chr(10) & Chr(13) & Chr(10)
cBody = cBody & "A new submission has been sent from the Questions section of the Boing-Boing Fun Stuff area." & Chr(10) & Chr(13) & Chr(10) & Chr(13)
cBody = cBody & "Sender: " & inName & Chr(13) & Chr(10)
cBody = cBody & "Age: " & inAge & Chr(13) & Chr(10)
cBody = cBody & "Hometown: " & inHometown & Chr(13) & Chr(10) & Chr(13) & Chr(10)
cBody = cBody & questionText & ":" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
cBody = cBody & inAnswer
Mailer.BodyText = cBody
if Mailer.SendMail then
on error resume next
response.write " Your message was sent without any problems. Check back to this area of the website often... your response could be listed the next time you visit! Have fun! " else response.write " There was a problem sending your messge. Try hitting the "Refresh" button. If it still doesn't work, send an e-mail telling us about it. " end if %> |
| ^ PAGE TOP ^ | ©2000 The American Ceramic Society |