<%@ LANGUAGE="VBScript" EnableSessionState=False%> <% Dim ia(16), cflev1(10), cflev2(10), cflev3(10), cflev4(10),cffield(10) ' ftcong1 Full text content generator 1 function afmt(a) b=a if len(b) > 3 then b= left(b,len(b)-3)&","&right(b,3) if len(b) > 7 then b= left(b,len(b)-7)&","&right(b,7) afmt=b end function sub mkhead() ' The Page Expires in 15 Minutes Response.Expires = 60*24 a="SCRIPT" %> ERIC/AE Full Text Internet Library - (<%=wh1%>) <<%=a%> LANGUAGE="JavaScript" RunAt="Client"> browserName = navigator.appName; browserVer = parseInt(navigator.appVersion); if (browserName == "Netscape" && browserVer >= 3) version = "n3"; else version = "n2"; if (browserName =="Microsoft Internet Explorer" && browserVer >= 4) version="n3"; if (version == "n3") { a0on = new Image(); a0on.src = "a0on.gif"; a0off = new Image(); a0off.src = "/a5off.gif"; a1on = new Image(); a1on.src = "eqon.gif"; a2on = new Image(); a2on.src = "lton.gif"; a3on = new Image(); a3on.src = "evalon.gif"; a4on = new Image(); a4on.src = "tton.gif"; a6on = new Image(); a6on.src = "pson.gif"; a5on = new Image(); a5on.src = "studon.gif"; a7on = new Image(); a7on.src = "reson.gif"; a8on = new Image(); a8on.src = "staton.gif"; a9on = new Image(); a9on.src = "oldon.gif"; a10on = new Image(); a10on.src = "homeon.gif"; a1off = new Image(); a1off.src = "eq.gif"; a2off = new Image(); a2off.src = "lt.gif"; a3off = new Image(); a3off.src = "eval.gif"; a4off = new Image(); a4off.src = "tt.gif"; a6off = new Image(); a6off.src = "ps.gif"; a5off = new Image(); a5off.src = "stud.gif"; a7off = new Image(); a7off.src = "res.gif"; a8off = new Image(); a8off.src = "stat.gif"; a9off = new Image(); a9off.src = "old.gif"; a10off = new Image(); a10off.src = "home.gif"; } function img_act(imgName) { if (version == "n3") { imgOn = eval(imgName + "on.src"); document [imgName].src = imgOn; } } function img_inact(imgName) { if (version == "n3") { imgOff = eval(imgName + "off.src"); document [imgName].src = imgOff; } } function rollon( ){ if (window.event.srcElement.tagName == 'A'){ window.event.srcElement.style.color = 'red';} } function rolloff( ){ if (window.event.srcElement.tagName == 'A'){ window.event.srcElement.style.color = '';} } document.onmouseover = rollon; document.onmouseout = rolloff; >

Library home page and index
Index

 Test Locator, FAQs, Internet Resources, Search ERIC and more
Search for    
<% end sub wh2=Request("wh2") wh1=Request("wh1") arg=Request("arg") argw="" if len(arg)>0 then argw=arg lmt=Request("lmt") lmtw="%%" if len(lmt)>3 then lmtw=trim(lmt) ' Response.write wh1 &"
" & arg & "
" ia(1)="" ia(2)="Journal article" ia(3)="Briefing paper" ia(4)="Newsletter article" ia(5)="Book" ia(6)="Booklet" ia(7)="Research or technical report" ia(8)="Descriptive report" ia(9)="Feasibility report" ia(10)="Opinion paper" ia(11)="Testimony" ia(12)="Public statute" ia(13)="Statistical compendium" ia(14)= "Collection" ia(15)= "Survey" ia(16)= "Other" hereb4=0 If wh2= "Top 10" or wh2="Recent" then Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT Distinct count(title) as [ntitle], sum(hits) as [sum] " SQLStmt= SQLStmt & " FROM FT3 WHERE URLok=1 AND iuse=0 AND Lev1 <> 'TEMP'" Set RS1 = Connection.Execute(SQLStmt) if wh2="Top 10" then SQLStmt= "SELECT TOP 20 * " SQLStmt= SQLStmt & " FROM FT3 WHERE Hits > 5 AND URLok=1 AND iuse=0 AND Lev1 <> 'TEMP'" SQLStmt =SQLStmt & " ORDER BY hits DESC, yr DESC, title;" else SQLStmt= "SELECT TOP 20 * " SQLStmt= SQLStmt & " FROM FT3 WHERE URLok=1 AND iuse=0 AND Lev1 <> 'TEMP'" SQLStmt =SQLStmt & " ORDER BY CDATE(ad) DESC, yr DESC, title;" end if Set RS = Connection.Execute(SQLStmt) call mkhead() if wh2="Top 10" then response.write "" response.write "" else response.write "
MOST POPULAR TITLES
 
