<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Oracle Tutorial</title>
</head>
<body>
<%
On Error Resume Next '*** Not Show ASP Error ***'
Dim Conn1
Set Conn1 = Server.Createobject("ADODB.Connection")
Conn1.Open "Driver={Oracle in OraHome92};DBQ=TCDB;UID=myuser;PWD=mypassword;"
If Err.Number <> 0 Then
Response.write("(Oracle in OraHome92) Database cannot connect Error = " & Err.Description&"<br>")
Else
Response.write("(Oracle in OraHome92) Database connected.<br>")
End If
Conn1.Close()
Set Conn1 = Nothing
Dim Conn2
Set Conn2 = Server.Createobject("ADODB.Connection")
Conn2.Open "mydatabase","myuser","mypassword"
If Err.Number <> 0 Then
Response.write("(ODBC) Database cannot connect Error = " & Err.Description&"<br>")
Else
Response.write("(ODBC) Database connected.<br>")
End If
Conn2.Close()
Set Conn2 = Nothing
%>
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 02
