 我想了解課程，請與我聯絡
|
<%
acts = Request.Form("acts")
If acts = "sends" Then
get_name = Request.Form("name")
get_phone = Request.Form("phone")
get_area = Request.Form("area")
get_class = Request.Form("class")
If get_name = Empty Then Errs = "請輸入姓名"
If get_phone = Empty Then
If Errs <> Empty Then Errs = Errs & "\n"
Errs = Errs & "請輸入電話"
End If
If get_area = Empty Then
If Errs <> Empty Then Errs = Errs & "\n"
Errs = Errs & "請選擇上課校區"
End If
If get_class = Empty Then
If Errs <> Empty Then Errs = Errs & "\n"
Errs = Errs & "請選擇有興趣了解的課程"
End If
If Errs = Empty Then
Tmail = "lily@language-center.com.tw"
mail_s = 1
if instr(get_area,"台北站前校") > 0 then
Tmail = "service@language-center.com.tw"
mail_s = 0
end if
if instr(get_area,"東區校") > 0 and mail_s > 0 then
Tmail = "lolita@language-center.com.tw"
mail_s = 0
end if
if instr(get_area,"公館校") > 0 and mail_s > 0 then
Tmail = "karen@language-center.com.tw"
mail_s = 0
end if
if instr(get_area,"士林校") > 0 and mail_s > 0 then
Tmail = "shilin@language-center.com.tw"
mail_s = 0
end if
if instr(get_area,"板橋校") > 0 and mail_s > 0 then
Tmail = "kammy@language-center.com.tw"
mail_s = 0
end if
if instr(get_area,"桃園校") > 0 and mail_s > 0 then
Tmail = "taoyuan@language-center.com.tw"
mail_s = 0
end if
if instr(get_area,"新竹站前") > 0 and mail_s > 0 then
Tmail = "shinchu@language-center.com.tw"
mail_s = 0
end if
if instr(ep_area,"台中站前校") > 0 and mail_s > 0 then
Tmail = "ivy@air-line.com.tw"
mail_s = 0
end if
if instr(ep_area,"台中逢甲校") > 0 and mail_s > 0 then
Tmail = "chufan@sparqnet.net"
mail_s = 0
end if
body = "姓名：" & get_name & "
"
body = body & "電話：" & get_phone & "
"
body = body & "上課校區：" & get_area & "
"
body = body & "有興趣了解的課程：" & get_class
Set mail = Server.CreateObject("Jmail.Message")
mail.Logging = True
mail.Silent = True
mail.Charset = "big5"
mail.ContentType = "text/html"
mail.ISOEncodeHeaders = False
mail.From = "service@language-center.com.tw"
mail.FromName = "ELITE菁英國際語言教育中心"
mail.AddRecipient Tmail
mail.Subject = "我想了解課程，請與我聯絡(TOEFL網站)"
mail.HTMLBody = body
If mail.Send("168.95.4.211") Then errs = "您的資料已送出，我們將與你聯絡"
End If
End If
%>
|
| |
|
|
 |
台北南陽 台北市南陽街16號1樓
TEL:(02)2331-5500 |
|
台北站前 台北市許昌街30號5樓 (南陽街口，彩虹3C正後方) TEL:(02)2388-1155 |
|
台北東區 台北市忠孝東路四段96-4號5樓 ( 大安路口、永福樓正對面) TEL:(02)2772-2020 |
|
台北公館 台北市羅斯福路三段335號4樓 TEL:(02)23687755 |
|
台北士林 台北市中正路258號2樓(文林路口) TEL:(02)8866-1166 |
|
台北板橋 板橋市中山路一段10號4樓之1(捷運府中站，燦坤樓上) TEL:(02)2952-6600 |
|
桃園站前 桃園市復興路123號3樓(中正路口) TEL:(03)3331444 |
|
新竹站前 新竹市東門街48號2樓(郵局對面) TEL：(03)5246600 |
|
|
 |
|
