Thanks, was all down to me being on my C drive and not using remote server.
Thanks for your time and hanging in there.
Sean
"Ronx" wrote:
> If you are using a server based web, accessed in FrontPage using
> http://localhost/ or http://localhost/webname then it can be done
> locally. Otherwise you can set up the files required, but must publish
> to a server to test.
> --
> Ron Symonds - Microsoft MVP (FrontPage)
> Reply only to group - emails will be deleted unread.
>
> http://www.rxs-enterprises.org/fp
>
>
>
>
> "defraine" <defraine [at] discussions.microsoft.com> wrote in message
> news:B447E951-6054-4F1F-9CAC-73B9C190F296 [at] microsoft.com:
>
> > Hi Ron,
> > Thanks. Will try. Am I right in saying this can ONLY be done connected to
> > my remoteweb. ie. I CAN'T do it locally on my C drive with preview and I
> > HAVE to be ONLINE?
> > Cheers
> >
> > "Ronx" wrote:
> >
> > > I have used your code to create pages in a subweb. With a few
> > > "cosmetic" changes to suit the location of the subweb your code works.
> > > I did make one other change:
> > >
> > > In logon.inc I changed
> > >
> > > objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
> > > Server.MapPath(MDB_URL) & "; uid=admin; pwd="
> > >
> > > To
> > >
> > > objCN.Open Application("Database1_ConnectionString")
> > >
> > > because the code as written (changed to suit my web) caused a JET
> > > database read error.
> > >
> > > When you imported the database you should have been asked to move the
> > > database to fpdb folder, and to create a database connection.
> > > In the logon subweb's root there should be a file named global.asa -
> > > this file contains the database connection, and
> > > Application("Database1_ConnectionString") references this connection
> > > string.
> > >
> > >
> > > --
> > > Ron Symonds - Microsoft MVP (FrontPage)
> > > Reply only to group - emails will be deleted unread.
> > >
> > > http://www.rxs-enterprises.org/fp
> > >
> > >
> > >
> > >
> > > "defraine" <defraine [at] discussions.microsoft.com> wrote in message
> > > news:D6D973F1-567C-410B-8D36-C9C2C314C21E [at] microsoft.com:
> > >
> > > > OK, I am one last post away from giving up :-(
> > > >
> > > > I am currently following the Frontpage 2000 KB 321503. I only have
> > > > Frontpage 2000 at work.
> > > >
> > > > I have a website "test" that just contains index.html This has a link to
> > > > default.asp in my sub web "logon".
> > > >
> > > > Sub web logon contains.
> > > > default.asp
> > > > unsecure.asp
> > > > secure.asp
> > > > logon.asp
> > > > logon.inc
> > > >
> > > > fpdb contains logon.mdb created as instructed.
> > > > _private has no files in.
> > > >
> > > > Now I preview default.asp - perfect.
> > > > I click on unsecure and get the unsecure page.
> > > > I click on secure and get the secure page, but never re-directs to logon.asp
> > > > I can't preview logon.asp although the outrput is fine from the preview tab
> > > > in page view.
> > > >
> > > > Here is my secure.asp code, include changed from KB - ok?
> > > > <% [at] language="vbscript" %>
> > > > <!--#include virtual="/logon/logon.inc"-->
> > > > <html>
> > > > <head><title>Secure Page</title></head>
> > > > <body>
> > > > <h3>Secure Page</h3>
> > > > <p>You are logged on as:
> > > > <%
> > > > If Len(Session("UID")) = 0 Then
> > > > Response.Write "<b>You are not logged on.</b>"
> > > > Else
> > > > Response.Write "<b>" & Session("UID") & "</b>"
> > > > End If
> > > > %>
> > > > </p>
> > > > <p>Back to default</p>
> > > > </body>
> > > > </html>
> > > >
> > > > Here is logon.asp, include again changed from KB - ok?
> > > > <% [at] language="vbscript" %>
> > > > <!--#include virtual="/logon/logon.inc"-->
> > > > <%
> > > > ' Was this page posted to?
> > > > If UCase(Request.ServerVariables("HTTP_METHOD")) = "POST" Then
> > > > ' If so, verify the username/password that was entered.
> > > > If ComparePassword(Request("UID"),Request("PWD")) Then
> > > > ' If comparison was good, store the user name...
> > > > Session("UID") = Request("UID")
> > > > ' ..and redirect back to the original page.
> > > > Response.Redirect Session("REFERRER")
> > > > End If
> > > > End If
> > > > %>
> > > > <html>
> > > > <head><title>Logon Page</title>
> > > > <style>
> > > > body { font-family: arial, helvetica }
> > > > table { background-color: #cccccc; font-size: 9pt; padding: 3px }
> > > > td { color: #000000; background-color: #cccccc; border-width: 0px }
> > > > th { color: #ffffff; background-color: #0000cc; border-width: 0px }
> > > > </style>
> > > > </head>
> > > > <body bgcolor="#000000" text="#ffffff">
> > > > <h3 align="center"> </h3>
> > > > <div align="center"><center>
> > > > <form action="<%=LOGON_PAGE%>" method="POST">
> > > > <table border="2" cellpadding="2" cellspacing="2">
> > > > <tr>
> > > > <th colspan="4" align="left">Enter User Name and Password</th>
> > > > </tr>
> > > > <tr>
> > > > <td> </td>
> > > > <td colspan="2" align="left">Please type your user name and password.</td>
> > > > <td> </td>
> > > > </tr>
> > > > <tr>
> > > > <td> </td>
> > > > <td align="left">Site</td>
> > > > <td align="left"><%=Request.ServerVariables("SERVER_NAME")%> </td>
> > > > <td> </td>
> > > > </tr>
> > > > <tr>
> > > > <td> </td>
> > > > <td align="left">User Name</td>
> > > > <td align="left"><input name="UID" type="text" size="20"></td>
> > > > <td> </td>
> > > > </tr>
> > > > <tr>
> > > > <td> </td>
> > > > <td align="left">Password</td>
> > > > <td align="left"><input name="PWD" type="password" size="20"></td>
> > > > <td> </td>
> > > > </tr>
> > > > <tr>
> > > > <td> </td>
> > > > <td colspan="2" align="center"><input type="submit" value="LOGON"></td>
> > > > <td> </td>
> > > > </tr>
> > > > </table>
> > > > </form>
> > > > </center></div>
> > > > </body>
> > > > </html>
> > > >
> > > > This is logon.inc, references in here also needed changing - ok?
> > > > <%
> > > > ' Do not cache this page.
> > > > Response.CacheControl = "no-cache"
> > > >
> > > > ' Define the name of the users table.
> > > > Const USERS_TABLE = "tblUsers"
> > > > ' Define the path to the logon page.
> > > > Const LOGON_PAGE = "/logon/logon.asp"
> > > > ' Define the path to the logon database.
> > > > Const MDB_URL = "/logon/fpdb/logon.mdb"
> > > >
> > > > ' Check to see whether you have a current user name.
> > > > If Len(Session("UID")) = 0 Then
> > > > ' Are you currently on the logon page?
> > > > If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
> > > > ' If not, set a session variable for the page that made the request...
> > > > Session("REFERRER") = Request.ServerVariables("URL")
> > > > ' ...and redirect to the logon page.
> > > > Response.Redirect LOGON_PAGE
> > > > End If
> > > > End If
> > > >
> > > > ' This function checks for a username/password combination.
> > > > Function ComparePassword(UID,PWD)
> > > > ' Define your variables.
> > > > Dim strSQL, objCN, objRS
> > > > ' Set up your SQL string.
> > > > strSQL = "SELECT * FROM " & USERS_TABLE & _
> > > > " WHERE (UID='" & ParseText(UID) & _
> > > > "' AND PWD='" & ParseText(PWD) & "');"
> > > > ' Create a database connection object.
> > > > Set objCN = Server.CreateObject("ADODB.Connection")
> > > > ' Open the database connection object.
> > > > objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
> > > > Server.MapPath(MDB_URL) & "; uid=admin; pwd="
> > > > ' Run the database query.
> > > > Set objRS = objCN.Execute(strSQL)
> > > > ' Set the status to true/false for the database lookup.
> > > > ComparePassword = Not(objRS.EOF)
> > > > ' Close your database objects.
> > > > Set objRS = Nothing
> > > > Set objCN = Nothing
> > > > End Function
> > > >
> > > > ' This function restricts text to alpha-numeric data only.
> > > > Function ParseText(TXT)
> > > > Dim intPos, strText, intText
> > > > For intPos = 1 TO Len(TXT)
> > > > intText = Asc(Mid(TXT,intPos,1))
> > > > If (intText > 47 And intText < 58) Or _
> > > > (intText > 64 And intText < 91) Or _
> > > > (intText > 96 And intText < 123) Then
> > > > strText = strText & Mid(TXT,intPos,1)
> > > > End if
> > > > Next
> > > > ParseText = strText
> > > > End Function
> > > > %>
> > > >
> > > > So basically my example never loads the logon.asp page, I can click between
> > > > the default, secure and unsecure pages, but never get to use the logon page
> > > > to check testuser and password.
> > > >
> > > > Help please, if not too much trouble, could you try following the KB and see
> > > > if it works for you?
> > > >
> > > > All I want to do is password protect 1 page :-(
> > > >
> > > > Thanks again
> > >
> > >
>
>
