include

help120 · Nov 26, 2001

Ok I've 2 pages..
/nps/pic.asp (

http://www.finalphase.org/nps/pic.asp

)
and
/nps/news/gallery/picturegallery.asp (

http://www.finalphase.org/nps/news/gallery/picturegallery.asp

)

I'm trying to include the picturegallery.asp into the pic.asp page. I keep getting this error
---------------------------------------------------------
Microsoft VBScript runtime error '800a004c'

Path not found

C:\INETPUB\FINALPHASE\

http://WWWROOT\NPS\..\nps\news\gallery\picturegallery.asp,

line 46
---------------------------------------------------------
I've tryed taking the nps dir out of the include code but then I get a dif error.
Here is my html code for pic.asp

<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>

<body>

<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#FFAE00" width="95%"
id="AutoNumber1">
<tr>
<td width="100%" align="left" valign="top" bgcolor="#AD7500">
<p align="center"><font face="Arial" size="2" color="#FFFFFF">Never Play Soberz
Picture Gallery</font></td>
</tr>
<tr>
<td width="100%" align="left" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="4"
style="border-collapse: collapse" bordercolor="#111111" width="100%"
id="AutoNumber2">
<tr>
'##################### Code that will not work ##########
<td width="100%" align="left" valign="top"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>

</body>

</html>

SHARKY99 · Nov 26, 2001

What's in the other page??? I need to see you connect line

Have Fun...

Sharky99 >

:O>

help120 · Nov 26, 2001

<%
'*********************************************************************************
' Picture Gallery ASP script(c) Fedor Skvortsov, COMobjects.NET. June, 2001
' Mailto: support@comobjects.net
' WWW:

http://comobjects.net

'*********************************************************************************

'If number of pictures exceedes intMaxPictures, contents of the folder
'splits into pages.
Dim intMaxPictures
intMaxPictures = intColCount * intMaxRows

'Getting parameters from URL.

Dim strPath, intPage, strPhysicalPath, strPicture

