------------------------------------------------------------------------------------------
File dbconnect.asp
--------------------------------------------------------------------------------------
<%
Dim conn
Function ConnectDB()
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=esme2003;Data Source=DB_PERSON_EV;User ID=planpro;Password=sysplanpro"
If Err.Number = 0 Then
ConnectDB = True
Else
ConnectDB = False
End If
End Function
%>
Load balance : Server 02
