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 = Nothingend Function
What are particle animations? Particle network animations in JavaScript typically involve creating visual representations of… Read More
BOOKING SOLUTIONS 202x This is my take on a subset of booking, appointment, PMS or… Read More
THE GOAL Create a system cron for WordPress, that is accessible and can be easily… Read More
2024, what's cooking? Slowly getting into the 2024 spirit. 3 projects coming to a close… Read More
Short look back at 2023 This has been a busy and interesting year. I am… Read More
Elementor Pro provides grid containers as an experimental feature. The options provided are limited, when… Read More