ASPでボタンクリック時にフォームのリフレッシュ

質問

こんばんわ。

質問です。

ASPで作成した質問ページに表示されている質問の回答と、テキストボックスに入力されている文字列をリフレッシュしたいです。

質問の回答は、ラジオボタンをチェックしてあります。

そして、このあと、ADO接続で、SQLサーバーに接続して、テキストボックスに入力されていた文字列を選択し、文字列がDB内にあれば、その文字列をテキストボックスに再表示します。

以下のようなコードを書きましたが、何も表示されません。

<%

Dim objCon
Dim objRS
Dim strSQL
Dim strUserID
Dim strOCD

'フォーム内のリフレッシュを行いたい

' コネクションオブジェクトの生成
Set objCon = Server.CreateObject("ADODB.Connection")

Set objRS = Server.CreateObject("ADODB.Connection")

' コネクションストリングの設定

objCon.ConnectionString = "Provider=SQLOLEDB;" & _
"User ID=id;" & _
"Password=pw;" & _
"Data Source=server1;" & _
"Initial Catalog=data1"

' コネクションのオープン
objCon.Open

strUserID = obj.uerID.value
set strSQL = "Select ID, dnum from emp Where CorpId＝'"& obj.userID.value &"'"

'レコードセットのオープン
objRS.Open strSQL, objCon, 3

'EOF が True になるまで繰り返し
Do Until objRS.EOF

if objrs.RecordCount=0 then
Msg "正しいIDを入力してください！　Insert correct ID ! "
else
obj.ID.value = strSQL("txtid")
obj.dnum.value = strSQL("txtdnum")
end if

'次のレコードを参照
objRS.MoveNext

Loop

'コネクションのクローズ
objCon.Close

' コネクションオブジェクトの解放
Set objCon = Nothing

%>

ご教示いただけると、幸いです。

回答No.1

noname#259269

このソース、間違いだらけですね。何を参考にしたらこうなるのか…。

とりあえず メモ帳にこの部分のコードを貼り、Server.CreateObject を CreateObject に修正し、拡張子を .vbs に変えて、ASP でない状況で(ただのVBScriptとして)デバッグしてみたら良いと思います。