<% dim rstLinks set cnn=server.CreateObject("ADODB.connection") cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("madar.mdb") & ";Persist Security Info=False") set rstLinks=server.CreateObject("adodb.recordset") sql="select * from tblLinks" rstLinks.Open sql,cnn,1,3 %> <% public function w2utf( byval n1 ) dim n2 n2="" if isnull(n1) then w2utf="" exit function end if For z = 1 To Len(n1) n2 =n2 & "&#" & AscW(right(left(n1,z),1)) & ";" 'response.write name2 Next w2utf=n2 end function %>