<%
Dim fsoSystem
'As file system object
Dim fsoFolder
'As folder object
Dim fsoFiles
'As file collection
Dim fsoFl
'As file object
Dim strUtil
'As string
If Request("id") = "" And Request("pid") = "" Then
%>
<%
Set dcnDB = OpenDatabase
Set rsRecords = dcnDB.Execute("Select * FROM promo ORDER BY promo_id ASC")
If rsRecords.EOF Then
'TRUE if there are no news articles
%>
<%
Else
Set dcnDB = OpenDatabase
If IsNumeric(Request("id")) And Request("pid") = "" Then
Set rsRecords = dcnDB.Execute("Select * FROM promo WHERE promo_id = " & Request("id"))
If Not rsRecords.EOF Then
%>
<%
Set fsoSystem = Server.CreateObject("Scripting.FileSystemObject")
Set fsoFolder = fsoSystem.GetFolder("C:\inetpub\vhosts\nitromedia.co.uk\httpdocs\images\upload")
Set fsoFiles = fsoFolder.Files
For Each fsoFl in fsoFiles
If InStr(fsoFl.Name, "n" & rsRecords("news_id") & ".") Then
If InStr(fsoFl.Name, ".jpg") = 0 Then
strUtil = Right(fsoFl.Name, Len(fsoFl.Name) - InStr(fsoFl.Name, ".") +1)
End If
End if
Next
If fsoSystem.FileExists(Server.MapPath("images/upload") & "/n" & rsRecords("promo_id") & ".jpg") Then
%>
.jpg" style="margin-right:8px;margin-bottom:8px;" align="left">
<%
End If
%>
<% = rsRecords("content") %>
<% = rsRecords("details") %>
<%
If strUtil <> "" Then
'TRUE if an info file exists for this news article
%>
Click here to see the list of all news.
<%
End If
%>
British Airways & One Water A short documentary sponsored by British Airways has just been completed for the One Water and Rainbow Child foundations charities. more
Windmill Trust Info Film NITRO MEDIA has recently completed a fifteen minute information film for the Buckingshamire Quainton Windmill Trust. The film will go on sale in March 2010.
Nitro Education productions for OU Educational video specialist Nitro Media has just completed shooting... more