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 -> Re: Oracle command causing inetinfo to hang

Re: Oracle command causing inetinfo to hang

From: lbj <lyndonjohnson_at_execpc.com>
Date: 2000/06/23
Message-ID: <39539271$1$28567$39368dfe@news.twtelecom.net>#1/1

Got it to work using MICROSOFT DRIVERS vs. Oracle drivers. I Guess it the ADODB "lbj" <lyndonjohnson_at_execpc.com> wrote in message news:394e992d$1$28543$39368dfe_at_news.twtelecom.net...
> 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 Fri Jun 23 2000 - 00:00:00 CDT

Original text of this message

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