%
'強迫由首頁進入
if session("iffront")=empty or session("iffront")=false then
response.redirect "../../../index.asp"
end if
'檢核會員資格
if not session("ifpass") then
response.redirect "../../../members/login.asp"
end if
if session("sex")="m" then
s="先生"
else
s="小姐"
end if
d=date
t=time
if t <= #11:00:00# then
gree="早安!"
else
if t >= #18:00:00# then
gree="晚安!"
else
gree="午安!"
end if
end if
set conn=server.createobject("ADODB.Connection")
Params = "Provider=SQLOLEDB.1"
Params = Params & ";Data Source=MONEYEXPRESS"
Params = Params & ";User ID=ForAsp"
Params = Params & ";Password=roSe"
Params = Params & ";Initial Catalog=MoneyExpress"
conn.Open "MoneyExpress"
questring="select * from memberexten where memberID=" & CStr(session("memberID"))
set rs=server.createobject("ADODB.Recordset")
rs.open questring,conn,3,1
if rs is nothing then
response.write "查詢失敗"
response.end
end if
if not rs.eof then
birthday=rs("birthday")
marry=rs("marry")
children=rs("children")
incomeyear=rs("incomeYear")
labor=rs("labor")
finalpay=rs("finalpay")
rs.close
conn.close
else
rs.close
conn.close
response.redirect "../common/form.asp?turnto=purchinsur"
end if
%>