<%@ Language=JScript %> <% // debug debug=false; ConnObj=Server.CreateObject("ADODB.Connection") ConnObj.Open(db) %> > c1berf1ction.ch ::

powered by Google
listen ::
diese datenbank mit dem korpus deutschsprachiger hyperfictions liefert drei kommentierte listen zum thema hyperfiction. grundlage sind die alten hyperfiction-listen bei beluga. diese listen werden aktualisiert. user können über eine eigene seite texte eintragen und im diskurs-tool kommentieren.



   <% // display entries // ohne weiteren angaben 3 anzeigen // action = "" action=""; saction=""+Request.queryString("action"); if (saction!="undefined") action=saction; // get code code="HF-Liste"; scode=""+Request.queryString("code"); if (scode!="undefined") code=scode; // get search search=""; ssearch=""+Request.queryString("search"); if (ssearch!="undefined") search=ssearch; // get range range=""; srange=""+Request.queryString("range"); if (srange!="undefined") range=srange; // get author author=""; sauthor=""+Request.queryString("author"); if (sauthor!="undefined") author=sauthor; if (debug) {%>action:<%=action%>
code:<%=code%>
search:<%=search%>
<%} %>
Listen :: zeige gesamte Hyperfiction-Liste (HF)
:: zeige gesamte Hypertext-E-Liste (E)
:: zeige die Liste aller Listen
Suche:
checked<%}%>>HF-Liste
checked<%}%>>E-Liste
checked<%}%>>Liste aller Listen
Nach Titel :: [ A-E ]    [ F-J ]    [ K-O ]    [ P-T ]    [ U-Z ]
Nach Autor :: [ A-E ]    [ F-J ]    [ K-O ]    [ P-T ]    [ U-Z ]
<% // first in if (action=="") entryRecord=ConnObj.Execute("select * from list WHERE publish='yes' ORDER BY date_create"); searchquery=""; if (search!="") searchquery=" and ( title alike '%"+escapesql(search)+"%' or description alike '%"+escapesql(search)+"%' or autor alike '%"+escapesql(search)+"%' or typology alike '%"+escapesql(search)+"%' or reception alike '%"+escapesql(search)+"%' or format alike '%"+escapesql(search)+"%' ) " // range if (range!="") { searchquery=searchquery+" and ( "; alph="abcdefghijklmnopqrstuvwxyz"; alph=alph.toUpperCase(); rangeArray=range.split("-"); nexflag=false; for (i=0;i<%=rangeArray[1]%>
<%=searchquery%>
<%} } // range if (author!="") { searchquery=searchquery+" and ( "; alph="abcdefghijklmnopqrstuvwxyz"; alph=alph.toUpperCase(); rangeArray=author.split("-"); nexflag=false; for (i=0;i<%=rangeArray[1]%>
<%=searchquery%>
<%} } // geordnet nach titel if ((action!="") && (author=="")) { entryRecord=ConnObj.Execute("select * from list WHERE publish='yes' and code='"+escapesql(code)+"' "+searchquery+" ORDER BY title"); } // geordnet nach autoren if ((action!="") && (author!="")) { entryRecord=ConnObj.Execute("select * from list WHERE publish='yes' and code='"+escapesql(code)+"' "+searchquery+" ORDER BY autor"); %>

autoren

<% } // keine einträge if (entryRecord.EOF) { %> Keine Einträge in der Liste <% } %><% // einträge in der liste if (!entryRecord.EOF) { %> <% count=0; while (!entryRecord.EOF) { count=count+1; if (action=="") if (count>3) break; url=""+unescapesql(""+entryRecord("url")); autor_url=""+unescapesql(""+entryRecord("autor_url")); %> <% s=unescapesql(""+entryRecord("typology")); if (s!="") {%> <% }%> <% s=unescapesql(""+entryRecord("reception")); if (s!="") {%> <% }%> <% entryRecord.moveNext(); } %>
<%=unescapesql(""+entryRecord("title"))%>
<%=url%>
<% if (autor_url!="") {%><%}%> <%=unescapesql(""+entryRecord("autor"))%>
<% s=unescapesql(""+entryRecord("source")); if (s!="") {%><%=s%><% }%>
<% s=unescapesql(""+entryRecord("year_creation")); if (s!="") {%><%=s%><% }%>
<% s=unescapesql(""+entryRecord("date_view")); if (s!="") {%><%=s%><% }%>

<% s=unescapesql(""+entryRecord("description")) se=s; // s=s.substring(0,100); %>

<% // bild s=unescapesql(""+entryRecord("path")); if (s!="") {%> <% }%>[1] <%=se%>

[2] <%=s%>
<% s=unescapesql(""+entryRecord("format")); if (s!="") {%>[3] <%=s%><% }%>
[4] <%=s%>


<% } %>

::hyperfiction.ch
::update-verlag.ch
::beluga

© beat suter, switzerland;
letzte fassung: 16.07.2001

Partner-Websites::
:carpe.com - literatur online
:carpe pagina - die literatur-such-maschine