DBPix Sample Source Code: item_submit.asp
Back to sample
<!--#include file="config.inc" -->
<!--#include File="adovbs.inc"-->
<%
' Un-persist the rs from the Request object & attach the (disconnected) recordset back to the database
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockBatchOptimistic
.Open Request
.ActiveConnection = GetConnectString
End With
if NOT (rs.EOF AND rs.BOF) then
rs("DateChanged") = now
End If
' Debug code to save the recordset to an xml file (must not already exist)
' rs.save "d:\server.xml", adPersistXML
rs.UpdateBatch
rs.Close
set rs = nothing
response.write("OK")
%>
Back to sample
|
Home
Tutorials
