<%
if request.QueryString("Mode")="Send" then
fromAddr = request.form("Email")
recipients = "PravinKarki@hotmail.com"
strSubject="Comments from : " & request.form("Fullname")
Report = ""
Report = Report & "
Feedback Details
"
For iCnt = 1 to Request.Form.Count - 1
if trim(Request.Form(iCnt))<>"" then
Report = Report & "
" & Request.Form.Key(iCnt) & "
:
" & Request.Form(iCnt) & "
"
end if
Next
Report = Report & "
"
mailComp ="CDOSYS"
to_addr="iha@hydropower.org,ks@hydropower.org,pk@hydropower.org"
SendMail fromAddr,to_addr,strSubject,Report,mailComp
session("Msg")="Your comments has been sent successfully"
response.redirect "message.asp?mode=1"
end if
%>
International Hydropower Association
w
