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:
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="VBScript"%>
<%
Dim oRS, oConn
Set oRS = Server.CreateObject("ADODB.Recordset"
Set oConn = Server.CreateObject("ADODB.Connection"
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("employees.mdb"
oConn.Open
oRS.Open "SELECT * FROM Employees Where NameLast = '" & UCase(Request.QueryString("SrchLname") & "' AND Password = '" & UCase(Request.QueryString("SrchPassword") & "'", oConn, 2, 3
If oRS.EOF Then
Response.Write "&SrchMessage=Employee+information+not+found.&LastName=Not+Found&FirstName=Not+Found&Salary=0.00"
Else
oRS("Mon" = Request.QueryString("Mon"
oRS("Tue" = Request.QueryString("Tue"
oRS("Wed" = Request.QueryString("Wed"
oRS("Thu" = Request.QueryString("Thu"
oRS("Fri" = Request.QueryString("Fri"
oRS("Sat" = Request.QueryString("Sat"
oRS("Sun" = Request.QueryString("Sun"
oRS("Monday" = CINT(Request.QueryString("Monday")
oRS("Tuesday" = CINT(Request.QueryString("Tuesday")
oRS("Wednesday" = CINT(Request.QueryString("Wednesday")
oRS("Thursday" = CINT(Request.QueryString("Thursday")
oRS("Friday" = CINT(Request.QueryString("Friday")
oRS("Saturday" = CINT(Request.QueryString("Saturday")
oRS("Sunday" = CINT(Request.QueryString("Sunday")
oRS.Update
'calculate rates
S = CINT(Server.URLEncode(oRS("Salary"))
FS = FormatCurrency(S)
MO = CINT(Server.URLEncode(oRS("Monday"))
TU = CINT(Server.URLEncode(oRS("Tuesday"))
WE = CINT(Server.URLEncode(oRS("Wednesday"))
TH = CINT(Server.URLEncode(oRS("Thursday"))
FR = CINT(Server.URLEncode(oRS("Friday"))
SA = CINT(Server.URLEncode(oRS("Saturday"))
SU = CINT(Server.URLEncode(oRS("Sunday"))
TOT = MO+TU+WE+TH+FR+SA+SU
GRS = TOT * S
GRS = FormatCurrency(GRS)
Response.Write "&Hours=" & TOT
Response.Write "&Gross=" & GRS
Response.Write "&Monday=" & CInt(Server.URLEncode(oRS("Monday")) & "&Tuesday=" & CInt(Server.URLEncode(oRS("Tuesday")) & "&Wednesday=" & CInt(Server.URLEncode(oRS("Wednesday")) & "&Thursday=" & CInt(Server.URLEncode(oRS("Thursday")) & "&Friday=" & CInt(Server.URLEncode(oRS("Friday")) & "&Saturday=" & CInt(Server.URLEncode(oRS("Saturday")) & "&Sunday=" & CInt(Server.URLEncode(oRS("Sunday"))
Response.Write "&Mon=" & Server.URLEncode(oRS("Mon") & "&Tue=" & Server.URLEncode(oRS("Tue") & "&Wed=" & Server.URLEncode(oRS("Wed") & "&Thu=" & Server.URLEncode(oRS("Thu") & "&Fri=" & Server.URLEncode(oRS("Fri") & "&Sat=" & Server.URLEncode(oRS("Sat") & "&Sun=" & Server.URLEncode(oRS("Sun")
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
MY SITE IS LOCATED AT:
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="VBScript"%>
<%
Dim oRS, oConn
Set oRS = Server.CreateObject("ADODB.Recordset"
Set oConn = Server.CreateObject("ADODB.Connection"
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("employees.mdb"
oConn.Open
oRS.Open "SELECT * FROM Employees Where NameLast = '" & UCase(Request.QueryString("SrchLname") & "' AND Password = '" & UCase(Request.QueryString("SrchPassword") & "'", oConn, 2, 3
If oRS.EOF Then
Response.Write "&SrchMessage=Employee+information+not+found.&LastName=Not+Found&FirstName=Not+Found&Salary=0.00"
Else
oRS("Mon" = Request.QueryString("Mon"
oRS("Tue" = Request.QueryString("Tue"
oRS("Wed" = Request.QueryString("Wed"
oRS("Thu" = Request.QueryString("Thu"
oRS("Fri" = Request.QueryString("Fri"
oRS("Sat" = Request.QueryString("Sat"
oRS("Sun" = Request.QueryString("Sun"
oRS("Monday" = CINT(Request.QueryString("Monday")
oRS("Tuesday" = CINT(Request.QueryString("Tuesday")
oRS("Wednesday" = CINT(Request.QueryString("Wednesday")
oRS("Thursday" = CINT(Request.QueryString("Thursday")
oRS("Friday" = CINT(Request.QueryString("Friday")
oRS("Saturday" = CINT(Request.QueryString("Saturday")
oRS("Sunday" = CINT(Request.QueryString("Sunday")
oRS.Update
'calculate rates
S = CINT(Server.URLEncode(oRS("Salary"))
FS = FormatCurrency(S)
MO = CINT(Server.URLEncode(oRS("Monday"))
TU = CINT(Server.URLEncode(oRS("Tuesday"))
WE = CINT(Server.URLEncode(oRS("Wednesday"))
TH = CINT(Server.URLEncode(oRS("Thursday"))
FR = CINT(Server.URLEncode(oRS("Friday"))
SA = CINT(Server.URLEncode(oRS("Saturday"))
SU = CINT(Server.URLEncode(oRS("Sunday"))
TOT = MO+TU+WE+TH+FR+SA+SU
GRS = TOT * S
GRS = FormatCurrency(GRS)
Response.Write "&Hours=" & TOT
Response.Write "&Gross=" & GRS
Response.Write "&Monday=" & CInt(Server.URLEncode(oRS("Monday")) & "&Tuesday=" & CInt(Server.URLEncode(oRS("Tuesday")) & "&Wednesday=" & CInt(Server.URLEncode(oRS("Wednesday")) & "&Thursday=" & CInt(Server.URLEncode(oRS("Thursday")) & "&Friday=" & CInt(Server.URLEncode(oRS("Friday")) & "&Saturday=" & CInt(Server.URLEncode(oRS("Saturday")) & "&Sunday=" & CInt(Server.URLEncode(oRS("Sunday"))
Response.Write "&Mon=" & Server.URLEncode(oRS("Mon") & "&Tue=" & Server.URLEncode(oRS("Tue") & "&Wed=" & Server.URLEncode(oRS("Wed") & "&Thu=" & Server.URLEncode(oRS("Thu") & "&Fri=" & Server.URLEncode(oRS("Fri") & "&Sat=" & Server.URLEncode(oRS("Sat") & "&Sun=" & Server.URLEncode(oRS("Sun")
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>