Rank Title                                                 
 
" response.write "" end if ic=0 do while not RS.EOF and ic<10 lev1=RS("lev1") lev2=RS("lev2") lev3=RS("lev3") lev4=RS("lev4") url =trim(RS("URL") & " ") ti= RS("title") au= RS("author") yr= RS("yr") so= RS("source") hits=RS("hits") typ=RS("type") ad=RS("ad") cat=RS("cat") oth=RS("oth") k=instr(url,"//") if k then Url2=mid(url,k+2) else Url2=Url ' Url2=replace(Url2,"&","%26") URL2=Server.URLEncode(Url2) if ti<>tiold then ic=ic+1 %> <% end if RS.Movenext loop %>
RECENT ADDITIONS
 
 # Title                                                 
 
<%=ic%>  <%=ti%> <% tiold=ti if len(au)>0 then response.write " " & au if len(yr)>0 then response.write " | " & yr if len(so)>0 then response.write " | " & so if len(cat)>0 then response.write " | " & cat if len(oth)>0 then response.write " | " & oth if len(typ)>0 and typ<>"Other" then response.write " | " & typ if hits>0 then response.write " | Viewed " & afmt(hits) & " times since "&ad & "." response.write "
" & lev1 & " | " & lev2 & " | " & lev3 & " | " & lev4 if instr(lcase(Url2),"pdf")=0 then %>  >[find similiar]<% end if %>
 
The <%=RS1("ntitle")%> titles in this library have been examined <%=afmt(RS1("sum"))%> times since the library opened on July 10, 1999.

<%=Date%>
ERIC/AE Library | ERIC/AE Home

Sitemap 1 - Sitemap 2 - Sitemap 3 - Sitemap 4 - Sitemape 5 - Sitemap 6

<% RS.close set RS=nothing RS1.close set RS1=nothing connection.close set connection=nothing response.end end if select case wh1 '--------------------------------------------------------------------- ' ERIC Digests case "skey" ss="/scripts/texis.exe/scripts/searchft?db=ftlib&arg="+ replace(arg," ","+") + "&proximity=rank&lmt=nul&suffixproc=max" response.redirect ss case "sdigs" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " WHERE " SQLStmt = SQLStmt & "type like 'Briefing paper'" SQLStmt = SQLStmt & " AND (source='Educational Resources Information Center' or source='ERIC')" SQLStmt = SQLStmt & " ORDER BY ord.levord, ft3.yr DESC, title;" ' Response.write SQLStmt &"

" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) ' INTrernal use docs case "sint" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " WHERE " SQLStmt = SQLStmt & " iuse=1 ORDER BY ord.levord, ft3.yr DESC, title;" ' Response.write SQLStmt &"

" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) case "stitle" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " WHERE " SQLStmt = SQLStmt & "(FT3.title LIKE '%" & arg & "%') AND type like '"& lmtw & "'" ' SQLStmt = SQLStmt & " AND URLok=1 ORDER BY FT3.LEV1, ord.levord, tiord, title;" ' SQLStmt = SQLStmt & " AND URLok=1 ORDER BY ord.levord, tiord, title;" SQLStmt = SQLStmt & " AND URLok=1 AND iuse=0 ORDER BY ord.levord, ft3.yr DESC, title;" ' Response.write SQLStmt &"

" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) case "sauthor" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " WHERE " SQLStmt = SQLStmt & "(FT3.author LIKE '%" & arg & "%') AND type like '"& lmtw & "'" ' SQLStmt = SQLStmt & " AND URLok=1 ORDER BY FT3.LEV1, ord.levord, tiord, title;" ' SQLStmt = SQLStmt & " AND URLok=1 ORDER BY ord.levord, tiord, title;" SQLStmt = SQLStmt & " AND URLok=1 AND iuse=0 ORDER BY ord.levord, ft3.yr DESC, title;" ' Response.write SQLStmt &"

" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) case "sURL","sURLa" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " WHERE " SQLStmt = SQLStmt & "(FT3.URL LIKE '%" & arg & "%') AND type like '"& lmtw & "'" SQLStmt = SQLStmt & " AND URLok=1" if wh2="sURL" then SQLStmt=SQLStmt & " AND iuse=0" SQLStmt = SQLStmt & " ORDER BY ord.levord, ft3.yr DESC, title;" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) case "ssource" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " WHERE " SQLStmt = SQLStmt & "(FT3.source LIKE '%" & arg & "%') AND type like '"& lmtw & "'" SQLStmt = SQLStmt & " AND URLok=1 AND iuse=0 ORDER BY ord.levord, ft3.yr DESC, title;" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) case "sserial" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " WHERE " SQLStmt = SQLStmt & "(FT3.cat LIKE '%" & arg & "%') AND type like '"& lmtw & "'" SQLStmt = SQLStmt & " AND URLok=1 AND iuse=0 ORDER BY ord.levord, ft3.yr DESC, title;" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) case "sall" %> ERIC/AE Full Text Internet Library - (<%=wh1%>) > Not yet implemented. This will be a call to a webinator database <% Response.end case "" Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & " ORDER BY ord.levord, ft3.yr DESC, title;" Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) ' Missing arguement ' Response.end case else ' response.write wh1 & "

" '====================================================== Set Connection = Server.CreateObject("ADODB.Connection") ' Connection.Open "DSN=FT" Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\vhosts\ericae.net\httpdocs\db0\ft\ft1c.mdb;" ' SQLStmt = "SELECT * " ' SQLStmt = SQLStmt & "FROM ft3 " ' SQLStmt = SQLStmt & "WHERE lev1 = '" & wh1 & "' AND URLok=1 " ' SQLStmt = SQLStmt & " ORDER by lev1,levord,tiord, title" ' SQLStmt= "SELECT FT3.*, ord.cf FROM ord " SQLStmt= "SELECT FT3.*, ord.id as wh FROM ord " SQLStmt = SQLStmt & "INNER JOIN FT3 ON (([ord].[lev1] =[FT3].[lev1]) " SQLStmt = SQLStmt & "AND ([ord].[LEV2] =[FT3].[lev2]) " SQLStmt = SQLStmt & "AND ([ord].[LEV3] =[FT3].[lev3]) " SQLStmt = SQLStmt & "AND ([ord].[LEV4] =[FT3].[lev4])) " SQLStmt = SQLStmt & "WHERE FT3.lev1 = '" & wh1 & "' AND URLok=1 AND iuse=0 and type like '"& lmtw & "'" ' SQLStmt = SQLStmt & " ORDER BY FT3.LEV1, ord.levord, tiord, title;" ' SQLStmt = SQLStmt & " ORDER BY ord.levord, tiord, title;" SQLStmt = SQLStmt & " ORDER BY ord.levord, ft3.yr DESC, title;" 'SELECT FT3.* 'FROM ord INNER JOIN ft3 ON ([ord].[lev4] =[FT3].[lev4]) AND ([ord].[lev1] =[FT3].[lev1]) AND ([ord].[lev2] =[FT3].[lev2]) AND ([ord].[lev3] =[FT3].[lev3]) 'WHERE FT3.lev1 = 'RESEARCH' AND URLok=1 'ORDER BY FT3.LEV1, ord.levord, tiord, title; Set RS = Connection.Execute(SQLStmt) sql2="select * from ord WHERE len(cf)>5;" set rs2=Connection.Execute (sql2) end select '================================================================================= call mkhead() ncf=0 Do while not RS2.eof ncf=ncf+1 cflev1(ncf)=RS2("lev1") cflev2(ncf)=RS2("lev2") cflev3(ncf)=RS2("lev3") cflev4(ncf)=RS2("lev4") cffield(ncf)=RS2("cf") RS2.Movenext loop ' Response.Expires=1 lev1o="xyz" lev2o="xyz" lev3o="xtz" lev4o="zta" %><% if wh1<>"stitle" and wh1<>"sauthor" and wh1<>"sdigs" and wh1 <>"sint" and wh1 <>"sURL" and wh1<>"sserial" and wh1<>"ssource" then %> <% end if %> <% if wh1 <> "sserial" then %> <% end if if RS.eof then %>
<%=UCASE(wh1)%> <% cf="" icf=0 do icf=icf+1 if ucase(cflev1(icf))=UCASE(wh1) and cflev2(icf)="-" then cf=cffield(icf) loop until icf=> ncf if len(cf)>5 then %>
[See also: <%=cf%>]<%end if%> 		Suggest a new title
Limit to: <% if lmt="" then a1=" SELECTED" %>
   

