APPLICATION FOR ICHMT GRANT
Thmt-03, Turbulence, Heat and Mass Transfer
12-17 October, 2003, Antalya, TURKEY

To be submitted no later than six months before the start of the Symposium.
Please NOTE THAT (*) fields are to be filled in.
(Please do not use "Enter" button of your keyboard while you are writing your explanations.)

Personal Information
Title and/or position:
*First Name:
*Last Name:
Company or Organisation:
Postal Address
Address Line 1:
Address Line 2:
City/State:
Postcode:
Country:
 
Telephone:
Fax:
*Email:
 
Why would you benefit from attendance at this symposium?
  Have you submitted a paper to this symposium?    Yes    No
 
Estimate of total cost of participation (please convert to US dollars):
 

Registration fee:

 
Hotel accommodation - name of hotel:
 
Travel costs (explain):
 
TOTAL:
   

<% choice1=Request.Form("SENDTHEFORM") choice2=Request.Form("EXIT") If choice1="SEND THE FORM" then title=Request.Form("Title") firstname=Request.Form("Firstname") lastname=Request.Form("Lastname") company=Request.form("Company") address=Request.form("Address") address2=Request.form("Address2") state=Request.form("State") postcode=Request.form("Postcode") country=Request.form("Country") telephone=Request.form("Telephone") fax=Request.form("Fax") email=Request.Form("Email") benefit=Request.form("Benefit") paper=Request.form("Paper") fee=Request.form("Fee") namehotel=Request.form("Namehotel") hotel=Request.form("Hotel") tcoste=Request.form("Tcoste") cost=Request.form("Cost") total=Request.form("Total") If firstname<>"" and lastname<>"" and email<>"" then ' 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 & "Below is the result of APPLICATION FOR ICHMT GRANT for Thmt-03, It was submitted by " & firstname & " " & lastname & " ( " & email & " ) on " & DATE() & "

Title: " & title & "
Name: " & firstname & " " & lastname & "
Company or Organisation: " & company & "
Postal Address: " & address & " " & address2 & " " & postcode & " " & state & " " & UCASE(Country) & "

Telephone: " & telephone & "
Fax: " & fax & "
E-mail: " & email & "

Why would you " strHTML = strHTML & "benefit from attendance at this symposium?
" & benefit & "

Have you submitted a paper to this symposium? [" & paper & "] " & "

Registration fee: " & fee & "

Hotel accommodation - name of hotel: " & namehotel& "
Hotel Cost:" & hotel & "

Explanation of Travel Costs:
" & tcoste & "
Travel costs: " & cost & "

Total Cost: " & total strHTML = strHTML & "" strHTML = strHTML & "" ' apply the settings to the message With iMsg Set .Configuration = iConf .To = email .From = "ichmt@ichmt.org" .cc = "arinc@ichmt.org" .bcc = "gokmen@ichmt.org" .Subject = "APPLICATION FOR ICHMT GRANT" .HTMLBody = strHTML .Send End With ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Else if firstname="" or lastname="" or email="" then Response.Redirect "errorgrants.htm" End if End if Response.Redirect "grantssent.asp?title="&title&"&firstname="&firstname&"&lastname="&lastname&"&company="&company&"&address="&address&"&address2="&address2&"&state="&state&"&postcode="&postcode&"&country="&country&"&telephone="&telephone&"&fax="&fax&"&email="&email&"&benefit="&benefit&"&paper="&paper&"&fee="&fee&"&namehotel="&namehotel&"&hotel="&hotel&"&tcoste="&tcoste&"&cost="&cost&"&total="&total End if If Choice2="EXIT" then Response.Redirect "mainindex.html" End if%>