Comptons
2000 Ltd.
85 MOSELEY STREET
BIRMINGHAM
B12 0RT
Telephone
0121 622 5562
0121 622 5585
Fax
0121
622 6322
Email
enquiries@comptons2000.co.uk
|
|
 |
 |
| ©
2006 Comptons 2000 |
|
|
NEWS
where quality always comes first
<% do while rsContent.eof = false %>
<%
if rsContent("fFileID") <> "" AND rsContent("fFileID") <> 0 then
Dim rsFile
Dim rsFile_numRows
Set rsFile = Server.CreateObject("ADODB.Recordset")
rsFile.ActiveConnection = MM_Connector_STRING
rsFile.Source = "SELECT fExtension,fName,fHeight,fWidth FROM tFiles WHERE fFileID = " & rsContent("fFileID")
rsFile.CursorType = 0
rsFile.CursorLocation = 2
rsFile.LockType = 1
rsFile.Open()
rsFile_numRows = 0
end if
%>
<%
if rsContent("fFileID") <> "" AND rsContent("fFileID") <> 0 then
%>
"> .<%=(rsFile("fExtension"))%>" alt="<%=UCase(rsContent.Fields.Item("fTitle").Value)%>" width="60" height="60" border="0">
<%
end if
%> |
<%=UCase(rsContent.Fields.Item("fTitle").Value)%>
<%=(rsContent.Fields.Item("fSummary").Value)%>
<%= DoDateTime((rsContent.Fields.Item("fDateAdded").Value), 1, 2057) %>
[">more]
|
| |
|
<%
if rsContent("fFileID") <> "" AND rsContent("fFileID") <> 0 then
rsFile.Close()
Set rsFile = Nothing
end if
rsContent.MoveNext()
Loop
%>
|
|
|
|
