<% ' -- Declare Variables Dim objFSO ' FileSystemObject Variable Dim objFile ' File Object Variable 'Dim strFile ' String variable to store the path / file we write to 'Dim strBuffer ' Temporary area to swap order of the guestbook entries Dim strWholeRecord, strFields Dim Antal_lag, counter dim c, i, j Dim Lagnamnarray(), Lagfotoarray(), Laglinkarray(),Framearray() Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("lag2012.txt", 1, False) strWholeRecord = objFile.Readline Antal_lag = 0 ReDim Preserve Lagnamnarray(Antal_lag + 30) ReDim Preserve Lagfotoarray(Antal_lag + 30) ReDim Preserve Laglinkarray(Antal_lag + 30) ReDim Preserve Framearray(Antal_lag + 30) Do while len(strWholeRecord) > 4 if Mid(strWholeRecord,1,1) <> "#" then strFields = Split(strWholeRecord, ";", -1, 1) if Antal_lag > 30 then ReDim Preserve Lagnamnarray(Antal_lag + 30) ReDim Preserve Lagfotoarray(Antal_lag + 30) ReDim Preserve Laglinkarray(Antal_lag + 30) ReDim Preserve Framearray(Antal_lag + 30) end if Lagnamnarray(Antal_lag) = strFields(0) Lagfotoarray(Antal_lag) = strFields(1) Laglinkarray(Antal_lag) = strFields(2) If strFields(3) = "Extern" then Framearray(Antal_lag) = "_blank" else Framearray(Antal_lag) = "_self" end if Antal_lag = Antal_lag + 1 end if strWholeRecord = objFile.Readline Loop objFile.close %> Lag i Småländska

Lag i Småländska 2012

<% i = 0 c = Antal_lag ' Lagnamnarray(Antal_lag) ' Lagfotoarray(Antal_lag) ' Laglinkarray(Antal_lag) ' Framearray(Antal_lag) %> <%do while (i <= c) %> <% loop %>
<% IF Laglinkarray(i) <> "" then %> <% IF Lagfotoarray(i) <> "" then %> <% else Response.Write Lagnamnarray(i) end if %> <% else IF Lagfotoarray(i) <> "" then %> <% else Response.Write Lagnamnarray(i) end if end if i = (i + 1) %> <% IF i = c Then %>
<% else %> <% IF Laglinkarray(i) <> "" then %> <% IF Lagfotoarray(i) <> "" then %> <% else Response.Write Lagnamnarray(i) end if %> <% else IF Lagfotoarray(i) <> "" then %> <% else Response.Write Lagnamnarray(i) end if end if i = (i + 1) %> <% end if %> 		<% IF i = c Then %>
<% else %> <% IF Laglinkarray(i) <> "" then %> <% IF Lagfotoarray(i) <> "" then %> <% else Response.Write Lagnamnarray(i) end if %> <% else IF Lagfotoarray(i) <> "" then %> <% else Response.Write Lagnamnarray(i) end if end if i = (i + 1) %> <% end if %>