Sorry, nothing matches your criteria. Please try again.

<% rs.close set rs=nothing rs2.close set RS2=nothing connection.close set connection=nothing response.end end if b42=0 per="%" sp="  " do While NOT RS.eof cr=cr+1 ' response.write cr&"
" lev1=RS("lev1") lev2=RS("lev2") lev3=RS("lev3") lev4=RS("lev4") url =trim(RS("URL") & " ") ti= RS("title") au= RS("author") yr= RS("yr") so= RS("source") hits=RS("hits") typ=RS("type") ad=RS("ad") cat=RS("cat") oth=RS("oth") ' cf=RS("cf") k=instr(url,"//") if k then Url2=mid(url,k+2) else Url2=Url URL2=Server.URLEncode(Url2) ' response.write "cf= " & cf & " ** " & lev1 & " || " & lev2 &" || " & lev3 &"

" if lev1o <> lev1 then b42=0 lev1o=lev1 lev2o="lr" lev3o="" lev4o="" nsp=0 if wh1="stitle" or wh1="sauthor" or wh1="sdigs" or wh1="sint" then %> <% if hereb4 =1 then %> 

<% end if hereb4=1 %> <%=UCASE(lev1o)%><% cf="" icf=0 do icf=icf+1 if ucase(cflev1(icf))=UCASE(lev1o) and cflev2(icf)="-" then cf=cffield(icf) loop until icf=> ncf if len(cf)>5 then %>
[See also: <%=cf%>]<%end if%> <% end if end if if lev2o <> lev2 then lev2o=lev2 if len(lev2o)>1 then nsp=1 lev3o="" lev4o="" if len(lev2o)>1 then if b42=1 then %>                 <% end if %><% end if end if if lev3o <>lev3 then lev3o=lev3 if len(lev3o)>3 then nsp=2 lev4o="" if len(lev3o)>3 then %> <%=sp%><% end if end if if lev4o <>lev4 then lev4o=lev4 if len(lev4)>3 then nsp=3 if len(lev4o)>3 then %> <%=sp%><%=sp%><% end if end if %><% for i=1 to nsp response.write sp next %> <% RS.Movenext loop RS.close set RS=nothing RS2.close set RS2=nothing connection.close set connection=nothing %>
> 
<%=lev2o%><% cf="" icf=0 b42=1 do icf=icf+1 if ucase(cflev1(icf))=UCASE(lev1) and cflev2(icf)=lev2o and cflev3(icf)="-" then cf=cffield(icf) loop until icf=> ncf if len(cf)>5 then %>
[See also: <%=cf%>]<%end if%>
> 
<%=lev3o%><% cf="" icf=0 do icf=icf+1 if ucase(cflev1(icf))=UCASE(lev1) and cflev2(icf)=lev2 and cflev3(icf)=lev3o and cflev4(icf)="-" then cf=cffield(icf) loop until icf=> ncf if len(cf)>5 then %>
[See also: <%=cf%>]<% end if %>
> 
<%=lev4o%>
><%=ti%> <% if len(au)>0 then response.write " " & au if len(yr)>0 then response.write " | " & yr if len(so)>0 then response.write " | " & so if len(cat)>0 then response.write " | " & cat if len(oth)>0 then response.write " | " & oth if len(typ)>0 and typ<>"Other" then response.write " | " & typ if hits>0 then response.write " | Viewed " & afmt(hits) & " times since "&ad & "." ' response.write lev1 & " | " & lev2 & " | " & lev3 & " | " & lev4 if instr(lcase(Url2),"pdf")=0 then %>  >[find similiar] <% end if %>
    

<%=Date%>
ERIC/AE Library | ERIC/AE Home

Sitemap 1 - Sitemap 2 - Sitemap 3 - Sitemap 4 - Sitemape 5 - Sitemap 6

<% response.end %>