Results 1 to 2 of 2

Thread: loss of navigation example b2a Grid/Form problem

  1. 04-13-1999, 04:27 PM #1
    Ralph Holliday Guest

    loss of navigation example b2a Grid/Form problem


    I'm trying to use example b2a for my web site.
    Only I want to be able to use dbMode= "both".

    When I'm in Form mode and try to navigate back to
    Grid mode I lose my ability to navigate. If I delete
    the code that selects only certain catagories and run
    the program it works fine. Can anybody help??


    <% response.buffer = true %>
    <HTML
    <HEAD>
    <title>The Sampler Catalog </title>
    </HEAD>
    <BODY BGCOLOR=white TEXT=GREEN LINK=BLUE ALINK=RED VLINK=BLUE>
    <FONT FACE=&#34;Arial,Helvetica&#34; COLOR=Black size=3>

    <CENTER><B><font color=&#34;#008000&#34;>The Sampler Catalog</font></B><p>
    </body>
    <HR WIDTH=66%>
    <%
    bt = Request.QueryString(&#34;ASPdbBut_1050&#34
    if bt <> &#34;aspDBFilter&#34; and left(bt,11) <> &#34;aspDBgoForm&#34; then
    response.write(&#34;<CENTER> Click Item # to See Large Picture!</CENTER>&#34
    end if
    if left(bt,11) = &#34;aspDBgoForm&#34; then
    response.write(&#34;<CENTER>Click the &#39;Grid&#39; button to return to the Grid display</CENTER>&#34
    end if

    Set Mydb=Server.CreateObject(&#34;ASPdb.Pro&#34

    MyDb.dbUnit = 1050
    MyDb.dbmdb=Server.MapPath(&#34;products.mdb&#34
    MyDb.dbColor = &#34;7&#34;
    Mydb.dbMode=&#34;both&#34;
    MyDb.dbImageDir=&#34;images/&#34;
    Mydb.dbGridIndex=false
    Mydb.dbButtonAnchor=false
    Mydb.dbGridInc=5
    MyDb.dbGridTableTag = &#34;border=3 cellspacing=3 cellpadding=3&#34;
    MyDB.dbGridColSort=False
    Mydb.dbSuppressMsg = true
    MyDb.dbNavigation=&#34;bottom&#34;
    MyDb.dbNavigationItem=&#34;top,next,prev&#34;
    MyDb.dbNavigationIcon=&#34;std&#34;
    Mydb.dbMemoTextSize=&#34;15000&#34;
    Mydb.dbGridHideFlds=&#34;uniqueid,bigpic,cat&#34;
    Mydb.dbGridTableTag=&#34;BORDER=1 CELLSPACING=1 CELLPADDING=2&#34;
    Mydb.dbFormHideFlds=&#34;uniqueid,picture,cat&#34;
    Mydb.dbFormTableTag=&#34;BORDER=1 CELLSPACING=2 CELLPADDING=2 WIDTH=100%&#34;
    MyDb.dbSQL = &#34;SELECT * FROM Products&#34;

    If Request(&#34;Catalog&#34 <> &#34; &#34; then
    MyDb.dbSQL=&#34;SELECT * FROM Products WHERE cat = &#39;&#34; & Request(&#34;catalog&#34 & &#34;&#39;&#34;
    End If

    mc = &#34;Item,,,index; Picture,,<IMG WIDTH=75 HEIGHT=46 BORDER=0 &#34;
    mc = mc + &#34;VSPACE=0 HSPACE=0 SRC=&#34;&#34;inventory/#item#.jpg&#34;&#34;></A>;&#34;
    mc = mc + &#34;bigpic,,<IMG WIDTH=200 HEIGHT=175 SRC=&#34;&#34;inventory/#item#.GIF&#34;&#34;></A>;&#34;
    mc = mc + &#34;Price,align=right,format=[currency];&#34;
    MyDb.dbMagicCell = mc
    nmap = &#34;item,Item #; bigpic,Big Picture&#34;
    Mydb.dbNameMap = nmap

    Mydb.ASPdbPro
    RECS = Mydb.dbRecordCount
    %>


    <%
    if RECS = 0 then
    %> <P><B><CENTER>No items in Category<B> <%
    End if%>
    </BODY>
    </HTML>
    Reply With Quote Reply With Quote
  2. 04-14-1999, 12:47 AM #2
    John Guest

    loss of navigation example b2a Grid/Form problem (reply)


    Hi Ralph,

    Any chance we could see this problem &#34;in action&#34; on your web site? That would make it a lot clearer.

    Alternatively, you could modify your example to show the problem with the std. NWind database and we could run it on our own system. That&#39;s the fastest way for us to see and suggest how to solve your problem.

    Thanks,
    John

    ------------
    Ralph Holliday at 4/13/99 5:27:24 PM


    I&#39;m trying to use example b2a for my web site.
    Only I want to be able to use dbMode= &#34;both&#34;.

    When I&#39;m in Form mode and try to navigate back to
    Grid mode I lose my ability to navigate. If I delete
    the code that selects only certain catagories and run
    the program it works fine. Can anybody help??


    <% response.buffer = true %>
    <HTML
    <HEAD>
    <title>The Sampler Catalog </title>
    </HEAD>
    <BODY BGCOLOR=white TEXT=GREEN LINK=BLUE ALINK=RED VLINK=BLUE>
    <FONT FACE=&#34;Arial,Helvetica&#34; COLOR=Black size=3>

    <CENTER><B><font color=&#34;#008000&#34;>The Sampler Catalog</font></B><p>
    </body>
    <HR WIDTH=66%>
    <%
    bt = Request.QueryString(&#34;ASPdbBut_1050&#34
    if bt <> &#34;aspDBFilter&#34; and left(bt,11) <> &#34;aspDBgoForm&#34; then
    response.write(&#34;<CENTER> Click Item # to See Large Picture!</CENTER>&#34
    end if
    if left(bt,11) = &#34;aspDBgoForm&#34; then
    response.write(&#34;<CENTER>Click the &#39;Grid&#39; button to return to the Grid display</CENTER>&#34
    end if

    Set Mydb=Server.CreateObject(&#34;ASPdb.Pro&#34

    MyDb.dbUnit = 1050
    MyDb.dbmdb=Server.MapPath(&#34;products.mdb&#34
    MyDb.dbColor = &#34;7&#34;
    Mydb.dbMode=&#34;both&#34;
    MyDb.dbImageDir=&#34;images/&#34;
    Mydb.dbGridIndex=false
    Mydb.dbButtonAnchor=false
    Mydb.dbGridInc=5
    MyDb.dbGridTableTag = &#34;border=3 cellspacing=3 cellpadding=3&#34;
    MyDB.dbGridColSort=False
    Mydb.dbSuppressMsg = true
    MyDb.dbNavigation=&#34;bottom&#34;
    MyDb.dbNavigationItem=&#34;top,next,prev&#34;
    MyDb.dbNavigationIcon=&#34;std&#34;
    Mydb.dbMemoTextSize=&#34;15000&#34;
    Mydb.dbGridHideFlds=&#34;uniqueid,bigpic,cat&#34;
    Mydb.dbGridTableTag=&#34;BORDER=1 CELLSPACING=1 CELLPADDING=2&#34;
    Mydb.dbFormHideFlds=&#34;uniqueid,picture,cat&#34;
    Mydb.dbFormTableTag=&#34;BORDER=1 CELLSPACING=2 CELLPADDING=2 WIDTH=100%&#34;
    MyDb.dbSQL = &#34;SELECT * FROM Products&#34;

    If Request(&#34;Catalog&#34 <> &#34; &#34; then
    MyDb.dbSQL=&#34;SELECT * FROM Products WHERE cat = &#39;&#34; & Request(&#34;catalog&#34 & &#34;&#39;&#34;
    End If

    mc = &#34;Item,,,index; Picture,,<IMG WIDTH=75 HEIGHT=46 BORDER=0 &#34;
    mc = mc + &#34;VSPACE=0 HSPACE=0 SRC=&#34;&#34;inventory/#item#.jpg&#34;&#34;></A>;&#34;
    mc = mc + &#34;bigpic,,<IMG WIDTH=200 HEIGHT=175 SRC=&#34;&#34;inventory/#item#.GIF&#34;&#34;></A>;&#34;
    mc = mc + &#34;Price,align=right,format=[currency];&#34;
    MyDb.dbMagicCell = mc
    nmap = &#34;item,Item #; bigpic,Big Picture&#34;
    Mydb.dbNameMap = nmap

    Mydb.ASPdbPro
    RECS = Mydb.dbRecordCount
    %>


    <%
    if RECS = 0 then
    %> <P><B><CENTER>No items in Category<B> <%
    End if%>
    </BODY>
    </HTML>
    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