<% '''''Pokazi stranicu''''''''''''''''''''''''''''''''''''''''' unuci=",ivan,mate,stipe,ante,jozo,nikola" unuk = int(Request.QueryString("unuk")) if unuk = 0 then unuk = 3 strFileName = "ivanovi_unuci/" & Split(unuci,",")(unuk) & ".htm" Set objASPFSO = CreateObject("Scripting.FileSystemObject") Set objASPFile = objASPFSO.OpenTextFile(Server.MapPath(strFileName)) Do While Not objASPFile.AtEndOfStream strInput = objASPFile.ReadLine Response.Write strInput & vbCrLf Loop objASPFile.Close Set objASPFile = Nothing Set objASPFSO = Nothing %>