<%
' -- 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, Antal_namn, counter
Dim strLagnamn, strNamn, strPreviousLag
Dim Lagarray()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("deltagare.asp", 1, False)
strWholeRecord = objFile.Readline
If InStr(1,strWholeRecord,"Lagnamn;Namn") > 0 then 'skip header row
strWholeRecord = objFile.Readline
end if
Antal_lag = 0
Antal_namn = 0
strPreviousLag = ""
Response.Write ""
%>