Response.Writeを使用して更新するには

質問

いつもお世話になってます。
前のページでIDで検索し、更新ボタンをクリックするとkousin.aspへ表示しているIDのレコードをそのまま表示して更新をしたいのですがうまくいきません。
Response.Writeのせいでしょうか？宜しくお願いします。
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ObjConn,ObjRS
pickup = Request.Form("uID")
MSACFN = Server.MapPath("dbname.mdb")
DBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MSACFN
Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjConn.Open DBFile
sql="select * from tablename where uID = '"&pickup&"'"
Set DBexe = ObjConn.Execute(sql)
ObjRS.CursorLocation = 3
ObjRS.Open "select * from tablename" ,ObjConn,3,3
Response.Write "<form method=""POST"" action=""kousin.asp"">"
Response.Write "<table width=""519"" border=""1"">"
Response.Write "<tr>"
Response.Write "<tr><td>" & ("ID") & "</td><td>" & ObjRS("uID") & "</td></tr>"
Response.Write "<tr><td>" & ("氏名") & "</td><td>"& ObjRS("uNAME") & "</td></tr>"
Response.Write "<tr><td>" & "<input type=""hidden"" value=""uID""><input type=""submit"" value=""更新"" onClick='return checkForm()'><input type=""button"" onclick=""del.asp""name=""削除"" value=""削除""></td>"
Loop
Response.Write "</table>"
ObjRS.close
Set ObjRS=Nothing
ObjConn.close
Set ObjConn=Nothing
%>

回答No.5

tidu · ベストアンサー

だめでしたかー。

Microsoftの
http://support.microsoft.com/default.aspx?scid=kb;ja;202125
上記の方法はもう試してますか？

補足

tiduさん
ご無沙汰しております。
上記の件試しましたが、エラーになり出来ませんでした。
IDを引く方法が間違っているんでしょうかね。

回答No.4

tidu

追加です。
ちょっと気になったのですが、
Formタグが閉じられてないのですが、実際のソースではちゃんと</form>で閉じてますよね？

補足

tiduさん
毎々有難うございます
Formタグは閉じています。
教えて頂いた​http://gate.ruru.ne.jp/kakucha/asp/37.aspですが、私も試して見たのですが途中でエラーになってしまいあきらめました。

回答No.3

tidu

http://gate.ruru.ne.jp/kakucha/asp/37.asp

このページとかどうでしょう？
応用すればharuka-00さんがやりたいことができそうな気がします。

回答No.2

tidu

inputタグに値を設定していない気がしますが、気のせいでしょうか？
<input type=""hidden"" value=""uID"">
↓
このuID部分にもObjRS.Fields.Item("カラム名").valueを指定してあげないと引き継げません。

実際ブラウザでこのASPを見た際のソースを確認してみてください。inputタグに値が入っていれば引き継げますよ（＾＾

補足

tiduさん
有難うございます。
ObjRS.Fields.Item("カラム名").valueは変更してみましたが、ページを移動した際にURLにhttp://～～～～～/idou.asp?page3などとなってしまうためか更新ボタンを押しても表示しているレコードを更新できません。
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ObjConn,ObjRS
pickup = Request.Form("uID")
MSACFN = Server.MapPath("dbname.mdb")
DBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MSACFN
Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjConn.Open DBFile
sql="select * from dbname where 'uID = ' "&pickup&""
'//sql="select * from dbname where uID = '"&pickup&"'" (文字データは'"をつける）
Set DBexe = ObjConn.Execute(sql)
ObjRS.CursorLocation = 3
ObjRS.Open "select * from tablename" ,ObjConn,3,3
ObjRS.PageSize=1
pagesize=ObjRS.PageSize
pagecount=ObjRS.PageCount
ObjRS.MoveFirst

If Request.QueryString("page")="" Then
page=1
Else
page=Cint(Request.QueryString("page"))
End If

ObjRS.AbsolutePage = page

Dim CurrentRecord
CurrentRecord=1

