<% Dim objMessage Set objMessage = CreateObject("CDO.Message") Dim bodytext bodytext = "姓名: " & request.form("name") & "

" & "主旨: " & request.form("subject") & "

" & "電郵地址: " & request.form("email") & "

" & "留言: " & request.form("message") & "

" & "瀏覽者位址: " & request.servervariables("REMOTE_ADDR") objMessage.To = "raymondchan@mongolia-energy.com" objMessage.From = "Website Visitor (862)" objMessage.Subject = "A visitor filled the information on New World Mobile Website (Hong Kong Stock Code : 0862)" objMessage.HTMLBody = "詳細資料如下 (862 網站): " & "

" & bodytext objMessage.send Set objMessage = Nothing 'response.write bodytext response.write "" response.write "" Response.End %>