how to include a .inc file in asppages

Expand Post »

Hi all,

This is vamsi from Hyderabad. From the past 2 days I am very difficult to solve this eror. We are working for a product project in which it have to include a patch version in end. this patch version should get dynamically depends upon assembly version. So I created "BottomNav.Inc" file . It works fine with aspx pages. But not working with .asp pages.

can you suggest me how to add this. please find the code I have written for both asp and "BottomNav.Inc" below

asp Syntax (Toggle Plain Text)
"for asp page "
--------------------------------------------
	<!-- #include file="bottomnav.inc"-->
 
"BottomNav.Inc" 
---------------------------------
 
<!--footer-->
<%
  Dim objFSO
  Dim objFSO1
  Dim WSHShell 
  Dim MyArray
  Dim subArr
  Dim Mesg
  Dim strFileName
  Dim FileNameInThisDir 
  Dim ScriptFullName
  Dim strRootFolder 
  strRootFolder = "\atpar\web" & "\.asp"
  Dim Msg
  Dim Dir
  objFSO = CreateObject("Scripting.FileSystemObject")
  objFSO1 = CreateObject("Scripting.FileSystemObject")
   strFileName = "AtPar_BusinessRules.dll"
   FileNameInThisDir =  server.MapPath("/atpar/bin/") &  "\AtPar_BusinessRules.dll"
  Dir=server.MapPath("\atpar\web" ) & "\*.asp"
'Dir=server.MapPath("\atpar\web" ) 
Msg=objFSO.GetExtensionName (Dir)
  Mesg = objFSO1.GetFileVersion(FileNameInThisDir)
   MyArray = Split(Mesg, ".", -1, 1)
   Mesg = MyArray(0) & "." & MyArray(1) & "." & MyArray(2) & ".B4-SP1." & MyArray(3)
   objFSO1 = nothing
   MyArray = nothing
%>
&nbsp;</TD><TD width=3% nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</TD>
	</TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD align=left background=images/bottombg.jpg height=48 nowrap>
<table cellSpacing=0 cellPadding=0 border=0 width=100%>
<tr>
<td width=217 nowrap><IMG src="images/bottom.jpg" width=217></td>
<td valign=bottom align=center nowrap><SPAN class="PageFooter"><b>Copyright © 2001 - 2008 AtPar, Inc.</b><b></span></td>
<td valign=bottom align=right nowrap><SPAN class="PageFooter"><b><%= Mesg %></b></span></td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
"for asp page "
--------------------------------------------
	<!-- #include file="bottomnav.inc"-->

"BottomNav.Inc" 
---------------------------------

<!--footer-->
<%
  Dim objFSO
  Dim objFSO1
  Dim WSHShell 
  Dim MyArray
  Dim subArr
  Dim Mesg
  Dim strFileName
  Dim FileNameInThisDir 
  Dim ScriptFullName
  Dim strRootFolder 
  strRootFolder = "\atpar\web" & "\.asp"
  Dim Msg
  Dim Dir
  objFSO = CreateObject("Scripting.FileSystemObject")
  objFSO1 = CreateObject("Scripting.FileSystemObject")
   strFileName = "AtPar_BusinessRules.dll"
   FileNameInThisDir =  server.MapPath("/atpar/bin/") &  "\AtPar_BusinessRules.dll"
  Dir=server.MapPath("\atpar\web" ) & "\*.asp"
'Dir=server.MapPath("\atpar\web" ) 
Msg=objFSO.GetExtensionName (Dir)
  Mesg = objFSO1.GetFileVersion(FileNameInThisDir)
   MyArray = Split(Mesg, ".", -1, 1)
   Mesg = MyArray(0) & "." & MyArray(1) & "." & MyArray(2) & ".B4-SP1." & MyArray(3)
   objFSO1 = nothing
   MyArray = nothing
%>
&nbsp;</TD><TD width=3% nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</TD>
	</TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD align=left background=images/bottombg.jpg height=48 nowrap>
<table cellSpacing=0 cellPadding=0 border=0 width=100%>
<tr>
<td width=217 nowrap><IMG src="images/bottom.jpg" width=217></td>
<td valign=bottom align=center nowrap><SPAN class="PageFooter"><b>Copyright © 2001 - 2008 AtPar, Inc.</b><b></span></td>
<td valign=bottom align=right nowrap><SPAN class="PageFooter"><b><%= Mesg %></b></span></td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>

Last edited by cscgal; Oct 17th, 2008 at 11:43 am. Reason: Added code tags

vamsi.kiran

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Oct 2008

Permalink

Oct 18th, 2008

Re: how to include a .inc file in asppages

What I can understand that it might be a problem with File System object, that it can not read the fiels or ASP engine can not access the files in that directory. Check to see it IISUR has the permissions to access this directory.

Also Dir=server.MapPath("\atpar\web" ) & "\*.asp" here try to use "/" instead of "\".

msaqib

Reputation Points: 9

Solved Threads: 1

Junior Poster in Training

Offline

91 posts
since Sep 2004

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in ASP Forum Timeline: Redirecting from .html page to .asp page

Next Thread in ASP Forum Timeline: ASP and Connectivity

DaniWeb Message

Cancel Changes

User Name
Password