Search the White Dwarf

<% Results = 15 Divider = "search_divider" Bgc1 = "search" Bgc2 = "search_odd" rActin = Request.QueryString("Actin") rQuestion = Request.QueryString("Question") rCat = Request.QueryString("Cat") rGameId = Request.QueryString("GameId") rArmy = Request.QueryString("Army") rSubArmy = Request.QueryString("SubArmy") rJump = Request.QueryString("Jump") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Wd" %>

White Dwarf Search Page

Here I offer an exclusive search engine to search the pages of the White Dwarf Magazine
The articles are categorized but not scanned.
The only thing left for you to do is search your own stack of White Dwarfs, open the copy on the right page and read on!
Perhaps in the future, when time is unlimited, I will scan some of the articles.
But for now, have fun!

<% If lcase(rActin) = "search" then Sql = "Select * From Artikelen Where Trefwoorden Like '%" & rQuestion & "%'" CntRes = "Select count(*) from Artikelen Where Trefwoorden Like '%" & rQuestion & "%'" If rCat <> "" Then Sql = Sql + "and Cat Like '%" & rCat & "%'" CntRes = CntRes +"and Cat Like '%" & rCat & "%'" End if If rArmy <> "" Then Sql = Sql + "and Leger Like '%" & rArmy & "%'" CntRes = CntRes +"and Leger Like '%" & rArmy & "%'" End if If rSubArmy <> "" Then Sql = Sql + "and Spec_leger Like '%" & rSubArmy & "%'" CntRes = CntRes +"and Spec_leger Like '%" & rSubArmy & "%'" End if Sql = Sql + " Order By Game_id, Leger, Spec_leger, Cat, Titel" Set Rs = Conn.Execute(Sql) Set Rt = Conn.Execute(CntRes) End if If rActin = "" then Sql = "Select * From Artikelen Where Leger='" & rac & "' Order By Game_id, Leger, Spec_leger, Titel" Set Rs = Conn.Execute(Sql) End if %>
<% If lcase(rActin) = "search" then Count = rJump If rJump > 1 Then Rs.Move(rJump) end if If Rt(0) = 0 Then %> <%Else %> <% If Rt(0) > Results then If rJump = "" Or rJump =0 Then %> <% Else If (rJump + Results) => Rt(0) Then %> <% Else %> <% End if %> <% End if %> <% End if %> <% For I = (rJump + 1) to (rJump + Results) If not Rs.eof then Count = Count + 1 If count/2 = int(count/2) Then Bgc = Bgc1 Else Bgc = Bgc2 End if %> <% If Rs("Pub_nr") <> "" Then %> <% Else %> <% End if %> <% If Rs("Game_id") <> "" Then %> <% End if Else %> <% End if %> <% If Rs("Leger") <> "" Then %> <% Else %> <% End if %> <% If Rs("Titel") <> "" Then %> <% Else %> <% End if %> <% If Rs("Pagina") <> "" Then %> <% Else %> <% End if %> <% If Rs("Cat") <> "" Then %> <% Else %> <% End if %> <% If Rs("Spec_leger") <> "" Then %> <% Else %> <% End if %> <% If Rs("Sub_titel") <> "" Then %> <% Else %> <% End if %> <% Rs.MoveNext End if Next %> <% End if End if conn.Close %>



	Question:
	Category:
	Army:			Sub Army:


We found no results for your entry '<% = rQuestion %>' <% if rCat <> "" Then %> and Category = '<% = rCat %>' <% End if %> <% if rArmy <> "" Then %> and Army = '<% = rArmy %>' <% End if %> <% if rSubArmy <> "" Then %> and SubArmy '<% = rSubArmy %>' <% End if %>
We found <% = Rt(0) %> entries containing your input '<% = rQuestion %>' <% if rCat <> "" Then %> and Category = '<% = rCat %>' <% End if %> <% if rArmy <> "" Then %> and Army = '<% = rArmy %>' <% End if %> <% if rSubArmy <> "" Then %> and SubArmy '<% = rSubArmy %>' <% End if %>


	We display the result from 1 to <% = Results %>
		<% For j = 1 to ((Rt(0)+Results)/Results) If (J*Results) = (Count+Results) Then %> [<% = j %>] <% Else %> <% = j %> <% End if %> <% Next %>				Next
	We display the result from <% = rJump + 1 %> to <% = Rt(0) %>'
		<% For j = 1 to ((Rt(0)+Results)/Results) If (J*Results) = (Count+Results) Then %> [<% = j %>] <% Else %> <% = j %> <% End if %> <% Next %>				Prev
	We display the result from <% = rJump + 1 %> to <% = rJump + Results %>
Prev		<% For j = 1 to ((Rt(0)+Results)/Results) If (J*Results) = (Count+Results) Then %> [<% = j %>] <% Else %> <% = j %> <% End if %> <% Next %>				Next

No	Publication	Game	Army	Title	Keywords
	Page	Category	Sub Army	Sub Title


<% = Count%>	<% = Rs("Pub_nr")%>		<% Gid = Rs("Game_id") Sql = "Select * From Gamesystem Where Game_id = " & Gid Set Rt = Conn.Execute(Sql) If rt.eof = false then %> <% = Rt("Game_naam") %>		<% = Rs("Leger")%>		<% = Rs("Titel")%>	<% = Rs("Trefwoorden")%>
	<% = Rs("Pagina")%>		<% = Rs("Cat")%>		<% = Rs("Spec_leger")%>		<% = Rs("Sub_titel")%>


No	Publication	Game	Army	Title	Keywords
	Page	Category	Sub Army	Sub Title