Results 1 to 2 of 2

Thread: Practicality of new menu function

  1. 04-17-2003, 05:42 PM #1
    kolson
    kolson is offline Registered User
    Join Date
    Apr 2003
    Location
    California
    Posts
    11

    Practicality of new menu function

    Your example of the login password function works great for displaying a grid. I need to have it display the menu function.

    It's not practical to have the user log in to display a grid, but it would be logical to have the login display the menu after a successful login.

    I tried to replace the grid function with the menu function and the login functionality complete disappears.

    Here is the code I used.

    <Head><link rel='stylesheet' href='/tornado/css/oceanabove/Style.css'></Head>
    <script language="vb" runat="server">
    Sub Page_Load(Source as Object, E as EventArgs)
    Dim LOG2 As New Tornado.Z()
    With LOG2
    .dbSkin = "oceanabove"
    .dbTextHolder = "Title=Public Integrity Division"
    .dbLogin = "Type=DB|DSN=password|SQL=SELECT password, email FROM table1 WHERE ID = '[[ID]]'|LoginTitle=Tornado Login|FromAddr=dahelpdesk@da.sbcounty.gov|EmailSub ject=Your Password|EmailBody=Your password/id is : [[ID]] / [[password]] | SMTPserver=DA-EXCHANGE"
    .dbMenuParams = "type=5| style=brownbricks| ve=false| du=http://www.sbcounty.gov| wi=300|buttontype=3| ClickSound=pop| oversound=tick"
    .dbMenuData = "la=San Bernardino County -, la=Countyline -| u=http://Countyline, la=Starnet| u=http://Starnet"
    Response.Write("<Center>" & .ASPdbMenu() & "</center><BR>")

    .dbMenuParams = "type=2|style=Oceanabove |ve=false| wi=440|he=25| buttontype=3| menudatafile=/tornado/DB/Usit.txt| ClickSound=bonus| oversound=pop"
    Response.Write("<Center>" & .ASPdbMenu() & "</center><BR>")
    Response.write("</tr></table></center><P>")
    End With
    End Sub
    </script>
    Reply With Quote Reply With Quote
  2. 04-17-2003, 10:07 PM #2
    Frank
    Frank is offline Registered User
    Join Date
    Oct 2002
    Posts
    933
    AspdbMenu is a method, Unfortunately ASPdbLogin has no color skin and button code in it and will not work properly. Keep this code and when you get release > 4.17 it'll then work. This is a good example and is inducted into the enmbedded code of TED3. So when you get the updated TED3. Point and click on <Login Menu> will get it going.


    FK

    <script language='vb' runat='server'>
    Sub Page_Load(Source as Object, E as EventArgs)
    Dim Lg As New Tornado.Z()
    With Lg
    .dbQP="s=2| u=99"
    .dbTextHolder = "BD=onLoad='self.focus()'|Title=Tornado - Single Access Super Login"
    .dbLogin = "type=PoorMan|passfile=/bin/pass.txt,application1|titletxt=Tornado Login|ForgotPasswordButton=false"
    .dbMenuParams = "type=2|style=1,2,3,4,5,6| menudatafile=/tornado/DB/usit.txt| ClickSound=click| oversound=beep|width=110|height=22"
    If .ASPdbLogin() Then Response.Write(.ASPdbMenu())
    End With
    End Sub
    </script>
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules