|
<%
IF request.querystring("logout") = "1" Auth.Logout() %> <html> <head><title>Word Test</title></head> <body> You have successfully logged out.<br> <a href="testword.fwx">Try again</a> </body></html> <% Response.End ENDIF Auth.AuthTable = "data\Users.dbf" Auth.AuthFormFile = "authform.fwx" Auth.Header = "" Auth.Footer = "" Auth.SaveCookie = 1 Auth.Authenticate() M.FileName = Request.QueryString("FileName") IF EMPTY(M.FileName) %> <html> <head><title>Word Test</title></head> <body> <a href="#" onclick="window.open('testword.fwx?FileName=test.doc','Wordwindow','left=0, top=0,width=800,height=700,scrollbars,menubar')">Click to view word file</a><br>
<a href="#" onclick="window.open('testword.fwx?FileName=mountains.jpg','Wordwindow', 'left=0,top=0,width=800,height=700,scrollbars,menubar')">Click to view image file</a><br> <br> <a href="testword.fwx?logout=1">Logout</a> </body></html> <% ELSE DO CASE CASE LOWER(JUSTEXT(M.FileName)) = "doc" M.ContentType = "application/msword" CASE INLIST(LOWER(JUSTEXT(M.FileName)), "jpg", "jpeg") M.ContentType = "image/jpeg" OTHERWISE Response.Write("File type not supported") Response.End ENDCASE IF FILE(M.FileName) Response.AddHeader("Content-Disposition", "inline; filename=" + M.FileName) FileContent = ReadFile(M.FileName) * Specify size so that progress bar works properly Response.AddHeader("Content-Length", Server.ToString(LEN(M.FileContent))) Response.ContentType = M.ContentType * Send file to browser Response.Write(M.FileContent) ELSE Response.Write("File not found") ENDIF ENDIF %> |
FoxWeb Support Team support@foxweb.com email |
Your code and my code will run fine in its on window (being called directly)
Did you run my code or your code from a new popup window. using (window.open)
I now know my code did not generate the word or image file not was not necessary to show you the problem.
The page if set to display a word doc generates the auth form as a word document.
also email notification not working.
<%
Auth.AuthTable = "data\Users.dbf" Auth.AuthFormFile = "authform.fwx" Auth.Header = "" Auth.Footer = "" Auth.SaveCookie = 1 Auth.Authenticate() M.FileName = "test.doc" M.ContentType = "application/msword" Response.AddHeader("Content-Disposition", "inline; filename=" + M.FileName) FileContent = ReadFile(M.FileName) * Specify size so that progress bar works properly Response.AddHeader("Content-Length", Server.ToString(LEN(M.FileContent))) Response.ContentType = M.ContentType * Send file to browser Response.Write(M.FileContent) %> |
FoxWeb Support Team support@foxweb.com email |