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
%>
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
お礼
自分で回答の補足に質問してました・・・。 次回もよろしくお願いします。 とても助かりました♪
補足
すばやい回答ありがとうございます。 Response.WriteはPHPでの記述方法もありますか？