<% firstname=request("firstname") lastname=request("lastname") email=request("email") address1=request("address1") address2=request("address2") city=request("city") st=request("st") zip=request("zip") phone=request("phone") position=request("position") institute=request("institute") timeperiod1=request("timeperiod1") timeperiod2=request("timeperiod2") timeperiod3=request("timeperiod3") timeperiod4=request("timeperiod4") topic1=request("topic1") topic2=request("topic2") topic3=request("topic3") topic4=request("topic4") topic5=request("topic5") SUBJECT = "[JAAH-Book Reviewer] " & lastname MESSAGEBODY = MESSAGEBODY & vbCrLf & lastname & ", " & firstname & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & vbCrLf & position & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & vbCrLf & institute & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & vbCrLf & email & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & vbCrLf & phone & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & vbCrLf & address1 & vbCrLf & address2 & vbCrLf & city & ", " & st & " " & zip & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & vbCrLf & "Time Periods: " & vbCrLf & timeperiod1 & vbCrLf & timeperiod2 & vbCrLf & timeperiod3 & vbCrLf & timeperiod4 & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & vbCrLf & "Topics: " & vbCrLf & topic1 & vbCrLf & topic2 & vbCrLf & topic3 & vbCrLf & topic4 & vbCrLf & topic5 & vbCrLf Set ObjMail = Server.CreateObject("CDO.Message") ObjMail.From = "SENDMAIL@nowhere.org" 'ObjMail.To = "dshaen@yahoo.com" ' ObjMail.To = "jaah@exchange.tc.columbia.edu" 'This needs to be updated to the new JAAH emaila address 'ObjMail.BodyFormat = cdoBodyFormatHTML ObjMail.Subject = SUBJECT ObjMail.TextBody = MESSAGEBODY ObjMail.Send Set ObjMail = Nothing 'response.redirect "http://www.columbia.edu/~des2020/jaah/jaah-thanks.htm" ' This link needs to be updated to the correct path for the new JAAH web site host response.redirect "http://iume.tc.columbia.edu/jaah/jaah-thanks.htm" ' %>