Customizing message

I need help in customizing the message for this code.

If my update is successful, I need the message to display at the top of the page. Likewise if it is not successful.

For instance,

I have this screen:

Job Successully Uploaded!

Enter PIN___________________________submit

After entering this pin, if there is a matching record on the db, a second page is display for editing.

After successul updation, I will to say at the top of the page:

Job successful uploaded. If not, I will like to say Unsuccessful upload but I want above, please see it.

So far, the message appears in a separate page.

<%
uploaddir = "Upload"     ' Folder where they will store the files.

UPLOADDIRECTORY = Server.MapPath(uploaddir)
Set Upload = Server.CreateObject("Persits.Upload.1")   &nb sp;     ' This is the correct code.
Upload.SetMaxSize 1048576 ' Truncate files above 1MB
Upload.OverwriteFiles = True
Count = Upload.Save(UPLOADDIRECTORY)

Set File = Upload.Files("File1")
If Not File Is Nothing Then
   'Response.Write File.ExtractFilename
    Filename = File.ExtractFilename
    Filesize = File.Size
    contentType = File.Ext 'UCase(Right(File.Path, 3))
    fileData = File.Binary
else
     Filename = ""
End If

'Check your update statement. Update the description in accidentnumber field it seems. Other wise write the code like this. oRs is the recordset object

Set oRs=Server.CreateObject("ADODB.Recordset")
Set DbObjmembers = Server.CreateObject("ADODB.Connection")
DbObjmembers.Open "dsn=jobs"
'oRs.open "Select * from ImageFiles where filename='"&filename&"';",DbObjmembers,1,3
oRs.open "Select * from ImageFiles Where ID="&Upload.form("A_Number"),DbObjmembers,1,3

if count > 0 then
      if oRs.eof then
          oRs.addnew
          oRs("filesize") = filesize
          oRs("contentType") = contentType
          oRs("filedata") = filedata
          oRs("filename") = filename
          oRs("description") = Upload.form("description")
          oRs("AccidentNumber") = Upload.form("accidentNumber")
          oRs.Update
     else
          oRs("filesize") = filesize
          oRs("contentType") = contentType
          oRs("filedata") = filedata
          oRs("filename") = filename
          oRs("description") = Upload.form("description")
          oRs("AccidentNumber") = Upload.form("accidentNumber")
          oRs.Update
     end if

       Response.Write "<font color=""green"">Job was successfully stored...</font>"
Else
       Response.Write "<font color=""brown"">Job Upload Unsuccessful...</font>"
End If
%>