% Option Explicit %> <% Response.Buffer = True %> <% Dim rsIntroText Dim strIntroText, Intro_Soktext Dim intLoop Set rsIntroText = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Intro_Soktext_eng From tblConfiguration;" rsIntroText.Open strSQL, strKatalogCon, 2, 3 Intro_Soktext = rsIntroText("Intro_Soktext_eng") Set rsSerie = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Serie, ID FROM tblSerie WHERE ID = " & Request.Querystring("Serie") & ";" rsSerie.Open strSQL, strKatalogCon, 2, 3 %>
|
<% =Ucase(rsSerie("Serie")) %> <% =Request.Querystring("ar") %> |
|
"><% =rsFilm("Titel_sv") %> |