<%
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")
%>
 |
| Miscellaneous Material |
<%
For intLoop = 17 TO 19
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 17
strFilsort = "Movie Clips"
Case 18
strFilsort = "Accreditation Information"
Case 19
strFilsort = "Miscellaneous files"
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 %>
