<% 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 %>
《意見箱》
   
如對本中心網頁有任何意見,請填上以下資料,並按「確定」。

科目  :
 
網頁內容:
建議  :

姓名:
電郵:
希望收到本中心每月通訊之電郵通知