?<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin") 
  name=Request("name")
  typex=Request("typex")
  ad_y=Request("ad_y")
  acc=Request("acc")
  times=Request("times")
  you=Request("you")
  types=Request("types")
  money=Request("money")
  
if name="" or typex="" or ad_y="" or acc="" or times="" or you="" or types="" then 
     response.write "<card id='card1' title='出錯提示!'>"
     response.write "<p align='left'>"
     response.write "所有項不能為空!"
     response.write "<br/><a href='admin_adup.asp?admin=" & admin & "'>返回重寫</a></p></card></wml>"
	      response.end
end if
  
Set rs= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From ad_reg"
rs.Open sql,conn,1,2

rs.AddNew
rs("name")=name
rs("type")=typex
rs("ad_y")=ad_y
rs("acc")=acc
rs("time")=times
rs("you")=you
rs("types")=types
rs("money")=money
rs.Update
 Response.write "<card id='card1' title='添加成功' ontimer='admin.asp?admin=" & admin & "'><timer value='20'/><p>正在返還!"
 Response.write "<br/><a href='admin.asp?admin=" & admin & "'>點擊返回管理頁</a></p></card></wml>"
set rs=nothing
conn.close
set conn=nothing
	%>