Search code examples
javascriptvbscriptasp-classic

Displaying Message Box in ASP

I want to display a message box after deletion of a record from MSACCESS. I wrote a code below but it just redirects me to the previous page. I want to display message first then to redirect.

<HTML>
<BODY>
<%
Dim objConn
Dim objRS
Dim varpnr
varpnr = Request.QueryString("ID")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
            "D:\Project.mdb"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "Book", objConn, 2, 3

Do Until objRS.EOF
If objRS("PNR") = varpnr Then
objRS.Delete
response.write("<script language=""javascript"">alert

('Hello!');</script>")
End If
objRS.MoveNext
Loop
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing 
response.redirect "Delete_Entry.asp"
%>
</BODY>
</HTML>
Solution

  • Your VBScript redirect is happening server side and hence happening before the JavaScript can execute client side.

    You need to do your redirect in JavaScript after the alert. e.g.

    response.write("<script language=""javascript"">alert ('Hello!'); window.location='Delete_Entry.asp'</script>")

    Remove the response.redirect "Delete_Entry.asp"