%
if request("sent") = "y" then
Dim cRet
cRet = cRet & "科目 : " & request("subject") & vbCrLf & vbCrLf
cRet = cRet & "網頁內容 : " & request("web") & vbCrLf & vbCrLf
cRet = cRet & "意見 : " & vbCrLf & request("feedback") & vbCrLf & vbCrLf
cRet = cRet & "姓名 : " & request("realname") & vbCrLf & vbCrLf
cRet = cRet & "電郵 : " & request("email") & vbCrLf & vbCrLf
if request("tick") = "" then
tk = "否"
else
tk = "是"
End if
cRet = cRet & "希望收到本中心每月通訊之電郵通知 : " & tk & vbCrLf
Set oMail = Server.CreateObject("CDONTS.Newmail")
oMail.From = "SendByCMIServer"
oMail.To = "enquirebox@cmi.hku.hk"
'oMail.Bcc = ""
oMail.Subject = "CMI 意見箱 (Send by web user)"
oMail.Body = cRet
oMail.Send
Set oMail = Nothing
Response.Write ""
Response.Write "
"
end if
%>