<!--#include file="conn.asp"-->
<!--#include file="islogin.asp"-->
  <%
     ReID=request("Reid")
     re=request("re")
     ReMemberID=session("MemberID")
     ReMember=session("Member")
	 
	if re="" then 
    response.Write"<script language=Javascript>alert('內容不能為空！');" 
    response.write"javascript:history.go(-1)</script>" 
    response.end 
    end if
	 
      if ReMember="" and ReMemberID="" then
      response.write "<script>alert('請重新登錄！');history.go(-1);</script>"
	  response.End()
      end if
	  
     set rs=server.createobject("adodb.recordset")
     sql="select * from KHre where (id=null)"
     rs.open sql,conn,1,3
	 rs.addnew
    rs("ReID")=ReID
    rs("ReMemberID")=ReMemberID
    rs("ReMember")=ReMember
    rs("re")=re
    rs("retime")=now
    rs.update
    rs.close
    set rs=nothing
 %> 	
 <%
     uptime=now
     set rs=server.createobject("adodb.recordset")
     sql="select id,MemberID,uptime from KH where MemberID="&session("MemberID")&" and ID="&ReID&" "
     rs.open sql,conn,1,3
	 rs("uptime")=now
	 rs.update
	 rs.close
	 set rs=nothing
     conn.close
     set conn=nothing
     response.redirect "KHList.asp?id="&ReID&""
%>