<%
if request("type_name") <> "" then
sql4 = "select * from T_type where type_name = '" & request("type_name") & "'"
'response.write sql4
'response.end
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,oConn,3,1,1
'Create_Ado rs4, sql4, 3,1,1
if not rs4.eof then
Response.Write ""
response.end
end if
' add news $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
sql = "Select * from T_type "
'Create_Ado rs1, sql, 3,2,1
set rs1=server.createobject("adodb.recordset")
rs1.open sql,oConn,3,2,1
rs1.AddNew
rs1("type_name") = request("type_name")
rs1("seq") = request("seq")
rs1("valid") = request("valid")
rs1.update
sql8 = "select @@IDENTITY"
set rs8=server.createobject("adodb.recordset")
rs8.open sql8,oConn,3,1,1
type_id = rs8(0)
rs8.close
set rs8 = nothing
Response.Write ""
%>
<%
response.end
rs1.Close
Set rs1 = Nothing
end if
%>