<!--#include file="../checkLogin.asp"-->
<!--#include file="../SQLconn.asp"-->


<%   strId=Int(request("id"))
    vid=request("vid")
    tname=trim(request("tname"))
    vname=trim(request("vname"))
    shuoming=trim(request("shuoming"))

set Rssave=server.createobject("adodb.recordset")
Rssavesql="select * from varset where  id='"&strId& "'"
Rssave.open Rssavesql,conn,1,3
  
	Rssave("vid")=vid
    Rssave("vname")=vname
	Rssave("shuoming")=shuoming
    Rssave.update


Rssave.close
response.redirect   "setSubject.asp?tname="&tname
%>


