aspでaccessにデータを入れ替えすができない？

質問

以下のファイルを実行時にエラーを出てきました。どうすれば直るでしょうか？よろしくお願いします。
使用機械はNECのVC5002D、OSはXPのPRO（MEからのアップグレット）。
------------------------
<%
'分類訂正
Dim StrSQL, rs,newsclass_oldname,newsclass_newname
Set rs = server.CreateObject("ADODB.Recordset")
rs.LockType = adLockOptimistic
StrSQL = "SELECT * FROM newsclass WHERE newsclass_name = '" & request("newsclass_oldname") & "'"
newsclass_oldname=request("newsclass_oldname")
newsclass_newname=request("newsclass_newname")
rs.Open StrSQL, Con,,,adCmdText
rs("newsclass_name") = request("newsclass_newname")
rs.Update----------------line 13
%>
-------------------------------------

HTTP 500.100 - 内部サーバー エラー - ASP エラー
インターネット インフォメーション サービス

--------------------------------------------------------------------------------

技術情報 (サポート担当者用)

エラー タイプ
ADODB.Recordset (0x800A0BCD)
BOF と EOF のいずれかが True になっているか、または現在のレコードが削除されています。要求された操作には、現在のレコードが必要です。
correctnewssort_2.asp, line 13

回答No.1

incho0922

単純に、SELECT文で取り出したレコードセットにレコードがひとつもないのではと思いますが・・・。
「現在のレコードが必要です。」というのは「カレントレコードがない。」という意味かと。
外していたらごめんなさい。