<% If Request.Form("SearchQry") <> "" Then SearchQry = Request.Form("SearchQry") ElseIf Request.QueryString("SearchQry") <> "" Then SearchQry = Request.QueryString("SearchQry") End If If Request.QueryString("Order") = "" Then If Request.QueryString("Language") = "English" Then session("Language") = "English" ElseIf Request.QueryString("Language") = "Dutch" Then session("Language") = "Dutch" ElseIf session("Language") = "" Then session("Language") = "English" End If End If If session("Language") = "English" Then SQL_Order = "english_title" SearchTitle = "english_title" SearchBook = "english_book LIKE '%" & SearchQry & "%' OR dutch_translation LIKE '%" & SearchQry & "%' OR publisher LIKE '%" & SearchQry & "%'" ElseIf session("Language") = "Dutch" Then SQL_Order = "dutch_title" SearchTitle = "dutch_title" SearchBook = "dutch_book1 LIKE '%" & SearchQry & "%' OR dutch_book2 LIKE '%" & SearchQry & "%' OR dutch_book3 LIKE '%" & SearchQry & "%' OR dutch_book4 LIKE '%" & SearchQry & "%' OR dutch_book5 LIKE '%" & SearchQry & "%' OR dutch_book6 LIKE '%" & SearchQry & "%' OR dutch_book7 LIKE '%" & SearchQry & "%' OR dutch_book8 LIKE '%" & SearchQry & "%' OR dutch_book9 LIKE '%" & SearchQry & "%' OR dutch_translation LIKE '%" & SearchQry & "%' OR publisher LIKE '%" & SearchQry & "%'" End If If Request.QueryString("Order") = "AZ" Then session("Order") = "AZ" TitleOrder = "A-Z" NewOrder = "ZA" SQL_Order = SQL_Order & "" ElseIf Request.QueryString("Order") = "ZA" Then session("Order") = "ZA" TitleOrder = "Z-A" NewOrder = "AZ" SQL_Order = SQL_Order & " DESC" Else session("Order") = "AZ" TitleOrder = "A-Z" NewOrder = "ZA" SQL_Order = SQL_Order & "" End If Function CheckTitle(title) If Len(title) > 58 Then CheckTitle = Left(title, 58) & "..." Else CheckTitle = title End If End Function Set Conn = Server.CreateObject("ADODB.Connection") Temp="DRIVER={Microsoft Access Driver (*.mdb)}; " Temp= Temp & "DBQ=" & Server.MapPath("/db/stories.mdb")&";" Conn.open Temp Set DataBase = Server.CreateObject("ADODB.Recordset") %> Creepshows - Story Index
Creepshows - Story Index
<% If session("Language") = "English" Then %> <% Else %> <% End If %> <% If SearchQry <> "" Then SQL = "SELECT * FROM stories WHERE " & SearchTitle & " LIKE '%" & SearchQry & "%' OR " & SearchBook & " ORDER BY " & SQL_Order Else SQL = "SELECT * FROM stories WHERE " & SearchTitle & " ORDER BY " & SQL_Order End If DataBase.Open SQL,Conn If NOT DataBase.EOF Then While not DataBase.EOF new_title = CheckTitle(DataBase(SearchTitle)) niet_vertaald = "*" new_title = Replace(CheckTitle(DataBase(SearchTitle)), " (niet vertaald)", niet_vertaald) %><% DataBase.MoveNext Wend Else %><% End If DataBase.Close SQL = "" %> <% If session("Language") = "Dutch" Then %> <% End If %>
&SearchQry=<%= SearchQry %><% End If %>">English Title [<%= TitleOrder %>]&SearchQry=<%= SearchQry %><% End If %>">Dutch Title [<%= TitleOrder %>]<% If SearchQry = "" Then %>[ English | Dutch ]<% Else %>[ Previous Page ]<% End If %>
"><%= new_title %>
No results found for "<%= SearchQry %>".
 
* = Voor zover mij bekend NIET vertaald in het Nederlands
 
<% If SearchQry <> "" Then %>

[ Back to Story Index ]

<% End If %>

[ Additions? Please e-mail me !! ]