Hello,

I have trouble doing the following with ASP. I'm using Access DB and what I want to do is the following:
1-Display the content of a table named "test" (no problem)
2-Update the record where a certain field "FileDesc" is equal to "A", just make it "X" instead.
3Re-Display the content of "test".

I want to see,on the same ASP page, the content of the table before and after the update.

i tried to do the Update with a recordset and a command but no way. The update is well performed but what I see on the screen is either 2 times the data before the Update or 2 times the data after the update.

Can someone help please?

It would be better if you could post the code ... so that somebody could check and revert.

Best Regards
Vadivel

MVP ASP/ASP.NET
http://vadivel.thinkingms.com

Hi,

you can do as folows..

If Request.querystring("mode") = "update" Then
     write update code here.
End If


write code to display records...
suppose if you have the link to update then use like this..
<a href="samePage.asp?mode=update">update</a>

It will post you to the same page with mode ="update" Then your update will code will be executed and agin it will display latest records..

But your update code should be at the top.It is must after that only display code should be there in that page.


Thans
Suresh

Sorry guys, here is the code and thanks for your replies.

<%
dim Connect, objRS, objRS1, objConn, objRSU, strSQL
    Connect= "DSN=TC-Sin-Av-Dap;DRIVER={Microsoft Access Driver (*.mdb)}"
    Set objRS = Server.CreateObject("ADODB.Recordset")
    Set objRS1 = Server.CreateObject("ADODB.Recordset")
    Set objRSU = Server.CreateObject("ADODB.Recordset")
    objRS.Open "test", Connect, adCmdTable
Response.Write "Initial data <br>"
While NOT objRS.EOF
    'Display the initial content
    Response.Write objRS.Fields("FileID").Value & ", " & objRS.Fields("FileRefTC").Value & ", " & objRS.Fields("FileDesc").Value & "<br>"
    objRS.MoveNext
Wend
Response.write "<p></p>"
objRS.Close
set objRS = Nothing
'Now change all FileDesc=A to XX
strSQL = "UPDATE test SET FileDesc = 'XX' WHERE FileDesc = 'A'"
objRSU.Open strSQL, Connect, adCmdText

Response.Write "Updated data <br>"
'Display the content after the changes
objRS1.Open "test", Connect, adCmdTable
While NOT objRS1.EOF
    Response.Write objRS1(0) & ", " & objRS1(1) & ", " & objRS1(3) & "<br>"
    objRS1.MoveNext
Wend
objRS1.Close
set objRS1 = Nothing
%>
The result page is:
Initial data
1, 030528-1, A
2, 030528-2, A
3, 50103-1, A
4, 50103-1, B
5, 50104-2, B
6, 50104-2, B
7, 50105-1, C
8, 50105-1, C


Updated data
1, 030528-1, A
2, 030528-2, A
3, 50103-1, A
4, 50103-1, B
5, 50104-2, B
6, 50104-2, B
7, 50105-1, C
8, 50105-1, C

The changes are not displayed while in the DB they are done.

Thanks for your help.