dim cardname,cardtype,cardprice,cardinfo
  cardname=Request.Form("cardname")
  cardtype=Request.Form("cardtype")
  cardprice=Request.Form("cardprice")
  cardinfo=Request.Form("content")
  set rs = Server.CreateObject("adodb.recordset")
  rs.open "select * from ytcw_cards",conn,1,3
  rs.addnew
  rs("card_name")=cardname
  rs("cardtype")="礼品卡"
  rs("card_price")=cardprice
  rs("card_info")=cardinfo
  rs.update
  rs.close
  set rs=nothing