<%
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
%>