<%
On Error Resume Next '*** Not Show ASP Error ***'
Dim Conn
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
"pwd=mypassword;database=mydatabase;option=16384;"
If Err.Number <> 0 Then
Response.write("Database cannot connect Error = " & Err.Description)
Else
Response.write("Database connected.")
End If
Conn.Close()
Set Conn = Nothing
%>
</body>
</html>