|
|
 |
<%
Dim strTitle
Dim strNewsSql
strNewsSql = "SELECT TOP 4 News_ID, Title, Content, Write_Date FROM E3_News_Announcement WHERE B_Category = 'news' Order by News_ID desc "
Dim objArr, ixn
objArr = arrGetDBResult(objQuery, strNewsSql)
IF isArray(objArr) Then
For ixn=0 To UBound(objArr, 2)
If Len(objArr(1, ixn)) > 23 Then
strTitle = Left(objArr(1, ixn),23) & "..."
Else
strTitle = objArr(1, ixn)
End If
%>
 |
<%=strTitle%> |
<% Next
End IF%>
|
|
<%
Dim strTitle2
Dim strNewsSql2
strNewsSql2 = "SELECT TOP 4 BBS_NO, BBS_Subject, BBS_Text, BBS_Date, BBS_LinkID FROM E_bbs WHERE BBS_Category = 'ticket' and BBS_TreeID = 0 Order by BBS_NO DESC "
Dim objArr2, ixn2
objArr2 = arrGetDBResult(objQuery, strNewsSql2)
IF isArray(objArr2) Then
For ixn2=0 To UBound(objArr2, 2)
If Len(objArr2(1, ixn2)) > 23 Then
strTitle2 = Left(objArr2(1, ixn2),23)
Else
strTitle2 = objArr2(1, ixn2)
End If
%>
|
<%=strTitle2%> |
<% Next
End IF%>
|
|
|
<%
Dim arrP1, pN, tempW
arrP1 = funcGetMainImg(objQuery, "P1")
If IsArray(arrP1) Then
For pN=0 To UBound(arrP1, 2)
If pN=0 Then
tempW = "37"
ElseIf pN=1 Then
tempW = "18"
ElseIf pN=2 Then
tempW = "45"
End IF
%>
) & Trim(arrP1(2, pN))%>) |
<%Next
End If
%>
<%
Dim arrP2
arrP2 = funcGetMainImg(objQuery, "P2")
If IsArray(arrP2) Then
For pN=0 To UBound(arrP2, 2)
%>
) & Trim(arrP2(2, pN))%>) |
<%Next
End If
%>
|
|
<%
Dim arrP3
arrP3 = funcGetMainImg(objQuery, "L2")
If IsArray(arrP3) Then
For pN=0 To UBound(arrP3, 2)
%>
) & Trim(arrP3(2, pN))%>) |
<%Next
End If
%>
|
" width="0" height="0">
<%
End Sub
%>
