<%
Sub SubMain(ByRef objQuery)
Call SubContent(objQuery)
End Sub
Sub SubContent(ByRef objQuery)
%>
캔쿤스페셜
3박 4일
뉴욕시내관광
당일투어
<%
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
%>
<%
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
%>
