<%
choice1=Request.Form("SENDTHEFORM")
choice2=Request.Form("EXIT")
If choice1="SEND THE FORM" then
pfr=Request.Form("pfr")
pfc=Request.Form("pfc")
klpr=Request.Form("klpr")
klpc=Request.form("klpc")
kltcr=Request.form("kltcr")
kltcc=Request.form("kltcc")
cppr=Request.form("cppr")
cppc=Request.form("cppc")
cptcr=Request.form("cptcr")
cptcc=Request.form("cptcc")
oopdr=Request.form("oopdr")
oopdc=Request.Form("oopdc")
ooer=Request.form("ooer")
ooec=Request.form("ooec")
dr=Request.form("dr")
dc=Request.form("dc")
cpr=Request.form("cpr")
cpc=Request.form("cpc")
rfr=Request.form("rfr")
rfc=Request.form("rfc")
rsr=Request.form("rsr")
rsc=Request.form("rsc")
mfr=Request.form("mfr")
mfc=Request.form("mfc")
nopr=Request.form("nopr")
nopc=Request.form("nopc")
ossar=Request.form("ossar")
ossac=Request.form("ossac")
wiapr=Request.form("wiapr")
wiapc=Request.form("wiapc")
har=Request.form("har")
hac=Request.form("hac")
br=Request.form("br")
bc=Request.form("bc")
vr=Request.form("vr")
vc=Request.form("vc")
tspr=Request.form("tspr")
tspc=Request.form("tspc")
tasr=Request.form("tasr")
tasc=Request.form("tasc")
rsc=Request.form("rsc")
coser=Request.form("coser")
cosec=Request.form("cosec")
focr=Request.form("focr")
hmyr=Request.form("hmyr")
atnmr=Request.form("atnmr")
mailing=Request.form("mailing")
web=Request.form("web")
colleague=Request.form("colleague")
magazine=Request.form("magazine")
flyer=Request.form("flyer")
other=Request.form("other")
theme=Request.form("theme")
comment=Request.form("comment")
ip=Request.ServerVariables("remote_addr")
' send by connecting to port 25 of the SMTP server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Const cdoSendUsingPort = 2
StrSmartHost = "web.me.metu.edu.tr"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
' build HTML for message body
strHTML = ""
strHTML = strHTML & ""
strHTML = strHTML & ""
strHTML = strHTML & "
ICHMT Conference Evaluation Form
International Symposium on
TRANSIENT CONVECTIVE HEAT AND MASS TRANSFER
IN SINGLE AND TWO-PHASE FLOWS
Golden Dolphin Hotel, Cesme, Turkey
17-22 August 2003" & "This form is sent from the following computer;
IP:
" & ip
strHTML = strHTML & "Conference Content| 1. Program format | " & pfr & " | " & pfc & " |
"
strHTML = strHTML & "| 2. Keynote lectures: presentation | " & klpr & " | " & klpc & " |
| 3. Keynote lectures: technical content | " & kltcr & " | " & kltcc & " |
| 4. Contributed papers: presentation | " & cppr & " | " & cppc & " |
"
strHTML = strHTML & "| 5. Contributed papers: technical content | " & cptcr & " | " & cptcc & " |
"
strHTML = strHTML & "| 6. Organization of poster display | " & oopdr & " | " & oopdc & " |
"
strHTML = strHTML & "| 7. Organization of exhibition (if any) | " & ooer & " | " & ooec & " |
"
strHTML = strHTML & "| 8. Discussions | " & dr & " | " & dc & " |
"
strHTML = strHTML & "| 9. Conference publications | " & cpr & " | " & cpc & " |
"
strHTML = strHTML & "| | | |
"
strHTML = strHTML & "| Conference Organization | | |
"
strHTML = strHTML & "| 10. Registration fee | " & rfr & " | " & rfc & " |
"
strHTML = strHTML & "| 11. Registration services | " & rsr & " | " & rsc & " |
"
strHTML = strHTML & "| 12. Meeting facilities | " & mfr & " | " & mfc & " |
"
strHTML = strHTML & "| 13. Number of participants | " & nopr & " | " & nopc & " |
"
strHTML = strHTML & "| 14. On-site ICHMT staff assistance | " & ossar & " | " & ossac & " |
"
strHTML = strHTML & "| 15. Web information and procedures | " & wiapr & " | " & wiapc & " |
"
strHTML = strHTML & "| 16. Hotel amenities (meals, rooms, etc.) | " & har & " | " & hac & " |
"
strHTML = strHTML & "| 17.Banquet | " & br & " | " & bc & " |
"
strHTML = strHTML & "| 18. Venue | " & vr & " | " & vc & " |
"
strHTML = strHTML & "| 19. Tours/social program | " & tspr & " | " & tspc & " |
"
strHTML = strHTML & "| 20. Travel agency services | " & tasr & " | " & tasc & " |
"
strHTML = strHTML & "| 21. Cost of special events | " & coser & " | " & cosec & " |
"
strHTML = strHTML & "
| | |
"
strHTML = strHTML & "| 22. Would you like to have a follow-on conference on the same topic? | " & focr & " |
"
strHTML = strHTML & "| 23. If yes, in how many years should it be convened? | " & hmyr & " |
"
strHTML = strHTML & "| 24. Would you attend the next meeting? | " & atnmr & " |
"
strHTML = strHTML & "| 25. How did you learn about this conference? | [" & mailing & "]ICHMT mailing [" & web & "]ICHMT Web site |
"
strHTML = strHTML & "| | [" & colleague & "]Colleague [" & magazine & "]Magazine |
"
strHTML = strHTML & "| | [" & flyer & "]Flyer [" & other & "]Other |
"
strHTML = strHTML & "| 26.Please suggest any other conference theme for ICHMT | " & theme & " |
"
strHTML = strHTML & "| 27. Any other comments? | " & comment & " |
"
strHTML = strHTML & ""
strHTML = strHTML & ""
' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "ichmt@ichmt.org"
.From = "ichmt@ichmt.org"
.Subject = "TRCON-03 Conference Evaluation Form"
.cc = "arinc@ichmt.org"
.bcc = "gokmen@ichmt.org"
.HTMLBody = strHTML
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.Redirect "questionnairesent.asp"
End if
If Choice2="EXIT" then
Response.Redirect "mainindex.html"
End if%>