ページング値渡しについて
sea_clear_sky8です。
[環境]
OS ９８SE
PWS
[質問内容]
ページングの値渡しの際がうまくいきません。
忙しいところすいませんがよろしくお願いします。
次のページっていうのをボタンで作って、次の10件が表示させるように
させたいのです。
下記ソースのvar frm = document.GetElemntById("myForm");の部分で
オブジェクトでサポートされていないプロパティまたはメソッド
ですとエラーがでます。
それからコンパイル後、SQLエラーと表示されます。
このSQLエラーというのは下記ソースのエラー処理で行っている
SQLエラーというのが表示されています。
[ソース]
[bunkatsu1.html]
<html>
<body>
<form action="bunkatsu1.asp" method="post">
名前：<input type="text" name="nm">
<input type="hidden" name="page_num" value="0">
<input type="submit" name="exec" value="検索">
</form>
</body>
</html>
[bunkatsu1.asp]
<html>
<script type="text/javascript">
<!--
function myClick()
{
var frm = document.GetElemntById("myForm");
frm.action ="bunkatsu1.ASP";
frm.method= "get";
frm.submit();
}
// -->
</script>
<body>
<%
On Error Resume Next
Dim DB,CMD,RS,AllCnt
'接続処理
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open "mysql"
If Err.number <> 0 then
Response.Write "接続エラー"
Response.End
End If
' LIMITを使ったSELECT文を実行
Set CMD = Server.CreateObject("ADODB.Command")
CMD.ActiveConnection = DB
CMD.CommandText = "select * from test_t " & _
"where name like '%" & Request("nm") & "%' " & _
"order by id " & _
"limit " & Request("page_num")*10 & ",10"
Set RS = CMD.Execute
If Err.number <> 0 then
Response.Write "SQL実行エラー"
Response.End
End If
' 結果出力
Response.Write "<table border=1>"
Response.Write "<tr><td>id</td><td>name</td></tr>"
Do Until RS.EOF
Response.Write "<tr>"
Response.Write "<td>" & RS("id") & "</td>"
Response.Write "<td>" & RS("name") & "</td>"
Response.Write "</tr>"
RS.MoveNext
If Err.number <> 0 then
Response.Write "次データ取得エラー"
Response.End
End If
Loop
Response.Write "</table>"
' 検索条件に該当する全データの件数取得
CMD.CommandText = "select count(*) from test_t " & _
"where name like '%" & Request("nm") & "%' "
Set RS = CMD.Execute
If Err.number <> 0 then
Response.Write "SQL実行エラー"
Response.End
End If
AllCnt=RS(0)
' ページ数表示
if AllCnt>10 then
Response.Write Abs(Int(-1*(AllCnt/10))) & "ページ中の"
Response.Write Request("page_num")+1 & "ページ目を表示<br>"
end if
' 前の10件
if Request("page_num")<>0 then
end if
' 次の10件
if ((Request("page_num")+1)*10) < AllCnt then
response.write "<form id=""myForm"" method=""post"">"
response.write "<input type=""Submit"" value=""次の10件>""
onclick=""myClick();"">"
response.write "<input type=""HIDDEN"" name=""num"" value=""&request(""num"")&"">"
このTEXTボックスはHIDDENのNUMに何が入っているか確認するための
ものです。
response.write "<input type=""text"" name=""test"" value=""&=request(""num"")&"">"
response.write "<input type=""HIDDEN"" name=""page_num"" value=""&request(page_num)+1&"">"
このTEXTボックスはHIDDENのPAGE_NUMに何が入っているか確認するための
ものです。
response.write "<input type=""text"" name=""test1"" value=""request(page_num)+1&"">"
response.write "<input type=""submit"" value=""更新"">"
response.write "</form>"
end if
' レコードセット解放
RS.Close
' 切断
DB.Close
' オブジェクト解放
Set CMD=Nothing
Set RS=Nothing
Set DB=Nothing
%>
</body>
</html>
忙しいところすいませんが、ご教授願います。
よろしくお願いします。
