<%@ LANGUAGE="VBSCRIPT" %> 
<% 
Dim strWordDosyasi 
Set strWordDosyasi = CreateObject("Word.Document") 
strWordDosyasi.Application.Visible = True 
strWordDosyasi.content.Font.Bold = True 
strWordDosyasi.content.Font.Italic = True 
strWordDosyasi.content.Font.Underline = True 
strWordDosyasi.content.Font.Name = "Comic Sans MS" 
strWordDosyasi.content.Font.Size = 25 
strWordDosyasi.content.insertAfter "HazirKod.com adan zye tum programlama dilleri" 
strWordDosyasi.content.InsertParagraphAfter 
strWordDosyasi.Words(1).Font.Size = 10 
strWordDosyasi.Words(1).Font.ColorIndex = 1 
strWordDosyasi.Words(2).Font.Size = 20 
strWordDosyasi.Words(2).Font.ColorIndex = 2 
strWordDosyasi.Words(3).Font.Size = 30 
strWordDosyasi.Words(3).Font.ColorIndex = 3 
strWordDosyasi.Words(4).Font.Size = 40 
strWordDosyasi.Words(4).Font.ColorIndex = 4 
strWordDosyasi.PrintOut 
Set strWordDosyasi = Nothing 
%>