<% if request("b1") = "送出" then set rs1 = conn.execute("select count(*) from 申請資料表 where 申請日期 = '" & session("date") & "'") if rs1.eof then Form_No = Year(date) & doublenum(Month(date)) & doublenum(Day(date)) & "001" else Form_No = Year(date) & doublenum(Month(date)) & doublenum(Day(date)) & threenum(rs1(0) + 1) end if if instr(request("t13"),"其他") then traffic_tools = request("t13") & "(" & request("other") & ")" else traffic_tools = request("t13") end if if trim(request("t131")) = "" or Not IsNumeric(trim(request("t131"))) then traffic_tools_count = 0 else traffic_tools_count = request("t131") end if if trim(request("t14")) = "" or Not IsNumeric(trim(request("t14"))) then warn("參訪人數請輸入數字") goback(-1) response.end else p1 = request("t14") end if if trim(request("t141")) = "" or Not IsNumeric(trim(request("t141"))) then warn("參訪人數請輸入數字") goback(-1) response.end else p2 = request("t141") end if app_time = CDate(request("t3") & "/" & request("t4") & "/" & request("t5")) if DateDiff("d",date,app_time) < 3 then warn("預約時間請選擇" & date() + 3 & "後的日期") goback(-1) response.end end if if chktxt(request("t1")) = 1 or chktxt(request("t7")) = 1 or chktxt(request("t8")) = 1 or chktxt(request("t10")) = 1 or chktxt(request("t101")) = 1 or chktxt(request("t9")) = 1 or chktxt(request("t11")) = 1 or chktxt(request("t111")) = 1 or chktxt(request("t12")) = 1 or chktxt(request("other")) = 1 or chktxt(request("t16")) = 1 or chktxt(request("t7")) = 1 or chktxt(request("t18")) = 1 then warn("請勿輸入非法字元 " & "'#$%") goback(-1) response.end end if set rs = conn.execute("insert into 申請資料表(申請表編號,團體名稱,團體屬性,參觀日期,參觀時間,聯絡人,手機,電話,傳真,email,交通工具,數量,參訪人數大人,參訪人數小孩,解說語言,路線行程前,路線行程後,內容,申請日期) values ('" & Form_No & "','" & request("t1") & "','" & request("t2") & "','" & doublenum(request("t3")) & "/" & doublenum(request("t4")) & "/" & doublenum(request("t5")) & "','" & doublenum(request("t6")) & ":" & doublenum(request("t7")) & "','" & request("t8") & "','" & request("t9") & "','" & request("t10") & "-" & request("t101") & "','" & request("t11") & "-" & request("t111") & "','" & request("t12") & "','" & traffic_tools & "'," & traffic_tools_count & "," & p1 & "," & p2 & ",'" & request("t15") & "','" & request("t16") & "','" & request("t17") & "','" & request("t18") & "','" & session("date") & "')") set rs1 = conn.execute("select top 1 * from 公司資料表") set mymail=createobject("CDONTS.newmail") mymail.to=rs1("email") mymail.from=rs1("email") mymail.subject="台明將－台灣玻璃館預約申請資料！" mymail.body="預約申請表編號："& Form_No & vbcrlf & _ "團體名稱：" & request("t1") & vbcrlf & _ "參觀日期 / 時間：" & doublenum(request("t3")) & "/" & doublenum(request("t4")) & "/" & doublenum(request("t5")) & " " & doublenum(request("t6")) & ":" & doublenum(request("t7")) & vbcrlf & _ "申請日期："&date() mymail.send set mymail=nothing warn("預約申請成功，我們會儘速派專人與您聯絡，謝謝！") end if function chktxt(txtstr) a = "#'$%" chktxt = 0 for i = 1 to len(a) if instr(txtstr,mid(a,i,1)) then chktxt = 1 end if next end function %>
線上預約
 

參觀預約表單

以下粗框內標明＊的資料，請確實填寫以利作業。
*團體名稱
*團體屬性 工商 宗教 教育事業 政府機關 其他
*參觀時間 民國 年 月 日 時 分(※本館導覽需要45分~1小時)
*聯絡人 *行動電話
*聯絡電話 - *傳真電話 -
*電子郵件
*交通工具 遊覽車 轎車 其他 ，共 台。
*參訪人數 大人: 人 / 小孩: 人 *解說服務 需要 不需要
*路線行程
  • 您蒞臨本館之前的行程是？
  • 您離開本館之後的行程是？
*從何得知
*本館資訊

 

注意事項：

  1. 凡欲參訪者基本人數20人以上需事先預約，超過五台遊覽車以上，請分時段。
  2. 申請預約團體請於參觀日前三天完成預約，若未接到確認電話請主動與本館聯繫；若未能於此時段內完成預約，採自由參觀。本館入館時間為AM 8:00 ～ PM 6:00,建議提早一個小時入館，方可參觀完成。
  3. 為確保已預約團體參觀之品質，未能於預約時間內抵達者，本館保留解說人員30分鐘，超過此時段恕無法安排導覽，若行程、人數有異動時，請務必提前通知本館。並請隨身攜帶預約單以便作業。
  4. 若同時段解說人員已安排滿檔，請事後預約之團體調整時段，若時段上無法做配合，本館提供以下方式:A.郵寄台灣玻璃館DVD導覽光碟由團體自行參觀。B.請參訪團體自行參觀。
  5. 禁止飲食、嚼檳榔、吸煙、喝酒及攜帶寵物進入本館。
  6. 本館皆為玻璃製品，故參觀者請勿穿著不整或拖鞋等入館，以避免受傷。
  7. 本館整體工程尚未完工，請遵循工作人員的接待及導引，保持安靜，注意安全。
  8. 基於安全考量，國中以下參訪人員請採大人、小孩1比5之比例。

相關資訊：

  1. 《下載參觀路線圖》
  2. 《下載預約表單》

財團法人將林教育基金會：

  1. 本館館址：彰化縣鹿港鎮鹿工南四路30號
  2. 聯絡電話：04-7811299
  3. 傳眞：04-7811303
  4. 電郵：tgh.glin@msa.hinet.net tmgmg@ms6.hinet.net
  5. 網 址：www.tmg.com.tw 請於傳真或電郵後來電確認
 
  top