Welcome to
WIDEWORLD INSURANCE AGENCY INC.

Travel Agency Partners ( Manila / Cebu)

Metro Manila Agents

<% Set fileObj=Server.CreateObject("Scripting.FileSystemObject") Set listFile=fileObj.OpenTextFile(Server.MapPath("partner.txt"), 1) dim cnt,clr clr=0 do while listFile.AtEndOfStream = false cnt=cnt+1 if(cnt=1) then response.Write("
") end if if(clr=0) then response.write("") response.write("") Response.Write("") response.write("") clr=1 else response.write("") response.write("") Response.Write("") response.write("") clr=0 end if if(cnt=83) then response.Write("
"&cnt&""&listFile.ReadLine&"
"&cnt&""&listFile.ReadLine&"
") end if loop response.Write("
") listFile.Close Set listFile=Nothing Set fileObj=Nothing %>