code execution

Collapse
This topic is closed.
X
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • solomon_13000
    #1

    code execution

    The problem with the code bellow is that suppose I change the valid
    database name from stelladb.mdb to an invalid database name stella.mdb,
    what happens is the following statement gets executed:

    response.write "<center><f ont class='error'>E rror: Username is
    unavailable</font></center><br><br> "

    Response.Write "<center><f ont class='error'>" & Err.number & ":" &
    Err.Description & "</font></center><br>"

    By right only the statement bellow is suppose to get executed:

    Response.Write "<center><f ont class='error'>" & Err.number & ":" &
    Err.Description & "</font></center><br>"

    How do I solve the problem:


    Complete code:


    on error resume next
    set conn = Server.CreateOb ject("ADODB.Con nection")
    conn.open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=" &
    Server.MapPath( "/db/upload/stelladb.md") & ";"
    set rs = Server.CreateOb ject("ADODB.Rec ordset")
    conn.qDupUser p1,rs
    If not rs.eof then
    If rs(0) = 1 then
    response.write "<center><f ont class='error'>E rror: Username is
    unavailable</font></center><br><br> "
    session("duplic ate") = "true"
    else
    session("duplic ate") = "false"
    end if
    Else
    response.write "<center><f ont class='error'>E rror: No records
    returned</font></center><br><br> "
    End if
    If Err.number <> 0 then
    Response.Write "<center><f ont class='error'>" & Err.number & ":" &
    Err.Description & "</font></center><br>"
    Else
    conn.close
    set conn = nothing
    if session("duplic ate") = "false" then
    InsertQueryStri ng p1,p2,p3
    end if
    End if
    on Error goto 0


    Sub InsertQueryStri ng(p1,p2,p3)
    arParms = Array(p1,p2,p3)
    sql = "INSERT INTO Account([Username],[Password],[Type]) VALUES(?,?,?)"

    RunQueryString sql, arParms
    End Sub

    Tags: None
    • Bob Barrows [MVP]
      #2
      Re: code execution

      solomon_13000 wrote:[color=blue]
      > The problem with the code bellow is that suppose I change the valid
      > database name from stelladb.mdb to an invalid database name
      > stella.mdb,[/color]

      So stella.mdb is an actual database, so your conn.open statement does not
      throw an error?
      Change the code as shown below:
      [color=blue]
      > what happens is the following statement gets executed:
      >
      > response.write "<center><f ont class='error'>E rror: Username is
      > unavailable</font></center><br><br> "
      >
      > Response.Write "<center><f ont class='error'>" & Err.number & ":" &
      > Err.Description & "</font></center><br>"
      >
      > By right only the statement bellow is suppose to get executed:
      >
      > Response.Write "<center><f ont class='error'>" & Err.number & ":" &
      > Err.Description & "</font></center><br>"
      >
      > How do I solve the problem:
      >
      >
      > Complete code:
      >
      >
      > on error resume next
      > set conn = Server.CreateOb ject("ADODB.Con nection")
      > conn.open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=" &
      > Server.MapPath( "/db/upload/stelladb.md") & ";"[/color]

      if err<>0 then[color=blue]
      > response.write "<center><f ont class='error'>E rror: Username is
      > unavailable</font></center><br><br> "
      > session("duplic ate") = "true"[/color]
      else[color=blue]
      > set rs = Server.CreateOb ject("ADODB.Rec ordset")
      > conn.qDupUser p1,rs
      > If not rs.eof then
      > If rs(0) = 1 then
      > response.write "<center><f ont class='error'>E rror: Username is
      > unavailable</font></center><br><br> "
      > session("duplic ate") = "true"
      > else
      > session("duplic ate") = "false"
      > end if
      > Else
      > response.write "<center><f ont class='error'>E rror: No records
      > returned</font></center><br><br> "
      > End if
      > If Err.number <> 0 then
      > Response.Write "<center><f ont class='error'>" & Err.number & ":" &
      > Err.Description & "</font></center><br>"
      > Else
      > conn.close
      > set conn = nothing
      > if session("duplic ate") = "false" then
      > InsertQueryStri ng p1,p2,p3
      > end if
      > End if[/color]

      End if
      [color=blue]
      > on Error goto 0
      >
      >
      > Sub InsertQueryStri ng(p1,p2,p3)
      > arParms = Array(p1,p2,p3)
      > sql = "INSERT INTO Account([Username],[Password],[Type])
      > VALUES(?,?,?)"
      >
      > RunQueryString sql, arParms
      > End Sub[/color]

      --
      Microsoft MVP - ASP/ASP.NET
      Please reply to the newsgroup. This email account is my spam trap so I
      don't check it very often. If you must reply off-line, then remove the
      "NO SPAM"


        Comment

        • solomon_13000
          #3
          Re: code execution

          valid database name:stelladb.m db
          invalid database name: stella.mdb

          It does throw an error message using an invalid db name:

          Response.Write "<center><f ont class='error'>" & Err.number & ":" &
          Err.Description & "</font></center><br>"

          but the code also displays the following error msg which is not suppose
          to be displayed:

          response.write "<center><f ont class='error'>E rror: Username is
          unavailable</font></center><br><br> "



          solomon_13000 wrote:[color=blue]
          > The problem with the code bellow is that suppose I change the valid
          > database name from stelladb.mdb to an invalid database name stella.mdb,
          > what happens is the following statement gets executed:
          >
          > response.write "<center><f ont class='error'>E rror: Username is
          > unavailable</font></center><br><br> "
          >
          > Response.Write "<center><f ont class='error'>" & Err.number & ":" &
          > Err.Description & "</font></center><br>"
          >
          > By right only the statement bellow is suppose to get executed:
          >
          > Response.Write "<center><f ont class='error'>" & Err.number & ":" &
          > Err.Description & "</font></center><br>"
          >
          > How do I solve the problem:
          >
          >
          > Complete code:
          >
          >
          > on error resume next
          > set conn = Server.CreateOb ject("ADODB.Con nection")
          > conn.open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=" &
          > Server.MapPath( "/db/upload/stelladb.md") & ";"
          > set rs = Server.CreateOb ject("ADODB.Rec ordset")
          > conn.qDupUser p1,rs
          > If not rs.eof then
          > If rs(0) = 1 then
          > response.write "<center><f ont class='error'>E rror: Username is
          > unavailable</font></center><br><br> "
          > session("duplic ate") = "true"
          > else
          > session("duplic ate") = "false"
          > end if
          > Else
          > response.write "<center><f ont class='error'>E rror: No records
          > returned</font></center><br><br> "
          > End if
          > If Err.number <> 0 then
          > Response.Write "<center><f ont class='error'>" & Err.number & ":" &
          > Err.Description & "</font></center><br>"
          > Else
          > conn.close
          > set conn = nothing
          > if session("duplic ate") = "false" then
          > InsertQueryStri ng p1,p2,p3
          > end if
          > End if
          > on Error goto 0
          >
          >
          > Sub InsertQueryStri ng(p1,p2,p3)
          > arParms = Array(p1,p2,p3)
          > sql = "INSERT INTO Account([Username],[Password],[Type]) VALUES(?,?,?)"
          >
          > RunQueryString sql, arParms
          > End Sub[/color]

            Comment

            • Bob Barrows [MVP]
              #4
              Re: code execution

              solomon_13000 wrote:[color=blue]
              > valid database name:stelladb.m db
              > invalid database name: stella.mdb
              >
              > It does throw an error message using an invalid db name:
              >
              > Response.Write "<center><f ont class='error'>" & Err.number & ":" &
              > Err.Description & "</font></center><br>"
              >
              > but the code also displays the following error msg which is not
              > suppose to be displayed:
              >
              > response.write "<center><f ont class='error'>E rror: Username is
              > unavailable</font></center><br><br> "
              >[/color]
              Well change it to display the message you want it to display in the if err
              <> 0 then block. (hopefully, you made the changes I suggested - it will be
              really helpful if you post your code revisions in any followups to this).

              --
              Microsoft MVP - ASP/ASP.NET
              Please reply to the newsgroup. This email account is my spam trap so I
              don't check it very often. If you must reply off-line, then remove the
              "NO SPAM"


                Comment

                Previous template Next
                Working...