NEED HELP UPDATING RECORDS IN ASP-FLASH

[aviles22]

I AM USING FLASH WITH ASP TO ACCESS AN ACCESS2000 DATABASE I CAN EASILY FIND AND ADD NEW RECORDS BUT WHEN I HAVE ALL THE RECORDS ON SCREEN IN EDITABLE TEXTBOXES IN FLASH AND THE USER CLICKS SAVE AFTER UPDATING CERTAIN FIELDS THEN CLICKS THE BACK BUTTON ON THE SAME SCREEN RETURNING TO THE SEARCH SCREEN AND TRIES TO FIND THE SAME RECORD IT DOESN'T SHOW UP AS UPDATED FROM PREVIOUS UPDATE. BUT WHEN I EXIT OUT OF INTERNET EXPLORER THEN BACK TO MY SITE THEN LOOK FOR THE SAME RECORD IT IS EDITED. WHY. CONFUSED YET. PLEASE HELP

MY SITE IS LOCATED AT:

http://www.websamba.com/aviles22/timesheet.swf

Try it out you add yourself to the database or one of the records is: Lastname - Aviles Password - Kate

This is my ASP PAGE savemp.asp

<%@Language=&quot;VBScript&quot;%>

<%

Dim oRS, oConn

Set oRS = Server.CreateObject(&quot;ADODB.Recordset&quot
Set oConn = Server.CreateObject(&quot;ADODB.Connection&quot

oConn.ConnectionString = &quot;Driver={Microsoft Access Driver (*.mdb)};DBQ=&quot; & Server.MapPath(&quot;employees.mdb&quot
oConn.Open
oRS.Open &quot;SELECT * FROM Employees Where NameLast = '&quot; & UCase(Request.QueryString(&quot;SrchLname&quot) & &quot;' AND Password = '&quot; & UCase(Request.QueryString(&quot;SrchPassword&quot) & &quot;'&quot;, oConn, 2, 3
If oRS.EOF Then
Response.Write &quot;&SrchMessage=Employee+information+not+found.&LastName=Not+Found&FirstName=Not+Found&Salary=0.00&quot;

Else

oRS(&quot;Mon&quot = Request.QueryString(&quot;Mon&quot
oRS(&quot;Tue&quot = Request.QueryString(&quot;Tue&quot
oRS(&quot;Wed&quot = Request.QueryString(&quot;Wed&quot
oRS(&quot;Thu&quot = Request.QueryString(&quot;Thu&quot
oRS(&quot;Fri&quot = Request.QueryString(&quot;Fri&quot
oRS(&quot;Sat&quot = Request.QueryString(&quot;Sat&quot
oRS(&quot;Sun&quot = Request.QueryString(&quot;Sun&quot

oRS(&quot;Monday&quot = CINT(Request.QueryString(&quot;Monday&quot)
oRS(&quot;Tuesday&quot = CINT(Request.QueryString(&quot;Tuesday&quot)
oRS(&quot;Wednesday&quot = CINT(Request.QueryString(&quot;Wednesday&quot)
oRS(&quot;Thursday&quot = CINT(Request.QueryString(&quot;Thursday&quot)
oRS(&quot;Friday&quot = CINT(Request.QueryString(&quot;Friday&quot)
oRS(&quot;Saturday&quot = CINT(Request.QueryString(&quot;Saturday&quot)
oRS(&quot;Sunday&quot = CINT(Request.QueryString(&quot;Sunday&quot)

oRS.Update

'calculate rates
S = CINT(Server.URLEncode(oRS(&quot;Salary&quot))
FS = FormatCurrency(S)
MO = CINT(Server.URLEncode(oRS(&quot;Monday&quot))
TU = CINT(Server.URLEncode(oRS(&quot;Tuesday&quot))
WE = CINT(Server.URLEncode(oRS(&quot;Wednesday&quot))
TH = CINT(Server.URLEncode(oRS(&quot;Thursday&quot))
FR = CINT(Server.URLEncode(oRS(&quot;Friday&quot))
SA = CINT(Server.URLEncode(oRS(&quot;Saturday&quot))
SU = CINT(Server.URLEncode(oRS(&quot;Sunday&quot))
TOT = MO+TU+WE+TH+FR+SA+SU
GRS = TOT * S
GRS = FormatCurrency(GRS)
Response.Write &quot;&Hours=&quot; & TOT
Response.Write &quot;&Gross=&quot; & GRS


Response.Write &quot;&Monday=&quot; & CInt(Server.URLEncode(oRS(&quot;Monday&quot)) & &quot;&Tuesday=&quot; & CInt(Server.URLEncode(oRS(&quot;Tuesday&quot)) & &quot;&Wednesday=&quot; & CInt(Server.URLEncode(oRS(&quot;Wednesday&quot)) & &quot;&Thursday=&quot; & CInt(Server.URLEncode(oRS(&quot;Thursday&quot)) & &quot;&Friday=&quot; & CInt(Server.URLEncode(oRS(&quot;Friday&quot)) & &quot;&Saturday=&quot; & CInt(Server.URLEncode(oRS(&quot;Saturday&quot)) & &quot;&Sunday=&quot; & CInt(Server.URLEncode(oRS(&quot;Sunday&quot))
Response.Write &quot;&Mon=&quot; & Server.URLEncode(oRS(&quot;Mon&quot) & &quot;&Tue=&quot; & Server.URLEncode(oRS(&quot;Tue&quot) & &quot;&Wed=&quot; & Server.URLEncode(oRS(&quot;Wed&quot) & &quot;&Thu=&quot; & Server.URLEncode(oRS(&quot;Thu&quot) & &quot;&Fri=&quot; & Server.URLEncode(oRS(&quot;Fri&quot) & &quot;&Sat=&quot; & Server.URLEncode(oRS(&quot;Sat&quot) & &quot;&Sun=&quot; & Server.URLEncode(oRS(&quot;Sun&quot)



End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>