<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim objCDO, Quest1, Quest2a, Quest2b, Quest2c, Quest2d, Quest2e, Quest2f, Quest2g, Quest2h, Quest2i, Quest2j, Quest2k, Quest2l, Quest3a, Quest3b, Quest3c Quest1 = "1. Summary: " & chr(10) & Replace(Request.Form("Q1"), VbCrLf, chr(10)) & chr(10) & chr(10) Quest2a = "2a. Presenter was well prepared " & Request.Form("Q3a") & chr(10) Quest2b = "2b. Presenter had a good understanding of the topic " & Request.Form("Q3b") & chr(10) Quest2c = "2c. Topic was technical in nature " & Request.Form("Q3c") & chr(10) Quest2d = "2d. The balance between general and specific was appropriate " & Request.Form("Q3d") & chr(10) Quest2e = "2e. I learned from the presentation " & Request.Form("Q3e") & chr(10) Quest2f = "2f. Presentation was well organized " & Request.Form("Q3f") & chr(10) Quest2g = "2g. Material was easy to understand " & Request.Form("Q3g") & chr(10) Quest2h = "2h. Good examples were given " & Request.Form("Q3h") & chr(10) Quest2i = "2i. Presenter spoke clearly " & Request.Form("Q3i") & chr(10) Quest2j = "2j. Presenter made the topic interesting " & Request.Form("Q3j") & chr(10) Quest2k = "2k. Handout and other visual aids " & Request.Form("Q3k") & chr(10) Quest2l = "2l. Presenter’s ability to answer questions " & Request.Form("Q3l") & chr(10) Quest3a = "3a. What did the presenter do particularly well?" & chr(10) & Replace(Request.Form("Q4a"), VbCrLf, chr(10)) & chr(10) & chr(10) Quest3b = "3b. In what areas could the presentation have been more effective?" & chr(10) & Replace(Request.Form("Q4b"), VbCrLf, chr(10)) & chr(10) & chr(10) Quest3c = "3c. How could the presenter improve?" & chr(10) & Replace(Request.Form("Q4c"), VbCrLf, chr(10)) & chr(10) & chr(10) Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "jcaplette@lycos.com" objCDO.To = "jbcaplette@csupomona.edu" objCDO.CC = "jcaplette@lycos.com" objCDO.Subject = "CS 463 Evaluation Form" objCDO.Body = "Evaluator's Name: " & Request.Form("yournamer") & chr(10) & chr(10) & "Date of Presentation: " & Request.Form("dateofpres") & chr(10) & "Presenter's Name & Topic of Presentation: " & Request.Form("presnametopic") & chr(10) & chr(10) & Quest1 & Quest2a & Quest2b & Quest2c & Quest2d & Quest2e & Quest2f & Quest2g & Quest2h & Quest2i & Quest2j & Quest2k & Quest2l & Quest3a & Quest3b & Quest3c & "Time Stamped at: " & Request.Form("timestamp") objCDO.Send() Set objCDO = Nothing Response.Redirect("http://www.csupomona.edu/~dabrum/thankyouIIS.htm") %>