Oracle FAQ Your Portal to the Oracle Knowledge Grid
HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US
 

Home -> Community -> Usenet -> c.d.o.tools -> Oracle command causing inetinfo to hang

Oracle command causing inetinfo to hang

From: lbj <lyndonjohnson_at_execpc.com>
Date: 2000/06/19
Message-ID: <394e992d$1$28543$39368dfe@news.twtelecom.net>#1/1

I am writing a utility to change an Oracle password via an Active Server Page.

The process works only once; that is to say, if I try the page a subsequent time the browser hangs.

Here is the command:

objConn.Execute "ALTER USER " & strUserId & " IDENTIFIED BY " & strNewPass

This command causes the oracle session to remain active even thought the browser is close.

If I run
net stop iisadmin
kill inetinfo
commands I can resume the browser..

Any suggestion would be greatly appreciated

here is the rest of the code:

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.CommandTimeout = 31
objConn.ConnectionTimeout = 16
objConn.Open strDSNa

If Err.Number <> 0 Then
 '----------------------------------

 'Close Database Connection
 '----------------------------------

 d1 = "B"
 objConn.Close
 Set objConn = Nothing
 'Session("strMessage") = "Your Old password is invalid - please try again. Contact your " & _
 '"account coordinator at M&I Data Services if you continue to have problems."
Else
 '----------------------------------

 'Update User Password
 '----------------------------------

 objConn.Execute "ALTER USER " & strUserId & " IDENTIFIED BY " & strNewPass  If Err.Number <> 0 Then
  d1 = "C"
  objConn.Close
  Set objConn = Nothing
'Session("strMessage") = "Your new password was invalid - please try a
different password." & _
'" Contact your account coordinator at M&I Data Services if you continue
to experience problems."
'----------------------------------
'Close Database Connection - must be in the "If" and the "Else" to avoid
Err.number being reset
'to zero by the On Error Resume Next command in the CloseConnection
routine
'----------------------------------

 ELSE
'objConn.CommitTrans

  objConn.Close
  Set objConn = Nothing
  d1 = "D"
'Session("strMessage") = "Your new password is set"
 END IF
End If Received on Mon Jun 19 2000 - 00:00:00 CDT

Original text of this message

HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US