<%@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("利率"))+",年限="+cstr(Request("年限"))+" WHERE  名稱='"+cstr(rs("名稱"))+"'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Response.Redirect "jijin.asp?Page=" & PageNo
%>
<%
rs.Close()
Set rs = Nothing
%>