| | |
| |
Active Server Pages ASP programs help tutorial tutorials routine routines jobs listserve mailinglist bulletin board bulletin boards programming snippet snippets CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
createTextFile |
|
From: |
Bruce Peterson |
|
Date: |
6/21/1999 9:30:35 AM |
|
IP: |
195.147.210.222 |
Hi the following code is puzzling me, I,ve set the constant path to my directory setup and included the subdirectory clicks, The ad appears but when the code gets to the if clause an error comes up syaing unable to createtextobject which was created earlier and worked by reading the file banners.txt. anyone know why?const path = "\inetpub\webpub\doghomes/"
Dim fs, banFile
We will use the FileSystemObject
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Open banners.txt for reading
Set banFile = fs.OpenTextFile (path & "banners.txt", 1)
Read the file:
Dim str
str = banFile.ReadAll
Close file
banFile.Close
Now, split the string into records
Dim records
records = split(str,"*")
Dim banInfo(), tempArray
ReDim banInfo(UBound(records),7)
for i = LBound(records) to UBound(records)
if right(records(i),1) = chr(10) then
records(i) = left(records(i), len(records(i)) - 1)
end if
if left(records(i),1) = chr(10) then
records(i) = right(records(i), len(records(i)) - 1)
end if
tempArray = split(records(i),chr(10))
banInfo(i,bannerID) = tempArray(0)
banInfo(i,bannerCategory) = tempArray(1)
banInfo(i,bannerWeight) = tempArray(2)
banInfo(i,advertiserID) = tempArray(3)
banInfo(i,IMGSRC) = tempArray(4)
banInfo(i,Description) = tempArray(5)
˙LM/W3SVC/4/Root |
|
|
|
|
|
|
