<% Option Explicit %> <% Response.Buffer = True %> <% Dim rsIntroText Dim strIntroText, Intro_Soktext Dim intLoop Set rsIntroText = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Intro_Soktext From tblConfiguration;" rsIntroText.Open strSQL, strKatalogCon, 2, 3 Intro_Soktext = rsIntroText("Intro_Soktext") Set rsSerie = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Serie, ID FROM tblSerie WHERE ID = " & Request.Querystring("Serie") & ";" rsSerie.Open strSQL, strKatalogCon, 2, 3 %> <% =rsSerie("Serie") %> - <% =Request.Querystring("ar") %>
<% If Request.Form = "" Then %> <% Set rsFilm = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Serie, Titel_sv, ID FROM tblFilm WHERE Serie = " & Request.Querystring("Serie") & " AND FFF = " & Request.Querystring("Ar") & ";" rsFilm.Open strSQL, strKatalogCon, 2, 3 Do Until rsFilm.EOF %> <% rsFilm.MoveNext Loop %>

<% =Ucase(rsSerie("Serie")) %> <% =Request.Querystring("ar") %>

"><% =rsFilm("Titel_sv") %>

Tillbaka

<% Else %> <% End If %>