Asp den Mysql Veri Cekme

<%
DB = "DRIVER={MySQL ODBC 3.51 Driver}; Server=localhost; Port=3306; UID=KULLANICI_ADI; pwd=ŞİFRE; db=VERİTABANI_ADI;"
%>

<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open DB

strSQL = "Select * from tablo_adi"
Set rs = Baglanti.Execute(strSQL)

If rs.Eof Then
Response.Write "Veri Bulunmamaktadır."
Else

Do While Not rs.Eof
Response.Write rs("icerik")&"<br>"
rs.MoveNext
Loop
End If
%>

Allah razı olsun kardeş. Çalıştı ve çok işime yarayacak gibi