ASP MyODBC and MySQL

<% 'Variáveis com os valores de sua base de dados. strDataSoure = "xxx.xxxx.xxx" 'colocar a localização de sua base de dados,preferenciamente o dominio, tipo dbmy0002.whservidor.com strDataBase ="xxxx" 'Colocar o nome da base strUser = "xxxx" 'colocar nome do usuário strPWD = "xxxx" 'colocar a senha 'Geramos a query SQL que irá acessar os dados na base de dados 'Conforme alteração 1 ' Fazer select em tabela teste2, que contem os campos: id (int(11) e texto(varchar(50)) strQuery = "select * from teste2" ' Definir String de conexao para base MySQL strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure strConexao = strConexao & "; DATABASE=" & strDataBase strConexao = strConexao & ";Uid="& strUser strConexao = strConexao & ";Pwd="& strPWD ' Criar objeto de conexão com a base de dados e executar a Query na tabela teste2 set objConn = server.CreateObject("ADODB.Connection") objConn.open strConexao set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strQuery, strConexao do until rs.EOF for each x in rs.Fields Response.Write(CStr(x.Value)) & " " next Response.Write "
"
rs.MoveNext
loop

objConn.close
set rs = nothing
set objConn = nothing
%>