on ASP / SQL update, refresh display?

PeterMac · Apr 5, 2001

Hello:

I have an ASP app that walks me through a database (Access) and allows me to delete records and update them. However the way that I have my code "working" is that once I click the update button, the code behind the button works (updating the record) but the old information remains in the window until I move to another record and then back to the one that was changed, then I see the changes. Is there a way to "refresh" the current record display without having to move to the next or previous record?

I have played with resync, and with <META REFRESH> but can't seem to figure it out.

I'd be happy to post my code here if that would help...

Peter

foxbox · Apr 6, 2001

is your update code in a seperate ASP file?
Then your last statement in that file should be a redirect to the 'parent'.

Eg:
BrowseFile.asp
Update.asp
Delete.asp

Last line in update.asp: response.redirect "BrowseFile.asp"

(this is just one way of doiing it)

br
Gerard

PeterMac · Apr 6, 2001

no.. the update code is right in the same paging file (so I don't have to send the data to another page)... my code follows... it all works yet may not be as clean as it could be (still learning ASP)... any pointers here would be most appreciated...

Cheers,
Peter
====================

<% @LANGUAGE = VBScript %>
<% Option Explicit
Response.Expires = 0

' ADO constants used in this page
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTableDirect = &H0200
Const adUseClient = 3

Dim objConn, objRS, strQuery
Dim strConnection, strBuild, upd_address
Dim button_next, button_last
Dim button_first, button_previous, page_number

Set objConn = Server.CreateObject("ADODB.Connection&quot

strConnection = "DSN=Portal;Database=Portal;"
objConn.Open strConnection
Set objRS = Server.CreateObject("ADODB.recordset&quot

objRS.PageSize = 1
objRS.CacheSize = 1
objRS.CursorLocation = adUseClient

objRS.Open "people", strConnection, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect

Dim abspage, pagecnt
abspage = objRS.AbsolutePage
pagecnt = objRS.PageCount

If Request.ServerVariables("CONTENT_LENGTH&quot

= 0 Then

objRS.AbsolutePage = 1

Else

Select Case Request.Form("Submit&quot

Case "Delete"

response.redirect "/confirm_del.asp?people_id1=" & request.form("form_people_id&quot

Case "Update"

'Build SQL command for saving record
strQuery = "UPDATE people SET first_name = '" & objRS("first_name&quot

strQuery = strQuery & "', last_name = '" & request.form("lname&quot

strQuery = strQuery & "' WHERE People_id = "
strQuery = strQuery & request.form("form_people_id&quot

& ";"
' execute the SQL Command
Set objRS = objConn.Execute(strQuery)

Set objConn = Server.CreateObject("ADODB.Connection&quot

strConnection = "DSN=Portal;Database=Portal;"
objConn.Open strConnection
Set objRS = Server.CreateObject("ADODB.recordset&quot

objRS.PageSize = 1
objRS.CacheSize = 1
objRS.CursorLocation = adUseClient

objRS.Open "people", strConnection, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect

End Select

button_first = request.form("First.x&quot

button_next = request.form("Next.x&quot

button_previous = request.form("Previous.x&quot

button_last = request.form("Last.x&quot

If button_first > 0 then
objRS.AbsolutePage = 1
End if
If button_next > 0 then
abspage = request.form("form_abspage&quot

+ 1
objRS.AbsolutePage = abspage
End if
If button_previous > 0 then
abspage = request.form("form_abspage&quot

- 1
objRS.AbsolutePage = abspage
End if
If button_last > 0 then
abspage = pagecnt
objRS.AbsolutePage = pagecnt
End if

button_next = 0
button_last = 0
button_first = 0
button_previous = 0

End If

If Not objRS.EOF Then

Dim intRec, intValue, strValue %>

<body>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME&quot

%>" METHOD="POST">
<INPUT TYPE="Hidden" NAME="form_abspage" VALUE="<%= abspage%>">
<INPUT TYPE="Hidden" NAME="form_people_id" VALUE="<%= objRS("people_id&quot

%>">

<%= "Page Counter = " & abspage & "<BR>" %>
<%= "total page count = " & pagecnt & "<BR>" %>

<%= "<BR><BR>" %>
<%
Response.Write "Person Id:   "
Response.Write trim(objRS("people_id&quot

)
Response.Write "<br><br>"
Response.Write "First Name:   "
Response.Write trim(objRS("first_name&quot

)
Response.Write "<br><br>"
Response.Write "Last Name:   "
%>

<Input type="text" name="lname" VALUE="<%= objRS("last_name&quot

%>" > <br><br>

<% ' Now showing first, next, back, last buttons.
If abspage = 1 Then %>

<INPUT TYPE="Submit" VALUE="Update" Name="Submit">
<INPUT TYPE="Submit" VALUE="Delete" Name="Submit">
<br>
<INPUT TYPE=image src="b_next.gif"NAME="Next" >
<INPUT TYPE=image src="b_last.gif"NAME="Last" >
<% Else
If abspage < pagecnt Then %>

<INPUT TYPE="Submit" VALUE="Update" Name="Submit">
<INPUT TYPE="Submit" VALUE="Delete" Name="Submit">
<br>
<INPUT TYPE=image src="b_first.gif"NAME="First" >
<INPUT TYPE=image src="b_prev.gif"NAME="Previous" >
<INPUT TYPE=image src="b_next.gif"NAME="Next" >
<INPUT TYPE=image src="b_last.gif"NAME="Last" >
<% Else %>

<INPUT TYPE="Submit" VALUE="Update" Name="Submit">
<INPUT TYPE="Submit" VALUE="Delete" Name="Submit">

<br>
<INPUT TYPE=image src="b_first.gif"NAME="First" >
<INPUT TYPE=image src="b_prev.gif"NAME="Previous" >

<% End If
End if

Else
Response.Write "No records found!"
End If

objRS.Close
Set objRS = Nothing
%>
</body>
</html>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

on ASP / SQL update, refresh display?

PeterMac

Programmer

foxbox

Programmer

PeterMac

Programmer

Similar threads

Part and Inventory Search

Sponsor