<%
if request("edit") = "yes" then
query3 = " Select * from T_type "
query3 = query3 & " where type_id =" & request("type_id")
set rs2=server.createobject("adodb.recordset")
rs2.open query3,oConn,3,1,1
type_id = rs2("type_id")
'sql2 = "select * from T_type_type where type_id = " & request("type_id")
'response.write sql2
'response.end
'Create_Ado rs2, sql2, 3,1,1
end if
if request("type_name") <> "" then
if cstr(trim(request("old_type_name"))) <> cstr(trim(request("type_name"))) then
sql4 = "select * from T_type where type_name = '" & request("type_name") & "' and type_id = " & request("type_id")
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
end if
sql = "Select * from T_type where type_id = " & request("type_id")
set rs1=server.createobject("adodb.recordset")
rs1.open sql,oConn,3,2,1
'Create_Ado rs1, sql, 3,2,1
rs1("type_name") = request("type_name")
rs1("seq") = request("seq")
rs1("valid") = request("valid")
rs1.update
Response.Write ""
%>
`
<%
response.end
rs1.Close
Set rs1 = Nothing
end if
%>