<% CK = array("cname","tel","addr") CKT = array("姓名","聯絡電話(白天)","地址") CKF = array("cname","sex","age","office","position","tel","tel2","fax","mobile","email","jdate","lunch") CKFT = array("姓名","性別","年齡","所在單位","職稱","聯絡電話(白天)","聯絡電話(晚上)","傳真","手機號碼","email","參加日期","午餐") JS = "" email = Request("email") ToEMail = Request("toEmail") If email <> "" and ToEMail <> "" Then eMailBody = "" For i = 0 to UBound(CKF) eMailBody = eMailbody & CKFT(i) & " : " & Request(CKF(i)) & vbcrlf if i = 8 Then eMailBody = eMailbody & "地址 : " & Request("city") & Request("town") & Request("zip") & Request("addr") & vbcrlf Next '**************************************** '* Send eMail Message '**************************************** FromEMail = email Subject = "[線上報名通知信]台灣布袋戲與傳統文化創意產業研討會" 'Msg = FromEMail & "
" & ToEMail & "
" & Subject & "
" & EMailBody SendMail FromEMail,ToEMail,Subject,EMailBody,0,1 JS = "alert('您的資料已經送出！');" End IF '--------------------------------------------------- Sub SendMail(eMailFrom,eMailTo,eMailSubject,eMailBody,SMTPMode,emailType) '************************************************* '* SMTPType ： '* 0 表 CDONT Fpr Win Serever NT/2K '* 1 表 CDO For Win Server 2003 '* eMailType ： '* 0 表 HTML Mode '* 1 表 Text Mode '************************************************* Dim mail,Par Par = "eMailFrom=" & eMailFrom & "
" & vbcrlf & _ "eMailTo=" & eMailTo & "
" & vbcrlf & _ "eMailSubject=" & eMailSubject & "
" & vbcrlf & _ "eMailBody=" & eMailBody & "
" & vbcrlf & _ "emailType=" & eMailType 'Response.Write Par If SMTPMode = 0 Then '************************************************* '* Send eMail by CDONTS '************************************************* Set mail = Server.CreateObject( "CDONTS.NewMail" ) mail.From = eMailFrom mail.To = eMailTo mail.Subject = eMailSubject mail.Body = eMailBody mail.BodyFormat = eMailType mail.MailFormat = eMailType Mail.Send If err.number <> 0 Then Response.Write err.number Set mail = nothing ElseIf SMTPMode = 1 Then '************************************************* '* Send eMail by CDO '************************************************* Set mail = CreateObject("CDO.Message") mail.From = eMailFrom mail.To = eMailTo mail.Subject = eMailSubject If eMailType = 1 Then mail.TextBody = eMailBody Else mail.HTMLBody = eMailBody End If mail.Send If err.number <> 0 Then Response.Write err.number Set mail = nothing End If End Sub %> 台灣布袋戲與傳統文化創意產業研討會【報 名 表】
 
" method="post">
您可以使用線上報名，填妥下列資料送出即可，我們收到資料後會有專人與您確認；或將此頁資料列印出來填妥後，以傳真或郵寄方式報名：
傳真電話：(02)2738-7871
郵寄地址：110台北市信義區基隆路二段131-3號6樓

若有報名或活動相關問題，請洽詢(02)2377-0794 張小姐
 
姓　　名：  *                  性別： 男 女      年齡：
所在單位：
職　　稱：
聯絡電話：(白天) *        (晚上)
傳真號碼：           手機號碼：
地　　址：    * 
E - mail： * 
全程出席
出席8月26日
出席8月27日
* 午餐： 葷      素
 
 

E-Mail：folk06@folk.org.tw• 活動網址：http://www.folk.org.tw/