<%
' Set up constants
Const ForReading = 1 ' Input OutPut Mode
Const Create = False
' Declare local variables
Dim FSO ' FileSystemObject
Dim inFile ' TextStreamObject
Dim strTemp
Dim strContact()
Dim strTape()
Dim i, j
Dim passedEmail
Dim disNam, webSite, eMail, fName, lName, sAddress, city, state, pCode
Dim taxCond, shipCond, checkPay
strFileName = Server.MapPath("DistributorInfo.txt")
passedEmail = Request.QueryString("email")
' Instantiate the FileSystemObject
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' use Opentextfile Method to Open the text File
Set inFile = FSO.OpenTextFile(strFileName, ForReading, Create)
strTemp = inFile.ReadLine
do
if (UBound(split(strTemp,"^")) > 1) then
if split(strTemp,"^")(2)=passedEmail then exit do
End if
if strTemp = "That'sAllFolks" then exit do
strTemp = infile.ReadLine
loop
disNam = split(strTemp,"^")(0)
webSite = split(strTemp,"^")(1)
eMail = split(strTemp,"^")(2)
taxCond = split(strTemp,"^")(3)
checkPay = split(strTemp,"^")(4)
shipCond = split(strTemp,"^")(5)
strTemp = inFile.ReadLine
fName = split(strTemp,"^")(0)
lName = split(strTemp,"^")(1)
sAddress = split(strTemp,"^")(2)
city = split(strTemp,"^")(3)
state = split(strTemp,"^")(4)
pCode = split(strTemp,"^")(5)
%>
Purchase Order Form
<%=disNam%>
<%
if passedEmail = "jgoetz@speed.net" then
%>
c/o Joyce Goetz
<%end if%>
<%=sAddress & " // " & city & ", " & state & " " & pCode%>
<%
if website <> "" then
%>
><%=webSite%>
<%
end if
%>