View Single Post
  #3 (permalink)  
Old May 21st, 2004, 01:04 AM
happygv happygv is offline
Friend of Wrox
 
Join Date: Jun 2003
Posts: 2,480
Thanks: 0
Thanked 1 Time in 1 Post
Default

Hi Tom,

I found a work around for this. It works fine. Here you go.

Details of what it does.
  • Consider "test.asp" as the first page, where you got the links to click and get its info stored on to a text file.
  • "test1.asp" is where the code for writing to text file is given.
  • on click of any of the 4 links on "test.asp" page, takes to "test1.asp" where the article/link info is written/appended to "text.txt" and then redirected to "test.asp" with #name reference

test.asp
--------
Code:
<html>
<HEAD>
</HEAD>

<BODY>

<a href="#Article1">&nbsp;</a>
<a href="test1.asp?qs=Article1">Title_of_Article1</a>
<br><br>
<a href="#Article2">&nbsp;</a>
<a href="test1.asp?qs=Article2">Title_of_Article2</a>
<br><br>
<a href="#Article3">&nbsp;</a>
<a href="test1.asp?qs=Article3">Title_of_Article3</a>
<br><br>
<a href="#Article4">&nbsp;</a>
<a href="test1.asp?qs=Article4">Title_of_Article4</a>

</BODY> 
</html>
test1.asp
---------
Code:
<%

    dim fs, ft, tout, article_title

    article_title=Request.querystring("qs")

    set fs=Server.CreateObject("Scripting.FileSystemObject")
    ft = server.mappath("text.txt")
    set tout = fs.opentextfile(ft, 8, true)
    tout.writeline(article_title)
    tout.close
    set fs = nothing
    set ft = nothing
    set tout = nothing

    Response.Redirect("./test.asp#" & article_title)
%>
Hope that helps.
Cheers!

-Vijay G
Reply With Quote