<% profile=request("profile") lecture1=request("lecture1") lecture2=request("lecture2") lecture3=request("lecture3") 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") SUBJECT = "[CGW-Lecture Submission] " & 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 & "Profile: " & vbCrLf & profile & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & "Lecture 1: " & vbCrLf & lecture1 & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & "Lecture 2: " & vbCrLf & lecture2 & vbCrLf & vbCrLf MESSAGEBODY = MESSAGEBODY & "Lecture 3: " & vbCrLf & lecture3 & vbCrLf & 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 email 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 needs to be updated to the new JAAH web site host URL response.redirect "http://iume.tc.columbia.edu/jaah/jaah-thanks.htm" %>