สอบถามเรื่องการ Connect Oracle 10g กับ asp ไม่สามารถ connect ได้

Const DB_User = "Test123"
Const DB_Password = "test456"
Const DB_Source = "PRODUCTION"
Const DB_Provider = "OraOLEDB.Oracle"
Const DB_Name = ""

Dim Conn		 
Dim ConnectStr

Function OpenConn()
    On Error Resume Next
    ConnectStr = "Provider=" & DB_Provider & ";Data Source=" & DB_Source & ";User ID=" & DB_User & ";Password=" & DB_Password & ";"
	If DB_Name<>"" Then ConnectStr = ConnectStr & ";Initial Catalog=" & DB_Name	
    Set Conn = Nothing
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open ConnectStr
    
    If Err.number<>0 Then
		Set Conn = Nothing
	    OpenConn = RET_UNKNOWN_ERR
	Else
		OpenConn = RET_OK
	End If
End Function