Function checkCSV(getThisFile)<br><br>    Const ForReading = 1<br>    counter = 0<br>    <br>    Dim objFSO , objTextStream , strText , strFileName, output<br>    <br>    strFileName = Server.MapPath(getThisFile)<br>    <br>    Set objFSO = Server.CreateObject('Scripting.FileSystemObject')<br>    Set objTextStream = objFSO.OpenTextFile(strFileName , ForReading , False)<br>    <br>    If not objTextStream.AtEndOfStream Then<br>        Do While not objTextStream.AtEndOfStream<br>            strText = objTextStream.ReadLine<br>            arrText = split(strText, ';', 9)<br>            <br>            if arrText(0) = Request.Form('id') then<br>                checkCSV = arrText<br>            end if<br>            <br>            counter = counter + 1<br>        Loop<br>    End If<br>    <br>    objTextStream.Close<br>    Set objFSO = Nothing<br>    Set objTextStream = Nothing<br>end Function

Function checkCSV(getThisFile) Const ForReading = 1 counter = 0 Dim objFSO , objTextStream , strText , strFileName, output strFileName = Server.MapPath(getThisFile) Set objFSO = Server.CreateObject('Scripting.FileSystemObject') Set objTextStream = objFSO.OpenTextFile(strFileName , ForReading , False) If not objTextStream.AtEndOfStream Then Do While not objTextStream.AtEndOfStream strText = objTextStream.ReadLine arrText = split(strText, ';', 9) if arrText(0) = Request.Form('id') then checkCSV = arrText end if counter = counter + 1 Loop End If objTextStream.Close Set objFSO = Nothing Set objTextStream = Nothing end Function

Check Excel CSV files

Alexander