<%
Dim rsIntroText
Dim strIntroText, strFilSort, strFileID, strFileText, lngFileID
Dim intLoop
Set rsIntroText = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Intro_Press From tblConfiguration;"
rsIntroText.Open strSQL, strCon, 2, 3
strIntroText = rsIntroText.Fields("Intro_Press")
%>
 |
| Press Images |
<%
For intLoop = 1 TO 4
Set rsFiler = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblFiler WHERE fltDokID = " & intLoop & " ORDER BY fltFilnamn DESC;"
rsFiler.Open strSQL, strPressCon, 2, 3
Select Case intLoop
Case 1
strFilsort = "Movie Images"
Case 2
strFilsort = "Logotypes"
Case 3
strFilsort = "People"
Case 4
strFilsort = "Movie Posters"
End Select
%>
| <% =strFilsort %> |
<%
If rsFiler.EOF then Response.Write "No files yet
|
"
Do until rsFiler.EOF
%>
<%
strFileID = rsFiler("fltFilnamn")
strFileText = rsFiler("fltFiltext")
lngFileID = rsFiler("ID_Code")
%>
 " target="_blank"
<% If NOT rsFiler("fltFiltext") = "" Then %>
onMouseOver="overlib('<% =rsFiler("fltFiltext") %>')" onMouseOut="nd()"><% =rsFiler("fltFilnamn") %>
<% Else %>
><% =rsFiler("fltFilnamn") %>
<% End If %>
|
<%
rsFiler.MoveNext
Loop
rsFiler.Close
Set rsFiler = Nothing
Next
%>
<% =strIntroText %>
