Set oConn = Server.CreateObject("ADODB.Connection"
Set oRS = Server.CreateObject("ADODB.Recordset"
oConn.Open "dsn=MyVFPDSN"
IF oConn.State <> 1 Then
'you got a problem, abort
END IF
oRS.Open "MyTable", oConn, 1, 3, 2
IF oRS.State = 1 Then
oRS.AddNew
oRS.Fields("Field1".Value = "to"
oRS.Fields("Field2".Value = 2
oRS.Update
oRS.Close
END IF
oConn.Close
SET oConn = NOTHING
SET oRS = NOTHING
If I've misunderstood your question, my apologies - but you'll need to provide more description of what you are doing. Jon Hawkins
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.