Ciao a tutti,
ho un DB su un server MySQL linux posto nel mio ufficio, sto cercando di leggere i dati di un database utilizzando i lseguente codice pescato da una guida su HTML.it ma mi restituisce la pagina il seguente errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on '87.25.254.186' (10060)

/test.asp, line 12

Dove sarà il problema, chiedo un aiuto! Grazie anticipatamente! Saluti
Frank




codice:
<% 
server.ScriptTimeout = 300 ' 5 minuti 

database = "hrdlog" 

inizioTempo = Timer() 

'Apertura connessione database 
sub dbConnect(objConn) 
connectionstring = "driver=Mysql ODBC 3.51 Driver; DATABASE="& nomedb &";SERVER=xxx.xxx.xxx.xxx;Port=3306; UID=hrdlog;PASSWORD=12345671234" 
set objConn = server.createObject("ADODB.Connection") 
objConn.Open connectionstring 
end sub 

'Chiusura connessione database 
sub dbDisconnect(objConn) 
objConn.close 
set objConn = nothing 
end sub 

call dbConnect(objConn) 

'Conto le tabelle 
tot_tables = 0 
Set Rs = Server.CreateObject("ADODB.Recordset") 
strTables = "SHOW TABLES FROM TABLE_HRD_CONTACTS_V01" 'Query standard di MySQL 
Rs.Open strTables, objConn 
if not rs.EOF then 
do while not(rs.eof) 
tot_tables = tot_tables + 1 
rs.movenext 
Loop 
end if 
rs.close 
set rs = nothing 

response.write "<html>" 
response.write "<title>Mostra tabelle e campi</title>" 
response.write "<body style=""font-family:verdana;font:10px;"">" 

'Scorro le tabelle 
Set Rs = Server.CreateObject("ADODB.Recordset") 
strTables = "SHOW TABLES FROM Formazione" 'Query standard di MySQL 
Rs.Open strTables, objConn 
if not rs.EOF then 
ReDim arr_tables(tot_tables) 

t = 0 'Contatore tables (tabelle) 
response.write "<table style=""font-family:verdana;font:11px;"">" 
do while not(rs.eof) 
'Formattazione tabella 
if t mod 2 = 0 then 
strSfondo="#CCCC00" 
else 
strSfondo="#CCCCFF" 
end if 

'Array tabelle 
arr_tables(t) = rs(0) 

response.write "<tr>" 
response.write "<td style=""background:"& strSfondo &";"">" 
response.write ">Tabella "& right("00"& t+1,2) &" --> "& rs(0) &"" 

Set Rs2 = Server.CreateObject("ADODB.Recordset") 
strFields = "SHOW FIELDS FROM "& rs(0) 'Query standard di MySQL 
Rs2.Open strFields, objConn 
if not Rs2.EOF then 
f = 0 'Contatore fields (campi) 
Do while not Rs2.EOF 
response.write "[*] Campo "& right("00"& f+1,2) &" --> "& rs2(0) &"" 
f = f + 1 
rs2.movenext 
Loop 
end if 
rs2.Close 
set rs2=nothing 

t = t + 1 
rs.movenext 
response.write "</td>" 
response.write "</tr>" 
loop 
end if 
rs.close 
set rs = nothing 
response.write "</table>" 

response.write "
Tempo impiegato: "& (timer() - inizioTempo) &" secondi." 
response.write "</body>" 
response.write "</html>" 

call dbDisconnect(objConn) 
%>