<% dim msg msg = "" if Request.QueryString("Send") = "Y" then Dim MyCDONTSMail Dim MsgBody MsgBody = "First Name: " & request.form("realname") & "
" MsgBody = MsgBody & "Nationality: " & request.form("nationality") & "
" MsgBody = MsgBody & "Company: " & request.form("age") & "
" MsgBody = MsgBody & "Email: " & request.form("Email") & "
" MsgBody = MsgBody & "Profession: " & request.form("profession") & "
" MsgBody = MsgBody &"Comment: " & request.form("comments") & "
" Set MyCDONTSMail =CreateObject("CDO.Message") MyCDONTSMail.From = request.form("Email") MyCDONTSMail.To = "guestbook@ias-worldwide.org" MyCDONTSMail.Subject = "Guest Book " MyCDONTSMail.HtmlBody = MsgBody MyCDONTSMail.Send Set MyCDONTSMail = Nothing msg = "Thank you for submitting your inquiry" end if %> Islamic World Academy of Sciences IAS- Guest Book

Sections Bar

Guest Book

Name
Nationality
Age
E-Mail Address
Profession
Institution/Company
Contact Address
Country
How did you find out about our site?
Comments and Suggestions

About Us | IAS Structure | Programme | Activities | Publications | IAS: The People | Links | Guest Book | Home