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]
[Todays Threads] [This Message] [Subscription] [Fast Unsubscribe] [User Settings]
