<!--#include file="pwd.asp" -->
<!--#include file="tsgl_conn.inc" -->
<%
cmc=request.form("mc")

tdm=request.form("tbh")   '類編號

csm=request.form("tsm")
czzm=request.form("tzzm")
if (trim(czzm)="") then
	czzm="不詳 "
end if
ccbs=request.form("tcbs")
if (trim(ccbs)="") then
	ccbs="不詳"
end if
ccbrq=request.form("tcbrq")
if (trim(ccbrq)="") then
	ccbrq=date()
end if

cdj=request.form("tdj")
if (trim(cdj)="") then
	cdj=0.0
end if
ccs=cint(request.form("tcs"))

clrjj=request.form("tlrjj")
if (trim(clrjj)="") then
	clrjj=" "
end if

function sqlstr(data)
	sqlstr="'"&replace(data,"'","''")&"'"
end function


Set RS = Server.CreateObject("ADODB.RecordSet")
sql="select * from "&tdm

application.lock
RS.Open sql, tsgl_Conn
ljs=0
Do While Not RS.EOF 
	jls=jls+1
	rs.movenext
loop
rs.close
set rs=nothing
cbh=tdm&"0"&right(cstr(10000+jls+1),4)

sql="insert into "&tdm&" (bh,sm,zzm,cbs,cbrq,dj,cs,kcs,lrjj) values ('"&cbh&"',"&sqlstr(csm)&",'"&czzm&"','"&ccbs&"','"&ccbrq&"',"&cdj&","&ccs&","&ccs&",'"&clrjj&"')"
tsgl_conn.execute(sql)
session("scbh")=cbh
session("smc")=true
application.unlock

response.redirect "zjsm1.asp"
%>