<% 
Function BoslukDuzenle(ByVal strYazi) 
 
'|============================ 
'| Boşlukları Düzenleme Fonksiyonu 
'| mydesign a.k.a doronty37 
'| http://www.mydesign.gen.tr 
'| .tr 
'|============================ 
 
 
     If strYazi = "" Then Exit Function 
 
     strGeciciYazi = Replace(strYazi, "       ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1) 
     strGeciciYazi = Replace(strGeciciYazi, "      ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1) 
     strGeciciYazi = Replace(strGeciciYazi, "     ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1) 
     strGeciciYazi = Replace(strGeciciYazi, "    ", "&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1) 
     strGeciciYazi = Replace(strGeciciYazi, "   ", "&nbsp;&nbsp;&nbsp;", 1, -1, 1) 
     strGeciciYazi = Replace(strGeciciYazi, vbTab, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1) 
 
     BoslukDuzenle = strGeciciYazi 
 
End Function 
%> 
 
 
Kullanımı 
 
<%=BoslukDuzenle("a                      a")%>