I'm trying to set the source of one of my frames dynamically within the framset. I've created a function that determines the user and loads the leftFrame based upon the result. I'm not sure if something is wrong with my function or the manner in which I'm trying to call it from the frame src.
Any suggestions? TIA
<frameset cols="200,*" rows="*" frameborder="NO" border="0" framespacing="0">
<frame src="getLeftFrame(Request("leftFramePage")" name="leftFrame" scrolling="no noresize id="leftFrame" >
<frameset rows="220,*" cols="*" framespacing="0" frameborder="NO" border="0">
<frame src="top.htm" name="topFrame" scrolling="no" noresize id="topFrame">
<frame src="main.asp" name="mainFrame">
</frameset>
</frameset><noframes></noframes>
<Script language="VBScript">
Function getLeftFrame(leftFramePage)
dim LogOn
LogOn = request.serverVariables("LOGON_USER"
if (len(LogOn) = 0) then
response.status = "401 Authenticate"
response.end
end if
dim objFSO
set objFSO = Server.CreateObject("Scripting.FileSystemObject"
if objFSO.FileExists ("c:/inetpub/ then
dim objTextStream
set objTextStream = objFSO.OpenTextFile ("c:/inetpub/ 1)
If LogOn = objTextStream.ReadLine then
LeftFramePage = " end if
objTextStream.close
set objTextStream = Nothing
end if
Set objFSO = Nothing
</script>
Any suggestions? TIA
<frameset cols="200,*" rows="*" frameborder="NO" border="0" framespacing="0">
<frame src="getLeftFrame(Request("leftFramePage")" name="leftFrame" scrolling="no noresize id="leftFrame" >
<frameset rows="220,*" cols="*" framespacing="0" frameborder="NO" border="0">
<frame src="top.htm" name="topFrame" scrolling="no" noresize id="topFrame">
<frame src="main.asp" name="mainFrame">
</frameset>
</frameset><noframes></noframes>
<Script language="VBScript">
Function getLeftFrame(leftFramePage)
dim LogOn
LogOn = request.serverVariables("LOGON_USER"
if (len(LogOn) = 0) then
response.status = "401 Authenticate"
response.end
end if
dim objFSO
set objFSO = Server.CreateObject("Scripting.FileSystemObject"
if objFSO.FileExists ("c:/inetpub/ then
dim objTextStream
set objTextStream = objFSO.OpenTextFile ("c:/inetpub/ 1)
If LogOn = objTextStream.ReadLine then
LeftFramePage = " end if
objTextStream.close
set objTextStream = Nothing
end if
Set objFSO = Nothing
</script>