'Path to the current folder of the gallery
strPath = Request.QueryString("path&quot

'Number of the current page. Default value is 1
If Request.QueryString("page&quot

<>"" Then
intPage = CInt(Request.QueryString("page&quot

)
Else
intPage=1
End If

'Filename of the picture
strPicture = Request.QueryString("picture&quot

'Physical path of the current folder
strPhysicalPath = Server.MapPath(strGalleryPath & strPath)

'Prevent somebody from browsing the structure of file system
'*******************************************************************************************************
If InStr(1, Server.MapPath(strGalleryPath & strPath), Server.MapPath(strGalleryPath), 1) <> 1 Or _
InStr(1,Server.MapPath(strGalleryPath & strPath & strPicture), Server.MapPath(strGalleryPath), 1) <> 1 Then
Err.Raise 5054, "COMobjectsNET PictureGallery Script", "Security Error"
End If
'*******************************************************************************************************

Dim objFileSystem, objFolder, objSubFolder, objFile
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject&quot

Set objFolder = objFileSystem.GetFolder(strPhysicalPath)

'Displaying Path to the current folder (or picture) and placing references to the folders
Dim strFolders
strFolders = Split(strPath, "/&quot

Response.Write "<table width='" & strGalleryWidth & "'><tr><td width='100%'><p class=path><img border='0' src='" & strOpenFolderIcon & "'>"
If strPath<>"" Or strPicture<>"" Then
Response.Write " <a href='PictureGallery.asp'>Gallery</a>"
Else
Response.Write " Gallery"
End If
Dim strP
strP = ""
For I=0 To UBound(strFolders)-2
strP= strP + strFolders(i) + "/"
Response.Write "\<a href='PictureGallery.asp?path=" & Server.URLEncode(strP) & "'>" & strFolders(i) & "</a>"
Next
If UBound(strFolders)>0 Then
If strPicture="" Then
Response.Write "\" & strFolders(UBound(strFolders)-1)
Else
strP = strP + strFolders(UBound(strFolders)-1) + "/"
Response.Write "\<a href='PictureGallery.asp?path=" & Server.URLEncode(strP) & "&page=" & intPage & "'>"
Response.Write strFolders(UBound(strFolders)-1) & "</a>"
End If
End If
If strPicture<>"" Then
Response.Write "\" & strPicture
End If
Response.Write "</p></td>"

'Displaying "Top" and "Parent" buttons
Response.Write "<td width='100'><p>"
If strPath<>"" Or strPicture<>"" Then
Response.Write "<a href='PictureGallery.asp?path=" & Server.URLEncode(strP)
If strPicture<>"" Then Response.Write "&page=" & intPage
Response.Write "'>"
Response.Write "<img border='0' src='" & strParentButton & "'></a>"
Else
Response.Write "<img border='0' src='" & strParentButtonDisabled & "'>"
End If
Response.Write "</p></td><td width='100'><p>"
If strPath<>"" Or strPicture<>"" Then
Response.Write "<a href='PictureGallery.asp'><img border='0' src='" & strTopButton & "'></a>"
Else
Response.Write "<img border='0' src='" & strTopButtonDisabled & "'>"
End If
Response.Write "</p></td></tr></table><br>"

'Creating description file if it is missed and auto generation of it is enabled
Dim strDescFilePath, objDescFile
strDescFilePath = objFolder.Path + "\" + strDescFileName
If blnDescCreation Then
If Not objFileSystem.FileExists(strDescFilePath) Then
Set objDescFile = objFileSystem.CreateTextFile(strDescFilePath)
objDescFile.WriteLine "FileName" & strDelimiter & "Description"
objDescFile.Close
Set objDescFile = Nothing
End If
End If
'Opening description file with ADO
'Determines exists or not description file.
'If description file exists it equals 1, elsewhere 0.
Dim intDescExists
Dim objConnection, objRecordSet, strConnString
Set objRecordSet = Server.CreateObject("ADODB.RecordSet&quot

If objFileSystem.FileExists(strDescFilePath) Then
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & objFolder.Path & ";Extended Properties='text;FMT=Delimited'"
Set objConnection = Server.CreateObject("ADODB.Connection&quot

objConnection.ConnectionTimeout = 15
objConnection.Open strConnString
intDescExists = 1
Else
intDescExists = 0
objConnection = null
End If
'Displaying subfolders and thumbnails or whole picture
If strPicture="" Then
'Displaying subfolders
Response.Write "<table width='" & strGalleryWidth & "'>"
Dim I
I= 0
For Each objSubFolder In objFolder.SubFolders
'Don't display thumbnails and hidden folders, such as Front Page Extensions ones
If Left(objSubFolder.Name,1)<>"_" And objSubFolder.Name<>"Thumbnails" Then
If I Mod 2 = 0 Then Response.Write "<tr>"
Response.Write "<td width='50%'>"
Response.Write "<p class=folder><img border='0' src='" & strFolderIcon & "'> "
Response.Write "<a target='_self' href='PictureGallery.asp?path=" & Server.URLEncode(strPath & objSubFolder.Name) & "/'>"
Response.Write objSubFolder.Name
Response.Write "</a> ("
If objFileSystem.FileExists(objSubFolder.Path & "\" & strDescFileName) Then
Response.Write objSubFolder.Files.Count - 1
Else
Response.Write objSubFolder.Files.Count
End If
Response.Write &quot

</p></td>"
If I Mod 2 = 1 Then Response.Write "</tr>"
I=I+1
End If
Next
If I Mod 2 = 1 Then Response.Write "<td></td></tr>"
Response.Write "</table>"

'Displaying thumbnails
Response.Write "<table width='" & strGalleryWidth & "'>"
I = 0
For Each objFile In objFolder.Files
If objFile.Name<>strDescFileName Then
If (I+1)>=((intPage-1)*intMaxPictures+1) And (I+1)<=((intPage)*intMaxPictures) Then
If I Mod intColCount = 0 Then Response.Write "<tr>"
Response.Write "<td width='" & 100 \ intColCount & "%' align='center' valign='top'>"
Response.Write "<table width='100%'>"
Response.Write "<tr><td width='100%' height='" & (intThumbnailSize + 5) & "' valign='bottom' align='center'>"
Response.Write "<a target='_blank' href='PictureGallery.asp?path=" & Server.URLEncode(strPath)
Response.Write "&picture=" & Server.URLEncode(objFile.Name) & "&page=" & intPage & "'>"
Response.Write "<img border='0' class=thumb src='thumbnail.asp?path="
Response.Write Server.URLEncode(strGalleryPath & strPath & objFile.Name) & "&size=" & intThumbnailSize & "'>"
Response.Write "</a></td></tr>"
'Displaying picture info
Response.Write "<tr><td align='center' height='50' width='100%' class='infobox'>"
Response.Write "<p>"
If intDescExists=1 Then
objRecordSet.Open "Select * From " & strDescFileName & " Where FileName='" & objFile.Name & "'", objConnection, 3, 1, 1
If Not objRecordSet.EOF Then
If objRecordSet(1)<>"" Then
Response.Write "<span class=description>" & objRecordSet(1) & "</span><br>"
End If
Else
If blnDescCreation Then
objConnection.Execute "INSERT INTO " & strDescFileName & "(FileName, Description) VALUES('" & objFile.Name & "', '')"
End If
End If
objRecordSet.Close
End If
Response.Write "<span class=info>" & objFile.Name & "</span><br>"
Response.Write "<span class=info>" & Month(objFile.DateLastModified) & "/"
Response.Write Day(objFile.DateLastModified) & "/" & Year(objFile.DateLastModified) & "</span><br>"
Response.Write "<span class=info>" & objFile.Size \ 1024 & "kb</span>"
Response.Write "</p></td></tr></table></td>"
If I Mod intColCount = intColCount-1 Then Response.Write "</tr>"
End If
I=I+1
End If
Next

If I Mod intColCount > 0 Then
Dim J
For J=(I Mod intColCount) + 1 To intColCount
Response.Write "<td width='" & 100 \ intColCount & "%' align='center' valign='bottom'>"
Response.Write "<table width='100%'>"
Response.Write "<tr></tr></table></td>"
Next
Response.Write "</tr>"
End If
Response.Write "</table>"

'Diplaying references to the pages if it's necessary
If objFolder.Files.Count-intDescExists>intMaxPictures Then
Dim intTotalPages
intTotalPages = (objFolder.Files.Count + intMaxPictures - 1 - intDescExists) \ intMaxPictures
Response.Write "<table width='" & strGalleryWidth & "'><tr>"
Response.Write "<td width='100%' align='center'><p class=navbar>"
If intPage>1 Then
Response.Write "<a href='PictureGallery.asp?path=" & Server.URLEncode(strPath) & "&page=" & intPage-1 & "'><< Prev <<</a>"
Else
Response.Write "<< Prev <<"
End If
For I=1 To intTotalPages
If I<>intPage Then
Response.Write "<a href='PictureGallery.asp?path=" & Server.URLEncode(strPath) & "&page=" & I & "'>| " & (I-1)*intMaxPictures+1 & "-"
If I*intMaxPictures>objFolder.Files.Count-intDescExists Then
Response.Write objFolder.Files.Count-intDescExists
Else
Response.Write I*intMaxPictures
End If
Response.Write " |</a>"
Else
Response.Write "| " & (I-1)*intMaxPictures+1 & "-"
If I*intMaxPictures>objFolder.Files.Count-intDescExists Then
Response.Write objFolder.Files.Count-intDescExists
Else
Response.Write I*intMaxPictures
End If
Response.Write "|"
End If
Next
If intPage<intTotalPages Then
Response.Write "<a href='PictureGallery.asp?path=" & Server.URLEncode(strPath) & "&page=" & intPage+1 & "'>>> Next >></a>"
Else
Response.Write ">> Next >>"
End If
Response.Write "</p></td></tr></table>"
End If

Else
'Displaying whole picture
Response.Write "<table width='" & strGalleryWidth & "'>"
Response.Write "<tr><td width='100%' align='center'>"

On Error Resume Next
If intDescExists=1 Then
objRecordSet.Open "Select * From " & strDescFileName & " Where FileName='" & strPicture & "'", objConnection, 3, 1, 1
If Not objRecordSet.EOF Then
If objRecordSet(1)<>"" Then
Response.Write "<p class=description>" & objRecordSet(1) & "</p>"
End If
End If
objRecordSet.Close
End If
On Error GoTo 0

Response.Write "<img class=fullimage src='" & strGalleryPath & strPath & strPicture & "'>"

'Scanning for files in folder
Dim strFiles()
ReDim strFiles(objFolder.Files.Count-intDescExists)
I = 0
Dim intPicture
For Each objFile in objFolder.Files
If objFile.Name<>strDescFileName Then
strFiles(I) = objFile.Name
If objFile.Name = strPicture Then intPicture = I
I = I + 1
End If
Next
Response.Write "<p align=center class=navbar>"
If intPicture>0 Then
Response.Write "<a href='PictureGallery.asp?path=" & Server.URLEncode(strPath)
Response.Write"&picture=" & Server.URLEncode(strFiles(intPicture-1)) & "'><< Prev <<</a> "
Else
Response.Write "<< Prev << "
End If

For I=0 To UBound(strFiles)-1
If I<>intPicture Then
Response.Write "<a href='PictureGallery.asp?path=" & Server.URLEncode(strPath)
Response.Write"&picture=" & Server.URLEncode(strFiles(I)) & "'>| " & I+1 & " |</a> "
Else
Response.Write "| " & (I+1)
Response.Write "| "
End If
Next
If intPicture+1<UBound(strFiles) Then
Response.Write " <a href='PictureGallery.asp?path=" & Server.URLEncode(strPath)
Response.Write"&picture=" & Server.URLEncode(strFiles(intPicture+1)) & "'>>> Next >></a>"
Else
Response.Write " >> Next >>"
End If
Response.Write "</p></td></tr></table>"
End If
If objConnection<>Null Then objConnection.Close
Set objConnection = Nothing
Set objRecordSet = Nothing
Set objFolder = Nothing
Set objFileSystem = Nothing
%>

SHARKY99 · Nov 26, 2001

I'm not really an asp pro but i'll try to help

First you should always use:

<%@ Language=VBScript %>
<% Option Explicit %>
<%
dim OyDate, blabla....

at the beginning of your asp pages.

The error indicates some wrong in your path

NPS\..\nps\news\gallery\picturegallery.asp

Try using only one "." in your string, with two you come back to the previous dir

It should look like this

.\nps\news\gallery\picturegallery.asp

maybe even better with the full path???

Have Fun...

Sharky99 >

:O>

help120 · Nov 26, 2001

you can't use the full path.. at least I don't think you can.

Ovatvvon · Nov 26, 2001

When ever you include a file using the "file" include, it'll be relative to the folder that page is in. If you use the "virtual", it'll always be from the host dns name.

Example:
You have a file located at c:\inetpub\wwwroot\include\myFile.asp that you want to include in other pages throughout your web site...

Page: 1.asp
Location: C:\inetpub\

http://wwwroot\private\1.asp

-------------------------------------

<html>
<head>
....etc, etc, etc

That will have an error because it's telling it to include a file located at c:\inetpub\wwwroot\private\myFile.asp when the file actually lies in a same level folder called "include". So you would have to edit the include statement to read...
 to pull the file corrrectly.

This is somtimes good, but in many cases, you want to have the same path written on all your pages for the include statment, so it's more logical to use a virtual path include.



This tells it to pull from your main folder located at c:\inetpub\wwwroot where your domain name is pointed to (

http://mydomain.com),

then go to the include folder within that folder, and within that is a file named "myFile.asp" that it wants to include.

Hope that makes sense.
-Ovatvvon :-Q

help120 · Nov 26, 2001

umm.. to tired will look at it in the morning.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

include

help120

Technical User

SHARKY99

Programmer

help120

Technical User

SHARKY99

Programmer

help120

Technical User

Ovatvvon

Programmer

help120

Technical User

Similar threads

Part and Inventory Search

Sponsor