Home | Advertising Info35 USERS CURRENTLY ONLINE   
   Site Search Contact Us Saturday, November 01, 2014  
 
 


 
ASPProtect
User Management Application with web based screens that allow you to manage users.
www.ASPProtect.com
 
ASPBanner
Banner Rotation system. Advertisers can monitor online statistical reports via their web browsers.
www.ASPBanner.com
 
ASP Photo Gallery
Upload an unlimited amount of albums. Set up categories.Image resizing thumbnail creation.
www.ASPPhotoGallery.com
 
ASPClassifieds
Classifieds system. Set up categories. Users can register themselves. Supports picture uploads.
www.ASPClassifieds.com



DISCUSSION ARCHIVES
 
Try a free httpZip trial now and compress for less!


We didn't realize
the site was so popular.

Other Stuff
 

 
 
Active Server Pages asp source code database MS SQL MS Access .mdb adovbs.inc cookies calendar codes sql commands scripts asp programming tutorials iis web server components CJWSoft ASPProtect ASPBanner ASPClassifieds



(Advanced)  (Components)  (Database)  (General)  (Vbscript)




ASPProtect

 
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


 

   Active Server Pages Rule The World
Contact Us  
All artwork, design & content contained in this site are Copyright © 1998 - 2014 PowerASP.com and Christopher J. Williams
Banner ads ,other site logos, etc are copyright of their respective companies.
STATS Unless otherwise noted - All Rights Reserved.

Active Server Pages what is asp programming how to sample asp example code scripts software asp forum mail sessions applications global.asa CJWSoft ASPProtect ASPBanner ASPClassifieds www.aspclassifieds.com, www.powerasp.com,www.cjwsoft.com,www.aspphotogallery.com,www.codewanker.com,www.aspprotect.com,www.aspbanner.com