<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../login/check_power.asp"-->
<%
table_name="paytype"
if check_power("參數設置")=0 then
  response.redirect("/login/check_false.asp")
else%><%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "dsn=hotel;"
Recordset1.Source = "SELECT *  FROM db_"&table_name
Recordset1.CursorType = 3
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open
Recordset1_numRows = 0
%> <%
Recordset1.Addnew
recordset1("name").value=request.form("name")
if request.form("memo")<>"" then
  Recordset1("memo").value=request.form("memo")
else
  Recordset1("memo").value=""
end if
if request.form("highnumb")<>"" then
  Recordset1("highnumb").value=Csng(request.form("highnumb"))
else
  Recordset1("highnumb").value=0.00
end if
Recordset1.update
Recordset1.close
response.redirect(table_name&"_show.asp")
%>
<%end if%>