<% Option Explicit %> <% Response.Buffer = True %> <% Dim rsIntroText Set rsPerson = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tblPerson WHERE ID = " & Request.Querystring("ID") & ";" rsPerson.Open strSQL, strKatalogcon, 3, 3 Dim intLoop Dim strText, strPrefix %> Lund International Fantastic Film Festival presents: <% =rsPerson("Förnamn") & " " & rsPerson("Efternamn") %>
History at FFF
<% Set rsRelationer = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tblRelationer WHERE Person_ID = " & Request.Querystring("ID") & " AND Roll_ID = 2;" rsRelationer.Open strSQL, strKatalogcon, 3, 3 If NOT rsRelationer.EOF then %> Directed:
<% Do Until rsRelationer.EOF Set rsFilm = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT Titel_sv, ID FROM tblFilm WHERE ID = " & rsRelationer("Film_ID") & ";" rsFilm.Open strSQL, strKatalogcon, 3, 3 strPrefix = "" If Right(rsFilm("Titel_sv"), 5) = ", The" then strPrefix = "The " If Right(rsFilm("Titel_sv"), 3) = ", A" then strPrefix = "A " If Right(rsFilm("Titel_sv"), 5) = ", Ein" then strPrefix = "Ein " %> "> <% =strPrefix & Replace(rsFilm("Titel_sv"), ", " + Replace(strPrefix, " ", ""), "") %>
<% rsRelationer.MoveNext Loop End If %> <% Set rsRelationer = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tblRelationer WHERE Person_ID = " & Request.Querystring("ID") & " AND Roll_ID = 3;" rsRelationer.Open strSQL, strKatalogcon, 3, 3 If NOT rsRelationer.EOF then %>
Written:
<% Do Until rsRelationer.EOF Set rsFilm = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT Titel_sv, ID FROM tblFilm WHERE ID = " & rsRelationer("Film_ID") & ";" rsFilm.Open strSQL, strKatalogcon, 3, 3 strPrefix = "" If Right(rsFilm("Titel_sv"), 5) = ", The" then strPrefix = "The " If Right(rsFilm("Titel_sv"), 3) = ", A" then strPrefix = "A " If Right(rsFilm("Titel_sv"), 5) = ", Ein" then strPrefix = "Ein " %> "> <% =strPrefix & Replace(rsFilm("Titel_sv"), ", " + Replace(strPrefix, " ", ""), "") %>
<% rsRelationer.MoveNext Loop End If %> <% Set rsRelationer = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tblRelationer WHERE Person_ID = " & Request.Querystring("ID") & " AND Roll_ID = 1;" rsRelationer.Open strSQL, strKatalogcon, 3, 3 If NOT rsRelationer.EOF then %>
Produced:
<% Do Until rsRelationer.EOF Set rsFilm = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT Titel_sv, ID FROM tblFilm WHERE ID = " & rsRelationer("Film_ID") & ";" rsFilm.Open strSQL, strKatalogcon, 3, 3 strPrefix = "" If Right(rsFilm("Titel_sv"), 5) = ", The" then strPrefix = "The " If Right(rsFilm("Titel_sv"), 3) = ", A" then strPrefix = "A " If Right(rsFilm("Titel_sv"), 5) = ", Ein" then strPrefix = "Ein " %> "> <% =strPrefix & Replace(rsFilm("Titel_sv"), ", " + Replace(strPrefix, " ", ""), "") %>
<% rsRelationer.MoveNext Loop End If %> <% Set rsRelationer = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tblRelationer WHERE Person_ID = " & Request.Querystring("ID") & " AND Roll_ID = 4;" rsRelationer.Open strSQL, strKatalogcon, 3, 3 If NOT rsRelationer.EOF then %>
Acted in:
<% Do Until rsRelationer.EOF Set rsFilm = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT Titel_sv, ID FROM tblFilm WHERE ID = " & rsRelationer("Film_ID") & ";" rsFilm.Open strSQL, strKatalogcon, 3, 3 strPrefix = "" If Right(rsFilm("Titel_sv"), 5) = ", The" then strPrefix = "The " If Right(rsFilm("Titel_sv"), 3) = ", A" then strPrefix = "A " If Right(rsFilm("Titel_sv"), 5) = ", Ein" then strPrefix = "Ein " %> "> <% =strPrefix & Replace(rsFilm("Titel_sv"), ", " + Replace(strPrefix, " ", ""), "") %>
<% rsRelationer.MoveNext Loop End If %>

<% Response.Write rsPerson("Förnamn") & " " & rsPerson("Efternamn") %>

<% If NOT rsPerson("Bild") = 0 then Response.Write "" %> <% =rsPerson("fritext") %>


Back