If page = 1 OR page = "" Then
Response.Write "<b><font color=""#cfcfcf"">前の " & pagesize & " 件</font></b>"
ELSE
Response.Write "<a href=""" & sFILE & "?page=" & page-1 & """>前の " & pagesize & " 件</a>"
End If
Response.Write "-"
If page < pagecount Then
Response.Write "<a href=""" & sFILE & "?page=" & page+1 & """>次の " & pagesize & " 件</a>"
ELSE
Response.Write "<b><font color=""#cfcfcf"">次の " & pagesize & " 件</font></b>"
End If

Response.Write "<hr>"

Do while (NOT ObjRS.EOF) AND (CurrentRecord <= Pagesize)
Response.Write "<form method=""POST"" action=""kousin2.asp"">"
Response.Write "<table width=""519"" border=""1"">"
Response.Write "<tr>"
Response.Write "<tr><td width=""200"">" & "</td><td width=""200"">" & "</td></tr>"
Response.Write "<tr><td>" & ("ID") & "</td><td>" & ObjRS.Fields.Item("uID").value & "</td></tr>"
Response.Write "<tr><td>" & ("TYPE") & "</td><td>" & ObjRS.Fields.Item("uTYPE").value & "</td></tr>"
Response.Write "<tr><td>" & ("uNAME") & "</td><td>"& ObjRS.Fields.Item("uNAME").value & "</td></tr>"
Response.Write "<tr><td>" & "<input type=""hidden"" value=""uID""><input type=""submit"" value=""更新"" onClick='return checkForm()'><input type=""button"" onclick=""del.asp""name=""削除"" value=""削除""></td>"
Do Until ObjRS.EOF
ObjRS.MoveNext
Loop
Response.Write "</table>"
Loop

ObjRS.close
Set ObjRS=Nothing
ObjConn.close
Set ObjConn=Nothing

%>

回答No.1

tidu

ObjRS("uNAME")を
ObjRS.Fields.Item("カラム名").value
という形に変更しても取得できませんか？

補足

tiduさん
ありがとうございます。
レコードの移動を使わなければ出来ましたが。レコードの移動をした場合kousin.aspで前のページの情報が取れないのはなぜでしょう。
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ObjConn,ObjRS
pickup = Request.Form("uID")
MSACFN = Server.MapPath("dbname.mdb")
DBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MSACFN
Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjConn.Open DBFile
sql="select * from tablename where 'uID = ' "&pickup&""
'//sql="select * from tablename where uID = '"&pickup&"'"
Set DBexe = ObjConn.Execute(sql)
ObjRS.CursorLocation = 3
ObjRS.Open "select * from tablename" ,ObjConn,3,3
ObjRS.PageSize=1
pagesize=ObjRS.PageSize
pagecount=ObjRS.PageCount
ObjRS.MoveFirst
If Request.QueryString("page")="" Then
page=1
Else
page=Cint(Request.QueryString("page"))
End If
ObjRS.AbsolutePage = page
Dim CurrentRecord
CurrentRecord=1
If page = 1 OR page = "" Then
Response.Write "<b><font color=""#cfcfcf"">前の " & pagesize & " 件</font></b>"
ELSE
Response.Write "<a href=""" & sFILE & "?page=" & page-1 & """>前の " & pagesize & " 件</a>"
End If
Response.Write "-"
If page < pagecount Then
Response.Write "<a href=""" & sFILE & "?page=" & page+1 & """>次の " & pagesize & " 件</a>"
ELSE
Response.Write "<b><font color=""#cfcfcf"">次の " & pagesize & " 件</font></b>"
End If
Response.Write "<hr>"
Do while (NOT ObjRS.EOF) AND (CurrentRecord <= Pagesize)
Response.Write "<form method=""POST"" action=""kousin2.asp"">"
Response.Write "<table width=""519"" border=""1"">"
Response.Write "<tr>"
Response.Write "<tr><td width=""200"">" & "</td><td width=""200"">" & "</td></tr>"
Response.Write "<tr><td>" & ("ID") & "</td><td>" & ObjRS.Fields.Item("uID").value & "</td></tr>"
Response.Write "<tr><td>" & ("TYPE") & "</td><td>" & ObjRS.Fields.Item("uTYPE").value & "</td></tr>"
Response.Write "<tr><td>" & ("名前 ") & "</td><td>"& ObjRS.Fields.Item("uNAME").value & "</td></tr>"
Response.Write "<tr><td>" & "<input type=""hidden"" value=""uID""><input type=""submit"" value=""更新"" onClick='return checkForm()'><input type=""button"" onclick=""del.asp""name=""削除"" value=""削除""></td>"
Do Until ObjRS.EOF
ObjRS.MoveNext
Loop
Response.Write "</table>"
Loop

ObjRS.close
Set ObjRS=Nothing
ObjConn.close
Set ObjConn=Nothing
%>