access ten veri çekme sorunu??

Aşağıdaki şekilde veri tabanına alt alta yazılı bir halde kayıtlı olan bir veriyi çektiğimde veriyi yan yana yazıyor.



Çıktısı : hghgh gfhfg fghfh fgh fh fh fh fghfgh şeklinde oluyor.

veri çekme kodları aşağıdaki gibidir. Acaba nerde hata yapıyorum?????

<%
Dim veritabani
veritabani="vt.mdb"
Set baglanti = Server.CreateObject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(""&veritabani&"")
Set dersler = Server.CreateObject("adodb.recordset")
sql="Select * From mat"
mat.open sql,baglanti,1,3
response.write(mat("haber"))
%>

Hocam Replace fonksiyonuyla veriyi değiştirmek lazım; veritabanınıza kaydedilen verideki <br/> ler Chr(13) veya vbCrLf diye kaydedilir, bir fonksiyonla onları <br/> ye çevirmek lazım...

<%Function Satir(byVal verimiz)
If verimiz = "" Then Exit Function '// Değer boşsa fonksiyondan çıkılıyor
'// Değer boş değilse değiştirma işlemleri yapılıyor ve fonksiyondan çıkılıyor
verimiz = Replace(verimiz, vbCrLf, "<br />", 1, -1, 1)
verimiz= Replace(verimiz, Chr(13), "<br />", 1, -1, 1)
Satir = verimiz
End Function

Dim veritabani
veritabani="vt.mdb"
Set baglanti = Server.CreateObject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(""&veritabani&"")
Set dersler = Server.CreateObject("adodb.recordset")
sql="Select * From mat"
mat.open sql,baglanti,1,3
Response.Write Satir(mat("haber"))
'//Satir fonksiyonunu çağırıyoruz ve ilgili veriyi işlemesini söylüyoruz.
%>

teşekkürler hocam