<%@ Language=VBScript%> <% mes="" IsSuccess = false sServer = Trim(Request.Form("txtServer")) sPort = Trim(Request.Form("txtPort")) sUser = Trim(Request.Form("txtUser")) sPassword = Trim(Request.Form("txtPassword")) if Request("__action")="TestDB" then TestDB() end if Sub TestDB() Err.Clear() on error resume next Set objConn = Server.CreateObject("ADODB.Connection") if len(Err.Description)<>0 then mes = " " & Err.Description & " MySQL connection can't be established!" else objConn.ConnectionString = _ "DRIVER={MySQL ODBC 3.51 Driver};PORT=" & sPort & _ ";SERVER=" & sServer & _ ";UID=" & sUser & _ ";PWD=" & sPassword objConn.Open if len(Err.Description)<>0 then mes = " " & Err.Description & " MySQL connection can't be established!" else mes = " MySQL connection succesfull established!" IsSuccess = true end if end if Set objConn = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "
Success:" & html & "
" else Response.Write "
Fail:" & html & "
" end if End Sub %> ASP test page.
ASP possibilities test page

This page allows to check the connection possibility between the SQL client on your host and one of remote database server. You should have working accounts on the database servers you want to test. Here you can test the connection possibility with the MySQL server.

<% if len(mes) > 0 then Alert(mes) end if %>
Test MySQL Connection

">

Test