I would like all of our intranet pages to provide a link to the site
owner... and when clicked the visitor should be able to send the owner
an email.
I was using ASP to do this (see below) but I would like to not have
use the .asp extension on all 70,000 of our pages...
Can i somehow get this (or similiar) functionality using javascript?
You will notice that a _siteinfo.txt file has to be dropped into each
directory for the code to work.
This code also generates a page last modified date... but I did figure
out how to get that info using javascript.
<%
Dim fso, fname, iname, imail, fpath
Dim tsin, ln, contactline, fp, pagefile, pagedate
' Format of _siteinfo.txt data file...
'CONTACT_NAME=W hitney Cali
'C************* *********@whate ver.com
Set fso = Server.CreateOb ject("Scripting .FileSystemObje ct")
fp = Request.ServerV ariables("PATH_ TRANSLATED")
fpath = fso.GetParentFo lderName(fp)
fname = fpath + "\_siteinfo.txt "
If fso.FileExists( fname) Then
Set f = fso.GetFile(fna me)
Set tsin = f.OpenAsTextStr eam(1, -2)
Do While Not tsin.AtEndOfStr eam
ln = tsin.ReadLine()
If Left(ln,12) = "CONTACT_NA ME" Then
iname = Mid(ln,14)
End If
If Left(ln,13) = "CONTACT_EM AIL" Then
imail = Mid(ln,15)
End If
If Left(ln,13) = "CONTACT_PH ONE" Then
iphone = Mid(ln,15)
End If
Loop
' Close filestream
tsin.Close
If imail <> "" And iname <> "" Then
contactline = "Site Owner: <a href='mailto:" & imail & "?subject=W eb
Site Feedback'>" & _
iname & "</a> Phone: " & iphone
Else
contactline = ""
End If
Else
contactline = ""
End If
Set tsin = Nothing
Set pagefile = fso.GetFile(fp)
pagedate = pagefile.DateLa stModified
Set pagefile = Nothing
Set fso = Nothing
pagename = Request.ServerV ariables("PATH_ INFO")
%>
