<%
height = "655"
hl = height -260 ' for left
hr = height ' for right
'b1 = 165 'landscape
'b2 = 196 'vertical
'b3 = 160 'text
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' In Selection : if there is Error Resume Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
selectSQL = "SELECT * FROM announcements WHERE show=Yes"
set rs = ADO.execute(selectSQL)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' If NO Error:
'''''' increment the height of the table that cntains iframe to prevent showing the scroll bar
'''''' If Error:
'''''' Do nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if err.number = 0 then
do while NOT rs.eof
filename = rs("filename")
landscape = rs("landscape")
location = rs("location")
if location = "left" then
if filename <> "None" then
if landscape <> "False" then
hl = hl + 165
else
hl = hl + 196
end if
else
hl = hl + 160
end if
else
if filename <> "None" then
if landscape <> "False" then
hr = hr + 165
else
hr = hr + 196
end if
else
hr = hr + 160
end if
end if
rs.movenext
loop
else
// response.write "
"
end if
''''''''''''''''''''''''''''''''''
'''' check for vote to set the height
''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' In Selection : if there is Error Resume Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
selectSQL = "SELECT * FROM vote_questions WHERE show=Yes"
set rs = ADO.execute(selectSQL)
do while Not rs.eof
location = rs("location")
if location = "left" then
hl = hl + 420
else
hr = hr + 420
end if
rs.movenext
loop
if cint(hl) >= cint(hr) then
height = hl
else
height = hr
end if
'<%=height =
%>
<%
' if no records for the caacemployees, hide the pic.
selectSQL = "SELECT * FROM caacemployees"
set rs = ADO.execute(selectSQL)
if Not rs.eof then
%>
<%
end if
%>
<%
' if no records for the cooperatores, hide the pic.
selectSQL = "SELECT * FROM caacemployees"
set rs = ADO.execute(selectSQL)
if Not rs.eof then
%>
<%
end if
%>
860-1414
860-1413
<%
''''''''''''''''''''''''''''''''''
'''' check for vote
''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' In Selection : if there is Error Resume Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
selectSQL = "SELECT * FROM vote_questions WHERE show=Yes AND location='right'"
set rs_outer = ADO.execute(selectSQL)
location= "right"
do while Not rs_outer.eof
questionid = rs_outer("questionid")
%>
<%
rs_outer.movenext
loop
'--------------------------------
'--- End check for vote ---
'--------------------------------
%>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' In Selection : if there is Error Resume Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
selectSQL = "SELECT * FROM announcements WHERE show=Yes AND location='right' ORDER BY id DESC"
set rs = ADO.execute(selectSQL)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''' If NO Error:
'''''' print the box
'''''' If Error:
'''''' Do nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if err.number = 0 then
do while NOT rs.eof
%>
<%
ID = rs("id")
filename = rs("filename")
landscape = rs("landscape")
text = rs("thetext")
if filename = "None" then
%><%
else
%><%
end if
%>
