> Hello...I am needing to talk to the Oracle object to see if a username
> is valid, password is expired or in the grace period. I have some ASP
> code that I am having problems converting to CF. Here is what they
> had...
>
>
> OBJECT RUNAT=Server
> SCOPE=Application
> ID=OraSession
> PROGID="OracleInProcServer.XOraSession">
> /OBJECT>
>
>
> and
>
>
>
>
> Dim OraErr
>
> 'On Error Resume Next
>
> Username = "dadada"
> Password = "aaaaa"
> ConnectString = "DEV"
> UID = Username & "/" & Password
>
> Set OraDatabase = OraSession.OpenDatabase(ConnectString,UID,Cint(0))
>
> OraDB_OK = OraDatabase.ConnectionOK
>
> v_count = 0
> If OraDB_OK Then
>
> vSQL = "SELECT DESCRIPTION " & _
> "FROM NEWS " & _
> "WHERE COMPLETE='N' " & _
> "OR START_DATE >= SYSDATE " & _
> "ORDER BY START_DATE"
>
> Set OraDynaSet = OraDatabase.DbCreateDynaSet( vSQL, Cint(0))
> Do While (OraDynaSet.EOF = False)
> v_count = v_count + 1
> Response.Write("<tr><td align=left bgcolor=#CDCDCD height=30><font
> color=black>")
> Response.Write (OraDynaset.Fields("DESCRIPTION") )
> Response.Write ("</font></td></tr>")
> OraDynaset.MoveNext
> Loop
> If v_count = 0 Then
> Response.Write("<tr><td align=left bgcolor=#CDCDCD height=30><font
> color=black>There is no news at this time</font></td></tr>")
> End If
> Else
> Response.Write("<tr><td align=left bgcolor=#CDCDCD height=30><font
> color=black>There was a problem getting news</font></td></tr>")
> End If
>
> OraDatabase.Close
>
>
> Thanks all!
>
>
> Brian Yager
> President - North Alabama
> Cold Fusion Users Group
> http://www.nacfug.com
> GMD-JPO OCD IT
> Computer Scientist - Contractor CSC
> (256)313-9668
> [EMAIL PROTECTED]
mil
[Todays Threads] [This Message] [Subscription] [Fast Unsubscribe] [User Settings]
