www.webdeveloper.com
Results 1 to 3 of 3

Thread: Help with some VBcoding..

  1. #1
    Join Date
    Aug 2005
    Location
    USA
    Posts
    116

    Help with some VBcoding..

    Hey everyone,

    I was wondering if a experienced VBScripter might be able to help me with something I'm trying to figure out.

    What I'm trying to do is call product categories from a access DB, which I can do fine in a loop. And then have them display in a hyperlink and then click the hyperlinks call the page and then output the sub catagories to hyperlinks, etc, etc. till where at each indivdual product.

    Here is what I have so far.

    Code:
    <table cellspacing=0 cellpadding width=292 height=238 border=0>
    <tr><td align=center valign=middle>
    			
    	<%this_fullcat = replace(request("cat"),"%20%"," ")
    		this_id = request("id")
    		set rs = db.execute("SELECT * FROM catalog_categories WHERE parent='-' ORDER BY category")
    		while not rs.eof
    		category = rs("category")%>
    								
    <div  style="text-align: center; padding-top: 50pt;">
    	<a href="catalog-working.html?cat=<%=category%>\<%=subcategory%>" class="catnav"><%=category%></a>
    			</div>
    								
    	</div>
    								
    <% rs.movenext
       wend %>
    </td></tr>
    </table>
    I also have this code that calls the sub-catagory that I need to nest some how with that href tag I'm guessing?

    Code:
    <%
    set rs2 = db.execute("SELECT * FROM catalog_categories WHERE parent='" & replace(category,"'","''") & "' ORDER BY category")
    while not rs2.eof
    subcategory = rs2("category")
    id = rs2("id")	%>
    	<a href="catalog-new.html?cat=<%=category%>\<%=subcategory%>&id=<%=id%>" class="catnav"><%=subcategory%></a><br>
    <%
    	rs2.movenext
    	wend
    	%>
    Any assistance would be greatly appreicated.

  2. #2
    Join Date
    Dec 2003
    Location
    England, UK
    Posts
    432
    here's a bit of an example.

    Code:
    <%
    option explicit
    %>
    <html>
    <body>
    
    <%
    dim catalog_categoriesid
    catalog_categoriesid = cnum(request("id"))
    %>
    
    <table border=1>
    	<%
    	dim sql,rs,category
    	sql = "select id,category from catalog_categories where parent_catalog_categoriesid = " & catalog_categoriesid & " order by category"
    	
    	if runsql(sql,rs) then
    				
    		do while not rs.eof
    			%>
    			<tr><td><a href="cats.asp?id=<%=rs("id")%>"><%=rs("category")%></a></td></tr>
    			<% 
    			rs.movenext
       		loop
       		
       	end if
    	%>
    </table>
    
    </body>
    </html>
    
    <%
    
    'general routines below
    function runSQL(SQL,rs)
    
    	on error resume next
    	
    	dim myRs
    
    	set myRs = createobject("ADODB.recordset")
    	myRs.Open SQL,"Driver={SQL Native Client};Server=.\sqlexpress;Database=testdb;UID=sa;PWD=qwertyuiop;"
    	set rs = myRs
    	if err then
    		runSQL = false
    		response.write err.description
    	else
    		runSQL = true
    	end if
    
    end function
    
    
    
    
    function cnum(x)
    
    	on error resume next
    
    	cnum = clng(x)
    	if err then	
    		cnum = clng(0)		
    	end if
    
    end function
    
    %>

  3. #3
    Join Date
    Jan 2003
    Location
    USA
    Posts
    688
    And perhaps this may hopefully give you some ideas:

    Classic ASP Design Tips - QueryString
    http://www.bullschmidt.com/devtip-querystring.asp
    J. Paul Schmidt
    www.Bullschmidt.com - Freelance Web and Database Developer
    www.Bullschmidt.com/DevTip.asp - Classic ASP Design Tips

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

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

"

"

X vBulletin 4.2.2 Debug Information

  • Page Generation 0.13179 seconds
  • Memory Usage 2,852KB
  • Queries Executed 13 (?)
More Information
Template Usage (33):
  • (1)SHOWTHREAD
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_global_above_footer
  • (1)ad_global_below_navbar
  • (1)ad_global_header1
  • (1)ad_global_header2
  • (1)ad_navbar_below
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (1)ad_thread_first_post_content
  • (1)ad_thread_last_post_content
  • (3)bbcode_code
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (1)headinclude_bottom
  • (3)memberaction_dropdown
  • (1)navbar
  • (4)navbar_link
  • (1)navbar_moderation
  • (1)navbar_noticebit
  • (1)navbar_tabs
  • (2)option
  • (3)postbit
  • (3)postbit_onlinestatus
  • (3)postbit_wrapper
  • (1)spacer_close
  • (1)spacer_open
  • (1)tagbit_wrapper 

Phrase Groups Available (6):
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files (26):
  • ./showthread.php
  • ./global.php
  • ./includes/class_bootstrap.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/functions_navigation.php
  • ./includes/class_friendly_url.php
  • ./includes/class_hook.php
  • ./includes/class_bootstrap_framework.php
  • ./vb/vb.php
  • ./vb/phrase.php
  • ./includes/functions_facebook.php
  • ./includes/functions_calendar.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/functions_reputation.php
  • ./includes/functions_notice.php
  • ./packages/vbattach/attach.php
  • ./vb/types.php
  • ./vb/cache.php
  • ./vb/cache/db.php
  • ./vb/cache/observer/db.php
  • ./vb/cache/observer.php 

Hooks Called (70):
  • init_startup
  • friendlyurl_resolve_class
  • init_startup_session_setup_start
  • database_pre_fetch_array
  • database_post_fetch_array
  • init_startup_session_setup_complete
  • global_bootstrap_init_start
  • global_bootstrap_init_complete
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • load_show_variables
  • load_forum_show_variables
  • global_state_check
  • global_bootstrap_complete
  • global_start
  • style_fetch
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • strip_bbcode
  • friendlyurl_clean_fragment
  • friendlyurl_geturl
  • forumjump
  • cache_templates
  • cache_templates_process
  • template_register_var
  • template_render_output
  • fetch_template_start
  • fetch_template_complete
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_noticebit
  • process_templates_complete
  • friendlyurl_redirect_canonical
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • memberaction_dropdown
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • build_navigation_data
  • build_navigation_array
  • check_navigation_permission
  • process_navigation_links_start
  • process_navigation_links_complete
  • set_navigation_menu_element
  • build_navigation_menudata
  • build_navigation_listdata
  • build_navigation_list
  • set_navigation_tab_main
  • set_navigation_tab_fallback
  • navigation_tab_complete
  • fb_like_button
  • showthread_complete
  • page_templates