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