電子賀卡

<%@ language=VBScript %> <% Cardnum = Request("cardnum") Cardw = Request("cardw") Cardh = Request("cardh") FromEmail = Request("fromemail") FromName = "Tai Ji Men Qigone Academy" ToEmail = Request("toemail") ToEmail2 = Request("toemail2") ToEmail2 = Request("toemail3") ToEmail2 = Request("toemail4") ToEmail2 = Request("toemail5") Send = Request("send") FromContent = Request("FromContent") ToTitle = Request("totitle") FromTitle = Request("fromtitle") FLASH_CALL = "2008mailcard.asp?cardnum=" & Cardnum & "&cardw=" & Cardw & "&cardh=" & Cardh if (FromEmail <> "") and (ToEmail <> "") then article = ToTitle & "
" & FromContent & "
" & FromTitle & "

" & "

" & "
若看不到電子賀卡請按這裡
" title = "Taijimen E-card" set msg = Server.CreateOBject( "JMail.Message" ) '呼叫ActivX元件 msg.Logging = true msg.silent = true msg.Charset = "BIG5" '文件文字為繁體中文 msg.ContentType = "text/html" '郵件格式為html msg.From = FromEmail 'msg.FromName = FromName msg.FromName = FromEmail msg.AddRecipient ToEmail ' if(ToEmail2 <> "") then ' msg.AddRecipient ToEmail2 ' end if ' if(ToEmail3 <> "") then ' msg.AddRecipient ToEmail3 ' end if ' if(ToEmail4 <> "") then ' msg.AddRecipient ToEmail4 ' end if ' if(ToEmail5 <> "") then ' msg.AddRecipient ToEmail5 ' end if msg.Subject = title msg.HtmlBody = article if not msg.Send("10.1.1.2" ) then '指定寄送的伺服器 Response.write "

" & msg.log & "

" end if end if %> 電子賀卡

<% Response.write("

") %>

2008年太極門電子賀卡
您自己的 eMail	請填寫正確的email，否則會被當作垃圾郵件
收件者的 eMail
收件者及問候語
您的關懷感恩小語	<%=FromContent%>
署名
<% Response.write("") Response.write("") Response.write("")%>