% 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 %>
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 %> |
<% If NOT rsPerson("Bild") = 0 then Response.Write "" %> | <% =rsPerson("fritext") %> |