Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 234
  • Last Modified:

Including a file in ASP

Hi all...

I'm making a website in ASP (I used to work with PHP, in PHP the solution for my problem is the INCLUDE(filename) function) and I have a problem.

I want to insert the text of an other file into a ASP page.

i.e.:

index.asp
---------
<!--#include file="read.function.asp"-->
<html>
<head></head>
<body>
<%
strMenu = "create.asp"
Response.Write(ReadDisplayFile(strMenu) %>
</body>
</html>

This is the code of read.function.asp

read.function.asp
-----------------
<%
     Function ReadDisplayFile(FileToRead)
          strFileToRead = Server.Mappath(FileToRead)
          Set fs = CreateObject("Scripting.FileSystemObject")
          Set strThisFile = fs.OpenTextFile(strFileToRead, 1, False, TristateMixed)
          strTemp = strThisFile.ReadAll
          strThisFile.Close
          set strThisFile = nothing
          set fs = nothing
          ReadDisplayFile = strTemp
     end Function
%>

This is the code of create.asp

create.asp
----------
<html>
<head></head>
<body>
<form method="post" action="index.asp">
 <table>
  <tr>
   <td>Name:</td>
   <td><input type="text" name="first_name"></td>
  </tr>
 </table>
</form>
<% Response.Write("test") %>
</body>
</html>

Now, if I load index.asp in my browser...I see the form, but not the printout of <% Response.Write("test") %>.
So, the ASP-code is not parsed.

I also tried this
<% testje = """test.asp""" %>
<% Response.Write("<!--#include file="& testje & "-->") %>

but the include file-statement doesn't work when I use a variable...

Does anybody have a solution? I need this so bad...thank you very very much if you can help me...

Thanks...
0
RoB
Asked:
RoB
1 Solution
 
webwomanCommented:
You can't use a variable. Includes are done before the ASP is parsed, so there's no variable to use.

The include should definitely parse correctly, make sure that it's in the same directory as the main file. Also, you might want to rename it -- take out the . in the filename. I suspect that may be causing problems.
0
 
harwantgrewalCommented:
is your asp is working I mean check the source of the page it display the asp tag that means your ASP is not parsing check iis

harry
0
 
daniel_cCommented:
Just curious, why do you have to read the file?
Why don't just redirect to the ASP file?

Change this to your index.asp file:

<!--#include file="read.function.asp"-->
<html>
<head></head>
<body>
<%
strMenu = "create.asp"
Response.Redirect strMenu
'Response.Write(ReadDisplayFile(strMenu))
%>
</body>
</html>

HTH,

^_^
0
What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

 
ebosscherCommented:
I'm willing to hazard a guess.

The browser will not see the ASP as ASP because it is output, you are sending the new page directly to the browser window, the browser is not calling the ASP through IIS, and so IIS sees no need to parse the page it is receiving.  I could be wrong, but that SEEMS like what it is doing.

I would suggest not streaming pages that require interpritation by the server, the server probably sees these as a text stream, and not as an ASP.

Regards,

Evan
0
 
ASPGuruCommented:
hi RoB,

if you have Win2k you can use:
Server.Execute testje

ASPGuru
0
 
knightEknightCommented:
try this:

testje MUST be a fully qualified URL: http://server/path/file.inc

<%
 Response.Buffer = True

 RePost(testje)  'note: this must be a fully qualified URL

 Function RePost( postURL )  'instead of redirecting, repost the form data

   Dim objXMLHTTP, xml
   Set xml = Server.CreateObject("Microsoft.XMLHTTP")
   xml.Open "POST", postURL, False
   xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   xml.Send "" & Request.Form &"&"& Request.QueryString &"&"& Request.Cookies
   Response.Write xml.responseText
   'RePost = ""&xml.responseText
   Set xml = Nothing

 End Function
%>
0
 
RoBAuthor Commented:
Thank you very much mate...

RoB
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now