Hot Jobs!

More Jobs ▪ Become a Client and List Your Job ▪ Become a Candidate and List Yourself

Special Offers

<%= left(HeaderLine, instr(HeaderLine, ";;")-1)%>

<%= left(Advertisement, instr(Advertisement, ";;")-1)%>

<% path= left(Request.ServerVariables("path_translated"), _ InstrRev(Request.ServerVariables("path_translated"), "\")) 'response.write path 'response.end set fsFile = Server.CreateObject("Scripting.FileSystemObject") set myfile = fsFile.OpenTextFile(path & "advertisement.txt",1) do while not myfile.AtEndOfStream HeaderLine = myfile.ReadLine if len(HeaderLine) > 2 then strLine = myfile.ReadLine temptext = "" do while Instr(strLine, ";;") <= 0 temptext = temptext & strLine & vbCrLf strLine = myfile.ReadLine loop Advertisement = temptext & strLine end if loop set myFile = nothing set fsFile = nothing %>

Find More Jobs Here