maxxZone.com,
Inc. is listed on the Over-the-Counter Bulletin Board (OTC BB): MAXZ
<%
Const ForReading = 1
Dim strReferrer, objFSO, objOpenFile, strLine
strReferrer = Request.QueryString("REF")
If Len(strReferrer) < 1 then
strReferrer = Request.ServerVariables("HTTP_REFERER")
If Len(strReferrer) < 1 then
Response.Write "Egad! An Error occurred! We could not" & _
" determine what page you wanted to view the source for..."
Response.End
Else
'With the HTTP_REFERER, the entire URL is passed along... we
'need to hack out the http://www.4guysfromrolla.com part
strReferrer = Right(strReferrer,len(strReferrer)-7)
strReferrer = Right(strReferrer,len(strReferrer) - _
instr(1,strReferrer,"/")+1)
End If
End If
'Make sure the user isn't trying to view ASP source
'(You should alter this below statement to make sure that the
' reader is trying to view an article in the proper directory.
' If you do not care where the user views the articles from,
' simply remove the If statement altogether...)
If InStr(1,UCase(strReferrer),"/") = 0 OR _
InStr(1,strReferrer,"..") <> 0 then
'Shame on you, trying to view a page you're not suppose to...
Response.Write "Only pages in the /webtech/" & _
" directory may be viewed in printer-friendly format..."
Response.End
End If
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objOpenFile = objFSO.OpenTextFile(Server.MapPath(strReferrer), _
ForReading)
Dim TotalFile
'Output each line of the file...
Do Until objOpenFile.AtEndOfStream
' strLine = objOpenFile.ReadLine
TotalFile = TotalFile & objOpenFile.ReadLine & vbCrLf
' Response.Write strLine
Loop
response.write "TEST"
If (strReferrer = "/investor.asp") then
%>
INVESTORS
UPDATE
maxxZone.com
Appoints Website Developer
November 12, 2002 Entire
Story...
maxxZone.com
Launches New Sports Play Evolution
October 24, 2002 Entire
Story...
maxxZone.com
Taps Huge FunPlayer Market October
22, 2002 Entire
Story...
<%
else
Dim StartPostion
StartPostion = Instr(TotalFile,"mainarea_begin")
StartPostion = StartPostion + 20
Dim EndPostion
EndPostion = Instr(TotalFile,"mainarea_end")
EndPostion = EndPostion - 31
Dim TotalLength
TotalLength = (EndPostion - StartPostion)
Dim TheResult
TheResult = mid(TotalFile,StartPostion, TotalLength)
Response.Write TheResult
end if
objOpenFile.Close
Set objOpenFile = Nothing
Set objFSO = Nothing
%>
