-
<%
dim arrcontent(7), arrcon_id(7)
strSQL = "SELECT * from category order by ctgry_desc asc"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, strCon
i = 1
do while not RS.eof
arrcontent(i)=RS("ctgry_desc")
arrcon_id(i)=RS("ctgry_id")
%>
- <% Response.Write (Replace(RS("ctgry_desc"),"/","'"))%> <% RS.movenext i = i +1 loop %>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Get a file object
%>
CHEMREZ TECHNOLOGIES
<%= RS("a_date") %> - <%= RS("attachment") %>
size: (<%= iFileSize & " bytes"%>)
<% RS.movenext loop %>
CHEMREZ TECHNOLOGIES
<%= arrContent(1) %>
Click to download any of the following.
<% strSQL = "SELECT * from attachment where ctgry_id = '" & arrcon_id(1) & "' and status = 'Active' order by a_date desc" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open strSQL, strCon do while not RS.eof if RS("attachment") <> "" then Set objFile = objFSO.GetFile(server.MapPath("admin/uploadedimages/Buyback_Disclosures/" & RS("attachment") )) on error resume next iFileSize = objFile.Size end if %> "> <%= RS("a_date") %> - <%= RS("attachment") %>
size: (<%= iFileSize & " bytes"%>)<% RS.movenext loop %>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Get a file object
%>
CHEMREZ TECHNOLOGIES
<%
strSQL = "SELECT * from attachment where ctgry_id = '" & arrcon_id(2) & "' and status = 'Active' order by a_date desc"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, strCon
'response.Write strsql
do while not RS.eof
if RS("attachment") <> "" then
Set objFile = objFSO.GetFile(server.MapPath("admin/uploadedimages/Buyback_Disclosures/" & RS("attachment") ))
iFileSize = objFile.Size
end if
%>
"> <%=left( RS("attachment"),40) %>
size: (<%= iFileSize & " bytes"%>)
<% RS.movenext loop %>
CHEMREZ TECHNOLOGIES
<%= arrContent(2) %>
<%
strSQL = "SELECT * from attachment where ctgry_id = '" & arrcon_id(2) & "' and status = 'Active' order by a_date desc"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, strCon
'response.Write strsql
do while not RS.eof
if RS("attachment") <> "" then
Set objFile = objFSO.GetFile(server.MapPath("admin/uploadedimages/Buyback_Disclosures/" & RS("attachment") ))
iFileSize = objFile.Size
end if
%>
"> <%=left( RS("attachment"),40) %>
size: (<%= iFileSize & " bytes"%>)<% RS.movenext loop %>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Get a file object
%>
CHEMREZ TECHNOLOGIES
<%
strSQL = "SELECT * from attachment where ctgry_id = '" & arrcon_id(3) & "' and status = 'Active' order by a_date desc"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, strCon
'response.Write strsql
do while not RS.eof
if RS("attachment") <> "" then
Set objFile = objFSO.GetFile(server.MapPath("admin/uploadedimages/Buyback_Disclosures/" & RS("attachment") ))
iFileSize = objFile.Size
end if
%>
"> <%=left(RS("attachment"),54) %>
size: (<%= iFileSize & " bytes"%>)
<% RS.movenext loop %>
CHEMREZ TECHNOLOGIES
<%= arrContent(3) %>
<%
strSQL = "SELECT * from attachment where ctgry_id = '" & arrcon_id(3) & "' and status = 'Active' order by a_date desc"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, strCon
'response.Write strsql
do while not RS.eof
if RS("attachment") <> "" then
Set objFile = objFSO.GetFile(server.MapPath("admin/uploadedimages/Buyback_Disclosures/" & RS("attachment") ))
iFileSize = objFile.Size
end if
%>
"> <%=left(RS("attachment"),54) %>
size: (<%= iFileSize & " bytes"%>)<% RS.movenext loop %>
