<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 'French/ Czech/ German/ Dutch/ English/ Italian Dim rsGlossary__MMColParam rsGlossary__MMColParam = session("toolslang") If (Request.QueryString("lang") <> "") Then rsGlossary__MMColParam = Request.QueryString("lang") End If %> <% Dim rsGlossary Dim rsGlossary_cmd Dim rsGlossary_numRows Set rsGlossary_cmd = Server.CreateObject ("ADODB.Command") rsGlossary_cmd.ActiveConnection = MM_hellopaper_STRING rsGlossary_cmd.CommandText = "SELECT * FROM tblGlossary WHERE [language] = ? ORDER BY term ASC" rsGlossary_cmd.Prepared = true rsGlossary_cmd.Parameters.Append rsGlossary_cmd.CreateParameter("param1", 200, 1, 50, rsGlossary__MMColParam) ' adVarChar Set rsGlossary = rsGlossary_cmd.Execute rsGlossary_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsGlossary_numRows = rsGlossary_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsGlossary_numRows = rsGlossary_numRows + Repeat2__numRows %> Hello Interactive Handbook
Hello homepage <%=home%>

<%=slogan%>

<%=aniglossary%>

<%=glossarytxt%>

<%=glossary%>

    <% While ((Repeat1__numRows <> 0) AND (NOT rsGlossary.EOF)) %> "") then response.Write(" class='tMovie'") end if %>>"><%=(rsGlossary.Fields.Item("term").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsGlossary.MoveNext() Wend rsGlossary.MoveFirst() %>
<% While ((Repeat2__numRows <> 0) AND (NOT rsGlossary.EOF)) %>

" id="a<%=(rsGlossary.Fields.Item("id").Value)%>"><%=(rsGlossary.Fields.Item("term").Value)%>

<%=(rsGlossary.Fields.Item("value").Value)%><% if (rsGlossary.Fields.Item("foto").Value <> "") then response.Write("
") end if %> <% movietoload = rsGlossary.Fields.Item("filmpje").Value if (movietoload <> "") then %> ', 'gVidPopup.asp?movietoload=<%= movietoload %>', { click_outside: true, width: 310, height: 280 }); return false;"> <% end if %>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsGlossary.MoveNext() Wend %>
<% rsGlossary.Close() Set rsGlossary = Nothing %>