alert or message box?

Discussion in 'ASP General' started by monika, Sep 25, 2003.

  1. monika

    monika Guest

    I am not clear ... whether to use alert of JavaScript or messagebox of
    VBScript in ASP. But what I want is that when a user has some error I want
    to display a pop-up kind of a thing saying "you have not entered all the
    values" ... and when he click "ok" then he should be directed to the same
    page where he was entering the values. I tried this but in my case I am just
    being redirected to the page ..and my message box in not being popped up!

    here is my code:
    <%
    DIM RSA
    DIM QUERY1
    DIM RSA2
    DIM QUERY2
    DIM Conn
    dim adCmdText
    dim stAge

    session("newStdId") = Request.form("stdID")
    session("newStdName") = Request.form("stdName")
    session("newStdUserName") = Request.form("stdUserName")
    session("newStdPassword") = Request.form("stdPassword")
    session("newStdAge") = Request.form("stdAge")

    StAge = Request.form("stdAge")
    adCmdText = 1
    'create and open database connection
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "dsn=school"

    'create commad object
    set objCmd = server.createobject("adodb.command")

    If Request.form("newStudent") = "Click to save details of new student" then
    If Request.form("stdname") <>"" and Request.form("stdUsername") <> "" and
    Request.form("stdpassword")<> "" and Request.form("stdAge")<> "" then
    Set RSA2 = Server.CreateObject("ADODB.Recordset")
    QUERY2 = "SELECT student_name from student_info where
    student_username='"&Request.form("stdUsername")&"'"
    RSA2.open QUERY2, "dsn=school"
    if RSA2.EOF then
    QUERY1 = "INSERT INTO student_info (student_name,student_username,
    student_password,student_age) VALUES
    ('"&Session("newStdName")&"','"&Session("newStdUserName")&"','"&Session("New
    StdPassword")&"',"&Request.form("stdAge")&")"
    set objCmd.ActiveConnection = Conn
    objCmd.CommandText = Query1
    objCmd.CommandType = adCmdText
    'execute the command
    objCmd.Execute
    response.write "<font color=#000080 size=6>" & "Student details have
    been saved!"
    else
    response.write "<font color=#000080 size=6>" & "A student by the same
    username exists! Please create another username."
    end if
    'response.write session("newStdName") "ID is: "
    else
    %>
    <SCRIPT language="vbscript">
    msgbox("YOUR HAVE NOT ENTERED ALL THE VALUES")
    </SCRIPT>
    <%
    Response.Redirect("createStudUser.asp")
    End If
    end if
    'close and dereference database objects
    set objCmd = nothing
    conn.close
    set conn = nothing

    %>
    <html>
    <head>

    <link rel="stylesheet" href="style.css" type="text/css" />
    </head>
    <body BGCOLOR="pink">
    </body>
    <html>
    monika, Sep 25, 2003
    #1
    1. Advertising

  2. monika

    Adrienne Guest

    Gazing into my crystal ball I observed "monika" <>
    writing in news::

    > I am not clear ... whether to use alert of JavaScript or messagebox of
    > VBScript in ASP. But what I want is that when a user has some error I
    > want to display a pop-up kind of a thing saying "you have not entered
    > all the values" ... and when he click "ok" then he should be directed
    > to the same page where he was entering the values. I tried this but in
    > my case I am just being redirected to the page ..and my message box in
    > not being popped up!


    That's because you're doing something server side that needs to be done
    client side.

    This is what I do:

    Form.asp:
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml" lang="en">
    <head>
    <title>Fill out form</title>
    <%
    dim required
    dim message
    dim name
    dim email

    required = request.querystring("required")
    name = request.querystring("name")
    email = request.querystring("email")

    if required <> "" then
    select case required
    case "name"
    message = "Name is required"
    case "email"
    message = "Email is required"
    end select

    if message <> "" then
    message = "<div style='font-weight:bold; color:red'>" & message &
    "</div>"
    <script type="text/javascript">
    <!--
    alert('<%=message%>');
    //-->
    </script>
    end if
    end if
    %>
    </head>
    <body>
    <%=message%>
    <form id="form" method="post" action="form2.asp">
    <fieldset><legend>* Indicates Required</legend>
    <label for="name">Name: * </label> <input type="text" name="name"
    id="name" value="<%=name%>" /><br />
    <label for="email">Email: *</label> <input type="text" name="email"
    id="email" value="<%email%>" /><br />
    <input type="submit" value="Submit">
    </fieldset>
    </form>
    </body>

    On form2.asp -

    <% dim name
    dim email
    dim required

    name = request.form("name")
    email = request.form("email")

    if name = "" then
    required = "name"
    elseif email = "" then
    requried = "email"
    end if

    if required <> "" then
    response.redirect "form.asp?required=" & required & "&name=" & name &
    "&email=" & email
    response.end
    else
    'do whatever your script is supposed to do
    end if
    %>

    Obviously you can do a lot more error checking, loop through request
    objects, etc.

    >
    > here is my code:
    ><%
    > DIM RSA
    > DIM QUERY1
    > DIM RSA2
    > DIM QUERY2
    > DIM Conn
    > dim adCmdText
    > dim stAge
    >
    > session("newStdId") = Request.form("stdID")
    > session("newStdName") = Request.form("stdName")
    > session("newStdUserName") = Request.form("stdUserName")
    > session("newStdPassword") = Request.form("stdPassword")
    > session("newStdAge") = Request.form("stdAge")
    >
    > StAge = Request.form("stdAge")
    > adCmdText = 1
    > 'create and open database connection
    > Set Conn = Server.CreateObject("ADODB.Connection")
    > Conn.Open "dsn=school"
    >
    > 'create commad object
    > set objCmd = server.createobject("adodb.command")
    >
    > If Request.form("newStudent") = "Click to save details of new student"
    > then
    > If Request.form("stdname") <>"" and Request.form("stdUsername") <> ""
    > and
    > Request.form("stdpassword")<> "" and Request.form("stdAge")<> "" then
    > Set RSA2 = Server.CreateObject("ADODB.Recordset")
    > QUERY2 = "SELECT student_name from student_info where
    > student_username='"&Request.form("stdUsername")&"'"
    > RSA2.open QUERY2, "dsn=school"
    > if RSA2.EOF then
    > QUERY1 = "INSERT INTO student_info (student_name,student_username,
    > student_password,student_age) VALUES
    > ('"&Session("newStdName")&"','"&Session("newStdUserName")&"','"&Session(
    > "New StdPassword")&"',"&Request.form("stdAge")&")"
    > set objCmd.ActiveConnection = Conn
    > objCmd.CommandText = Query1
    > objCmd.CommandType = adCmdText
    > 'execute the command
    > objCmd.Execute
    > response.write "<font color=#000080 size=6>" & "Student details
    > have
    > been saved!"
    > else
    > response.write "<font color=#000080 size=6>" & "A student by the
    > same
    > username exists! Please create another username."
    > end if
    > 'response.write session("newStdName") "ID is: "
    > else
    > %>
    > <SCRIPT language="vbscript">
    > msgbox("YOUR HAVE NOT ENTERED ALL THE VALUES")
    > </SCRIPT>
    ><%
    > Response.Redirect("createStudUser.asp")
    > End If
    > end if
    > 'close and dereference database objects
    > set objCmd = nothing
    > conn.close
    > set conn = nothing
    >
    > %>
    ><html>
    ><head>
    >
    ><link rel="stylesheet" href="style.css" type="text/css" /> </head>
    ><body BGCOLOR="pink"> </body> <html>
    >
    >
    >




    --
    Adrienne Boswell
    Please respond to the group so others can share
    http://www.arbpen.com
    Adrienne, Sep 25, 2003
    #2
    1. Advertising

  3. monika

    Tim Guest

    if it is in the asp code, it will run on the server and the client wont see
    it.

    if it is in the html code that is sent to the client, then 'msgbox' will
    only run on IE, 'alert' will run on anything.


    Tim


    "monika" <> wrote in message
    news:...
    > I am not clear ... whether to use alert of JavaScript or messagebox of
    > VBScript in ASP. But what I want is that when a user has some error I want
    > to display a pop-up kind of a thing saying "you have not entered all the
    > values" ... and when he click "ok" then he should be directed to the same
    > page where he was entering the values. I tried this but in my case I am

    just
    > being redirected to the page ..and my message box in not being popped up!
    >
    > here is my code:
    > <%
    > DIM RSA
    > DIM QUERY1
    > DIM RSA2
    > DIM QUERY2
    > DIM Conn
    > dim adCmdText
    > dim stAge
    >
    > session("newStdId") = Request.form("stdID")
    > session("newStdName") = Request.form("stdName")
    > session("newStdUserName") = Request.form("stdUserName")
    > session("newStdPassword") = Request.form("stdPassword")
    > session("newStdAge") = Request.form("stdAge")
    >
    > StAge = Request.form("stdAge")
    > adCmdText = 1
    > 'create and open database connection
    > Set Conn = Server.CreateObject("ADODB.Connection")
    > Conn.Open "dsn=school"
    >
    > 'create commad object
    > set objCmd = server.createobject("adodb.command")
    >
    > If Request.form("newStudent") = "Click to save details of new student"

    then
    > If Request.form("stdname") <>"" and Request.form("stdUsername") <> "" and
    > Request.form("stdpassword")<> "" and Request.form("stdAge")<> "" then
    > Set RSA2 = Server.CreateObject("ADODB.Recordset")
    > QUERY2 = "SELECT student_name from student_info where
    > student_username='"&Request.form("stdUsername")&"'"
    > RSA2.open QUERY2, "dsn=school"
    > if RSA2.EOF then
    > QUERY1 = "INSERT INTO student_info (student_name,student_username,
    > student_password,student_age) VALUES
    >

    ('"&Session("newStdName")&"','"&Session("newStdUserName")&"','"&Session("New
    > StdPassword")&"',"&Request.form("stdAge")&")"
    > set objCmd.ActiveConnection = Conn
    > objCmd.CommandText = Query1
    > objCmd.CommandType = adCmdText
    > 'execute the command
    > objCmd.Execute
    > response.write "<font color=#000080 size=6>" & "Student details have
    > been saved!"
    > else
    > response.write "<font color=#000080 size=6>" & "A student by the

    same
    > username exists! Please create another username."
    > end if
    > 'response.write session("newStdName") "ID is: "
    > else
    > %>
    > <SCRIPT language="vbscript">
    > msgbox("YOUR HAVE NOT ENTERED ALL THE VALUES")
    > </SCRIPT>
    > <%
    > Response.Redirect("createStudUser.asp")
    > End If
    > end if
    > 'close and dereference database objects
    > set objCmd = nothing
    > conn.close
    > set conn = nothing
    >
    > %>
    > <html>
    > <head>
    >
    > <link rel="stylesheet" href="style.css" type="text/css" />
    > </head>
    > <body BGCOLOR="pink">
    > </body>
    > <html>
    >
    >
    Tim, Sep 25, 2003
    #3
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Grey

    Prompt out alert box in ASP.NET

    Grey, Jan 17, 2004, in forum: ASP .Net
    Replies:
    2
    Views:
    695
    Kevin Spencer
    Jan 19, 2004
  2. John sorCrer
    Replies:
    1
    Views:
    721
    Alvin Bruney [MVP]
    Mar 4, 2004
  3. Gnarlodious
    Replies:
    4
    Views:
    17,564
    elizas
    May 5, 2010
  4. Mersh
    Replies:
    0
    Views:
    479
    Mersh
    Mar 13, 2007
  5. Ganesh
    Replies:
    0
    Views:
    541
    Ganesh
    Jun 29, 2007
Loading...

Share This Page