...
</body>
<%
' ------------- instanziieren der DB-Connection und des Recordsets
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset") ' ------------- die DB wird nach dem Recordset mit der ID vom Querystring durchsucht
strSQL = "Select * FROM Customers WHERE CustomerID = " & Request.QueryString("id")
' ------------- öffnen der Connection und des Recordsets
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" _
& Server.MapPath("./db/") & "dbcustomer.mdb;"
rs.Open strSQL,conn
' ------------- Form mit den Detail-Angaben des gewählten Customers
%>
<!-- hier steht die Form -->
<%
' ------------- Recordset wird geschlossen und zerstört
rs.Close
set rs = nothing
' ------------- Update des Recordsets mit UPDATE
if Request.Form("update") = "Update" then
conn.Execute "UPDATE Customers SET CompanyName = '" _
& Request.Form("companyname") _
& "', ContactName = '" & Request.Form("contactname") _
& "', City = '" & Request.Form("city") _
& "' where CustomerID = " & Request.Querystring("id") & ";"
' ------------- zerstören der Verbindung zur DB
set conn = nothing
' ------------- datagrid.asp aufrufen über Response.Redirect
Response.Redirect "datagrid.asp"
end if
%>
</BODY>
</HTML> |