IDs = Request.Form ("IDs")
Function fixQuotes(theString)
fixQuotes=Replace(theString, "'", "''")
End Function
IDs=fixQuotes(IDs)
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & Server.MapPath("db\Register.mdb") & ";" & _
"Uid=admin;" & _
"Pwd=;"
mySQL = "SELECT * FROM customer WHERE IDs = '" & IDs & "' ;"
Set oRS = oConn.Execute (mySQL)
Response.Write("<table align=center cellpadding=5 cellspacing=0 border=1 >")
Do Until oRS.EOF
Response.Write "<tr>"
Response.Write "<td>"
Response.Write oRS.Fields("address").Value
Response.Write "</td>"
Response.Write "<td>"
Response.Write oRS.Fields("Bdate").Value
Response.Write "</td>"
Response.Write "<td>"
Response.Write oRS.Fields("firstname").Value
Response.Write "</td>"
Response.Write "<td>"
Response.Write oRS.Fields("lastname").Value
Response.Write "</td>"
Response.Write "<td>"
Response.Write oRS.Fields("email").Value
Response.Write "</td>"
Response.Write "<td>"
Response.Write oRS.Fields("sex").Value
Response.Write "</td>"
Response.Write "<td>"
Response.Write oRS.Fields("phone").Value
Response.Write "</td>"
Response.Write "<td>"
Response.Write oRS.Fields("IDs").Value
---> Response.Write.Form("IDs").Value = oRS.Fields("IDs").Value
Response.Write "</td>"
oRS.MoveNext
Response.Write "</tr>"
Loop
Response.Write("</table>")
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
i want to change the field id in the form by using asp variable
i using sql query because i search this id its woeking but when its go to this line
Response.Write.Form("IDs").Value = oRS.Fields("IDs").Value
i got error all the
so how can i do that?
What I have tried:
i tried this option but i got error too
that say dont much variable and it dont recognize the object :
Response.Write.Form("IDs").Value = oRS.Fields("IDs").Value
Response.Form("IDs").Value = oRS.Fields("IDs").Value
Form("IDs").Value = oRS.Fields("IDs").Value
Request.Form("IDs").Value = oRS.Fields("IDs").Value
Request.Write.Form("IDs").Value = oRS.Fields("IDs").Value