<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("/v/zipzone/tytyzipzone.txt"), 1) zipcode=Request.QueryString("zipcode") usdazone="" found="0" do while f.AtEndOfStream = false If f.Read(5)=zipcode Then f.Skip(1) usdazone=f.ReadLine Response.Write(" ") found="1" Else f.Skip(1) f.ReadLine Response.Write("") End If loop if zipcode<>"" Then if found="0" Then Response.Write(" ") End If End If f.Close set f=nothing set fs=nothing %>