<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim clother,furniture,automobile,house,other,Rs,TxtSql
'進行安全性監測，看數據來源是否是本服務器頁面
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
response.write "<b>請不要從非本服務器的頁面提交信息</b>"
response.redirect "default.asp"
end if
%>

<% 

cash=request.Form("cash")
check=request.Form("check")
accrual=request.Form("accrual")
bank=request.Form("bank")
arrearage=request.Form("arrearage")
response.Write(cash)

Set Rs=Server.CreateObject("ADODB.Recordset")
txtsql="delete from 金融資產表"
conn.execute(txtsql)
txtsql="insert into 金融資產表 values("+cash+","+check+","+accrual+","+bank+","+arrearage+")"
conn.execute(txtsql)
response.Redirect("main.asp")
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_STRING
Command1.CommandText = "UPDATE 金融資產表 SET 應收帳款=(select 數額 from 短期債權)   "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>