<%@ Language=VBScript %> <% 'שליפת נתוני הערך מכל הטבלות הרלוונטיות כדי להציג את נתוניו. הטבלאות הן 'value, value_user, site_search, more '(אולי גם קטגוריה) set rs=Server.CreateObject("adodb.recordset") 'sqlstr="select count(*) from ency_category where category_id="&Request("id1") 'rs.Open sqlstr,con,3,3 'cc=rs.Fields(0) 'Response.Write("cc="&cc) 'rs.Close set rsSub=Server.CreateObject("adodb.recordset") sqlstr="select * from ency_categories order by name" rsSub.Open sqlstr ,con,3,3 rsSub.MoveFirst %> אנציקלופדיה יהודית - דעת
לדף ראשי

הערכים האחרונים שהוכנסו לאנציקלופדיה
<% rs.Open "select name,value_id from ency_exchange where is_name=1 order by id desc", con,3,3 'Response.Write(cc) num1=0 Response.Write("") Response.Write("
    ") end if next Response.Write("
") rs.Close set rs=Nothing con.Close set con=nothing %>