Displaying Message box!

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Abdul Azeem (abdulazeem_at_abc.com)
Date: 06/28/04 

Date: Mon, 28 Jun 2004 17:54:41 +0530

Hi All,

 I have a requirement to display a message and then redirect the controls to
some file, I tried with the below method but its not working, where as If I
use server.transfer or server.execute it works but I cant give relative Url
(it will dynamically genrate), If any one has an alternate way, pls respond.

ShowMessage("Hello World")

Sub ShowMessage(sMessage)
 Response.Write "<script> alert("& Chr(34) & sMessage & Chr(34) &" );
</script>"
Response.redirect "xyz.asp"
End Sub

Thanks in Advance,
Mohammed.

Relevant Pages

  • Application.Run problem
    ... from within Sub MainI use "Application.Run". ... I can't access any of the form's controls while in the debugger. ... to access a label control on the form my machine hangs. ... If I try to display them in the ...
    (microsoft.public.dotnet.languages.vb)
  • Re: Manifest Requires Win2K Compatibility?
    ... Okay, I added in the InitCommonControlsExcode, even added in a Main sub ... I have a standard Manifest file that I use to display the more modern XP ... and Vista style controls in my applications. ...
    (microsoft.public.vb.general.discussion)
  • Re: Creating Label Array
    ... Just one other thing on this, if I now want to redirect the out put i.e I ... want to create the controls not on form1 but on a tab control on form1 how ... >> End Sub ...
    (microsoft.public.dotnet.languages.vb)
  • RE: Create a "cell button" to hide selected cells.
    ... To avoid cluttering up the worksheet with controls, I used a UserForm. ... The user clicks a button on the worksheet to display a UserForm ... Private Sub cmdSetWeeksToShow_Click ...
    (microsoft.public.excel.worksheet.functions)
  • Re: What am I doing wrong?
    ... I do not like a single display, prefering a Flex Grid to display all of the ... Dim rstCompany As Recordset ... Set rstCompany = Nothing ... Private Sub CmdUpdate_Click ...
    (microsoft.public.vb.database.dao)