|
 |
asp_web_howto thread: RE: FSO Problem
Message #1 by Sam Clohesy <sam@e...> on Fri, 14 Dec 2001 09:22:16 -0000
|
|
Hi all, I have a prob that is driving be crazy.
I am trying to detect the existence of an image in a directory using:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(newPath & objRsKey("bannerID") & "/" & ".gif") Then
response.write "<a href = '" & objrsKey ("bannerLink") & "' target = 'new'>"
response.Write "<img src='" & newpath & "/" & objrsKey("bannerID") & ".gif"
& "'"
response.write " border = '0'></a>"
else
response.write "no gifs<p>" 'for testing
This file does exist as I can check with:
response.Write "<img src='" & newpath & "/" & objrsKey("bannerID") & ".gif"
& "'"
response.write " border = '0'></a>"
Which will return the image I am after yet the FSO does'nt seem to pick it
up. Any suggestions??
Thanks
Sam
Message #2 by "Walter Franssen" <walter@w...> on Fri, 14 Dec 2001 09:31:18
|
|
Your pth isn't correct
this is your code:
If objFSO.FileExists(newPath & objRsKey("bannerID") & "/" & ".gif") Then
is say's the following path:
website 1/.gif
Do you see wat ik meen?
Message #3 by Sam Clohesy <sam@e...> on Fri, 14 Dec 2001 09:37:53 -0000
|
|
Hi Walter, not quite sure what you mean..
This does not seem to work either...
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
Yet if I response.write it out I get
_private/banners/23.gif
I get the path I want...This really is sending me loopy as I should have
finished this yesterday..
Thanks for your help
Sam
Sam Clohesy
Project Manager
Tel: 0208 772 3958
E: samc@e...
W: http://www.etypemedia.co.uk
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:31
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Your pth isn't correct
this is your code:
If objFSO.FileExists(newPath & objRsKey("bannerID") & "/" & ".gif") Then
is say's the following path:
website 1/.gif
Do you see wat ik meen?
$subst('Email.Unsub').
Message #4 by "Walter Franssen" <walter@w...> on Fri, 14 Dec 2001 10:44:59 +0100
|
|
But in your If statment you looking for _private/banners23/.gif
_private/banners/23.gif
_private/banners23/.gif
The slash is in teh wrong place.
Walter
-----Original Message-----
From: Sam Clohesy [mailto:sam@e...]
Sent: Friday, December 14, 2001 10:38 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Hi Walter, not quite sure what you mean..
This does not seem to work either...
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
Yet if I response.write it out I get
_private/banners/23.gif
I get the path I want...This really is sending me loopy as I should have
finished this yesterday..
Thanks for your help
Sam
Sam Clohesy
Project Manager
Tel: 0208 772 3958
E: samc@e...
W: http://www.etypemedia.co.uk
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:31
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Your pth isn't correct
this is your code:
If objFSO.FileExists(newPath & objRsKey("bannerID") & "/" & ".gif") Then
is say's the following path:
website 1/.gif
Do you see wat ik meen?
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #5 by Sam Clohesy <sam@e...> on Fri, 14 Dec 2001 10:13:19 -0000
|
|
Hi again Walter, I have tried this: (With extra "/")
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
response.write "<a href = '" & objrsKey ("bannerLink") & "' target = 'new'>"
response.Write "<img src='" & newpath & "/" & objrsKey("bannerID") & ".gif"
& "'"
response.write " border = '0'></a>"
else
response.write "no gifs<p>"
But still no joy, any help much appreciated (No doubt the solution is
staring me in the face..)
Thanks
Sam
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:45
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
But in your If statment you looking for _private/banners23/.gif
_private/banners/23.gif
_private/banners23/.gif
The slash is in teh wrong place.
Walter
-----Original Message-----
From: Sam Clohesy [mailto:sam@e...]
Sent: Friday, December 14, 2001 10:38 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Hi Walter, not quite sure what you mean..
This does not seem to work either...
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
Yet if I response.write it out I get
_private/banners/23.gif
I get the path I want...This really is sending me loopy as I should have
finished this yesterday..
Thanks for your help
Sam
Sam Clohesy
Project Manager
Tel: 0208 772 3958
E: samc@e...
W: http://www.etypemedia.co.uk
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:31
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Your pth isn't correct
this is your code:
If objFSO.FileExists(newPath & objRsKey("bannerID") & "/" & ".gif") Then
is say's the following path:
website 1/.gif
Do you see wat ik meen?
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #6 by "Walter Franssen" <walter@w...> on Fri, 14 Dec 2001 11:17:20 +0100
|
|
What is the value of newPath?
-----Original Message-----
From: Sam Clohesy [mailto:sam@e...]
Sent: Friday, December 14, 2001 11:13 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Hi again Walter, I have tried this: (With extra "/")
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
response.write "<a href = '" & objrsKey ("bannerLink") & "' target = 'new'>"
response.Write "<img src='" & newpath & "/" & objrsKey("bannerID") & ".gif"
& "'"
response.write " border = '0'></a>"
else
response.write "no gifs<p>"
But still no joy, any help much appreciated (No doubt the solution is
staring me in the face..)
Thanks
Sam
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:45
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
But in your If statment you looking for _private/banners23/.gif
_private/banners/23.gif
_private/banners23/.gif
The slash is in teh wrong place.
Walter
-----Original Message-----
From: Sam Clohesy [mailto:sam@e...]
Sent: Friday, December 14, 2001 10:38 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Hi Walter, not quite sure what you mean..
This does not seem to work either...
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
Yet if I response.write it out I get
_private/banners/23.gif
I get the path I want...This really is sending me loopy as I should have
finished this yesterday..
Thanks for your help
Sam
Sam Clohesy
Project Manager
Tel: 0208 772 3958
E: samc@e...
W: http://www.etypemedia.co.uk
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:31
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Your pth isn't correct
this is your code:
If objFSO.FileExists(newPath & objRsKey("bannerID") & "/" & ".gif") Then
is say's the following path:
website 1/.gif
Do you see wat ik meen?
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #7 by Sam Clohesy <sam@e...> on Fri, 14 Dec 2001 10:26:26 -0000
|
|
Hi Walter, thanks for getting back to me again..
Here is my code..
% @ language = VBSCRIPT %>
<!--#include file = 'include/common.asp'-->
<!--#include file = 'include/adovbs.inc'-->
<%
Dim strUserPicPath
strUserPicPath = ("/article-images")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if session("siteId") = "" then
session("siteID") = request.querystring("id")
end if
Dim newpath
newpath = ("_private/banners")'This is new path
Dim strBannerPath
strBannerPathWeb = "../_private/banners/"
Dim strWebLinks
strWebLink = "advertise.asp?adOpt=1"
Dim objrsSite
set objRsSite = server.createobject("ADODB.Recordset")
strSqlSite = "SELECT * FROM tblSite WHERE siteId = " & session("siteID")
objRsSite.open strSqlSite, objConn, 2
session ("sitename") = objRsSite("sitename")
session ("siteFranchisee") = objRsSite ("siteFranchisee")
Dim txtSearch
txtSearch = request.querystring ("txtSearch")
set objRsKey= server.createobject("ADODB.Recordset")
Dim objrsKey
strSqlKey = "SELECT * FROM tblBanner WHERE siteId = " & session("siteID") &
" AND keyword LIKE '%" & txtSearch & "%'"
objRsKey.open strSqlKey, objConn, 2
'SELECT * FROM tblCompany WHERE siteID = 2 AND companyname LIKE '%a%'
if (objrsKey.BOF and objrsKey.EOF) then
response.write "<a href = '" & strWebLink & "'><img src = ' " &
strBannerPathWeb & "/lnet_banner.gif' border = '0'></a>"
'end if
else
'Original code here..
'see if it's a jpg
If objFSO.FileExists(newPath & "/" &
objRsKey("bannerID") & ".jpg") Then
'If checkfile(newPath & "\" &
objrsKey("bannerID") & ".jpg",False) = 1 Then
response.write "<a href = '" &
objrsKey ("bannerLink") & "' target = 'new'>"
response.Write "<img src='" &
newpath & "/" & objrsKey("bannerID") & ".jpg" & "'"
response.write " border = '0'></a>"
else
if objFSO.FileExists(newPath & "\" &
objrskey("BannerId") & ".gif") then
'If objFSO.FileExists(newPath & "/" &
objRsKey("bannerID") & ".gif") Then
response.write "<a href = '" &
objrsKey ("bannerLink") & "' target = 'new'>"
response.Write "<img src='" &
newpath & "/" & objrsKey("bannerID") & ".gif" & "'"
response.write " border = '0'></a>"
else
'Testing...
response.write newPath & "/" &
objRsKey("bannerID") & ".gif"
response.Write "<img src='" &
newpath & "/" & objrsKey("bannerID") & ".gif" & "'"
response.write " border = '0'></a>"
end If
end if
end if
objrsSite.close
set objrsSite =nothing
objrsKey.Close
Set objrsKey = nothing
Set objFSO = nothing
%>
Sam Clohesy
Project Manager
Tel: 0208 772 3958
E: samc@e...
W: http://www.etypemedia.co.uk
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 10:17
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
What is the value of newPath?
-----Original Message-----
From: Sam Clohesy [mailto:sam@e...]
Sent: Friday, December 14, 2001 11:13 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Hi again Walter, I have tried this: (With extra "/")
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
response.write "<a href = '" & objrsKey ("bannerLink") & "' target = 'new'>"
response.Write "<img src='" & newpath & "/" & objrsKey("bannerID") & ".gif"
& "'"
response.write " border = '0'></a>"
else
response.write "no gifs<p>"
But still no joy, any help much appreciated (No doubt the solution is
staring me in the face..)
Thanks
Sam
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:45
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
But in your If statment you looking for _private/banners23/.gif
_private/banners/23.gif
_private/banners23/.gif
The slash is in teh wrong place.
Walter
-----Original Message-----
From: Sam Clohesy [mailto:sam@e...]
Sent: Friday, December 14, 2001 10:38 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Hi Walter, not quite sure what you mean..
This does not seem to work either...
If objFSO.FileExists(newPath & "/" & objRsKey("bannerID") & ".gif") Then
Yet if I response.write it out I get
_private/banners/23.gif
I get the path I want...This really is sending me loopy as I should have
finished this yesterday..
Thanks for your help
Sam
Sam Clohesy
Project Manager
Tel: 0208 772 3958
E: samc@e...
W: http://www.etypemedia.co.uk
-----Original Message-----
From: Walter Franssen [mailto:walter@w...]
Sent: 14 December 2001 09:31
To: ASP Web HowTo
Subject: [asp_web_howto] RE: FSO Problem
Your pth isn't correct
this is your code:
If objFSO.FileExists(newPath & objRsKey("bannerID") & "/" & ".gif") Then
is say's the following path:
website 1/.gif
Do you see wat ik meen?
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #8 by "Walter Franssen" <walter@w...> on Fri, 14 Dec 2001 11:26:24 +0100
|
|
O, i see wat your problem is?
You variable is a path, but the server does not know from where, it Could be
every where on you Server
Try the Server.Mappath() funtion in your If statment Like this:
If objFSO.FileExists(Server.Mappath(newPath) & "/" & objRsKey("bannerID") &
".gif") Then
Walter
|
|
|
View Cart
