<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "短期債務表"
rs.CursorType =2
rs.CursorLocation =3
rs.LockType = 1
rs.Open()


If rs Is Nothing Then
    Response.Write "連接失敗"
    Response.End
else 
if rs.bof or rs.eof then
response.Write("abc")
end if	
End If

RecNo = Request( "RecNo" )
PageNo = (RecNo-1) \ 10 + 1
rs.AbsolutePosition = RecNo
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_STRING
Command1.CommandText=  "UPDATE 短期債務表 SET  借款人='"+cstr(Request("借款人"))+"',金額="+Request("金額")+",歸還日期="+cstr(Request("歸還日期"))+" WHERE  借款人='"+cstr(rs("借款人"))+"'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Response.Redirect "duanqi.asp?Page=" & PageNo
%>
<%
rs.Close()
Set rs = Nothing
%>