|
|
謝謝您使用華南期貨網線上預約開戶。
若您是舊客戶，請至首頁的表格下載，去下載網路交易同意書，再寄給您的營業員即可。
若您是新客戶，完成線上預約開戶之後，我們將會儘快電話與您聯絡，再到營業員處辦理開戶填寫相關資料。 |
•••••••••••••••••••••••••••••••••••••••••
<%
Dim maddress,mconntime,memail,mname,msex,mtelh,mtelo,m_stmp,mtype,mpersonalinfo
'顯示輸入欄或儲存
maddress=trim(request("maddress"))
mconntime=request("mconntime")
memail=trim(request("memail"))
mname=trim(request("mname"))
msex=request("msex")
mtelh=trim(request("mtelh"))
mtelo=trim(request("mtelo"))
m_stmp=trim(request("mmessage"))
mtype=trim(request("mtype"))
mpersonalinfo=trim(request("mpersonalinfo"))
if mpersonalinfo="on" then
mpersonalinfo="Yes"
end if
Dim mailbody
mailbody = "姓名：" & mname & "
" & _
"預約時間：" & now() & "
" & _
"開戶類型：" & mtype & "
" & _
"性別：" & msex & "
" & _
"電話(H)：" & mtelh & "
" & _
"電話(O)：" & mtelo & "
" & _
"Email：" & memail & "
" & _
"通訊住址：" & maddress & "
" & _
"聯絡時間：" & mconntime & "
" & _
"留言：" & m_stmp & "
" & _
"已詳閱個資告知事項：" & mpersonalinfo
if mname <> "" and (mtelh<>"" or mtelo<>"") then
'sql = "select top 1 mno from ft_deal_open with(nolock) order by mno desc"
'rs.open sql,conn,3,3
'if not rs.eof then
'no=rs(0)+1
'no=string(5-len(no),"0")&no
'else
'no="00001"
'end if
'rs.close
'conn.execute "insert into ft_deal_open (mno,mname,msex,mtelh,mtelo,memail,maddress,mmessage,mdate,mconntime,mtype)" & _
' "values ('"&no&"','"&mname&"','"&msex&"','"&mtelh&"','"&mtelo&"','"&memail&"','"&maddress&"','"&mmessage&"','"&mdate&"','"&mconntime&"','"&mtype&"')"
Call SendMail(mailbody)
response.write ""
else
response.write ""
end if
%>
|
線上預約開戶