Links

Tirol

<% Const Filename = "links.txt" Const CurrentSite = "www.ferienhausertirol.eu" CurrentGroup = "about" Dim FSO : set FSO = server.createObject("Scripting.FileSystemObject") Dim Filepath : Filepath = Server.MapPath(Filename) if FSO.FileExists(Filepath) Then set file = FSO.GetFile(Filepath) Set TextStream = file.OpenAsTextStream(1, -2) ' Read the file line by line actline = 0 Do While Not TextStream.AtEndOfStream DIM coloumnarray Dim Line Line = TextStream.readline coloumnarray = split(Line,";") ' store line in arrays: actID = coloumnarray(0) actSite = coloumnarray(1) actGroup = coloumnarray(2) ActLink = coloumnarray(3) ActLinkText = coloumnarray(4) If uBound(coloumnarray) = 5 Then ActLinkAlt = " title="""&coloumnarray(5)&"""" Else ActLinkAlt = "" End If if CurrentSite = actSite and CurrentGroup = actGroup then %>  class="textlinks" target="_blank" rel="nofollow"><%=ActLinkText%> <% end if actline = actline + 1 Loop Set TextStream = nothing end if %> Ihre Link listen? Klicken Sie hier!

Ferienhäuser in Tirol

<% CurrentGroup = "local" set FSO = server.createObject("Scripting.FileSystemObject") Filepath = Server.MapPath(Filename) if FSO.FileExists(Filepath) Then set file = FSO.GetFile(Filepath) Set TextStream = file.OpenAsTextStream(1, -2) ' Read the file line by line actline = 0 Do While Not TextStream.AtEndOfStream Line = TextStream.readline coloumnarray = split(Line,";") ' store line in arrays: actID = coloumnarray(0) actSite = coloumnarray(1) actGroup = coloumnarray(2) ActLink = coloumnarray(3) ActLinkText = coloumnarray(4) If uBound(coloumnarray) = 5 Then ActLinkAlt = " title="""&coloumnarray(5)&"""" Else ActLinkAlt = "" End If if CurrentSite = actSite and CurrentGroup = actGroup then %>  class="textlinks" target="_blank"><%=ActLinkText%> <% end if actline = actline + 1 Loop Set TextStream = nothing end if %> Ihre Link listen? Klicken Sie hier!

Linkpartners

<% CurrentGroup = "others" set FSO = server.createObject("Scripting.FileSystemObject") Filepath = Server.MapPath(Filename) if FSO.FileExists(Filepath) Then set file = FSO.GetFile(Filepath) Set TextStream = file.OpenAsTextStream(1, -2) ' Read the file line by line actline = 0 Do While Not TextStream.AtEndOfStream Line = TextStream.readline coloumnarray = split(Line,";") ' store line in arrays: actID = coloumnarray(0) actSite = coloumnarray(1) actGroup = coloumnarray(2) ActLink = coloumnarray(3) ActLinkText = coloumnarray(4) If uBound(coloumnarray) = 5 Then ActLinkAlt = " title="""&coloumnarray(5)&"""" Else ActLinkAlt = "" End If if CurrentSite = actSite and CurrentGroup = actGroup then %>  class="textlinks" target="_blank"><%=ActLinkText%> <% end if actline = actline + 1 Loop Set TextStream = nothing end if %> Ihre Link listen? Klicken Sie hier!