求助－帮看看

在修改信息的时候，虽然说已修改成功，但是内容根本没有变化，是不是程序问题？请各位高手帮看看：
<%
        lid=request("id")
         set rsU=server.createobject("adodb.recordset")
        sqltext="select * from [user] where id=cint('"&lid&"')"
        rsU.open sqltext,conn,1,1
If request.Form("action")="确认修改" then
        UName=request("user_name")
        UTime=request("time")
        UStage=request("stage")
        UType=request("type")
        USource=request("source")
        UContactor=request("contactor")
        UTelephone=request("telephone")
        UAddress=request("address")
        UEmail=request("email")
        UNetwork=request("network")      
        set rsU=server.createobject("adodb.recordset")
        sqltext="select * from [user] where where id=cint('"&lid&"')"
        rsU.open sqltext,conn,１,3
        rsU("user_name")=UName
        rsU("time")=UTime
        rsU("stage")=UStage
        rsU("type")=UType
        rsU("source")=USource
        rsU("contactor")=UContactor
        rsU("telephone")=UTelephone
        rsU("address")=UAddress
        rsU("email")= UEmail
        rsU("network")=UNetwork
        rsU.update
        response.write "<script language=JavaScript>{window.alert('修改信息成功！');opener.parent.right.location.href='UserInfo.asp';window.close();}</script>"    
        response.end         
End If
%>