<% dim MasterCode dim yyyy1,mm1,dd1 dim newentry yyyy1 = Cstr(Year(now())) mm1 = Cstr(Month(now())) dd1 = Cstr(day(now())) if len(mm1)=1 then mm1="0" & mm1 end if if len(mm1)=1 then mm1="0" & mm1 end if dd1 = Cstr(day(now())) MasterCode = DateSerial(yyyy1, mm1, dd1) set newentry = new LectureList newentry.FRectMasterCode=MasterCode newentry.GetRSSLecList dim ix, cnm %> <![CDATA[더핑거스 신규 강좌 채널]]> http://test.thefingers.co.kr/lecture/lecturelist.asp ko Copyright(c) (주)텐바이텐. All Rights Reserved. <%=RFC1123Date(now())%> customer@10x10.co.kr <% If newentry.FResultCount > 0 then for ix = 0 to newentry.FResultCount-1 '강좌 구분 지정 Select Case cStr(newentry.FItemList(ix).FcateCD1) Case "10" cnm = "원데이 클래스" Case "20" cnm = "위클리 클래스" Case Else cnm = "" End Select %> ]]> <![CDATA[<%=newentry.FItemList(ix).FLecTitle%>]]> <%="http://test.thefingers.co.kr/lecture/lecturedetail.asp?lec_idx=" & newentry.FItemList(ix).FLecIdx %> 강좌일 : <%= FormatDateTime(newentry.FItemList(ix).FLecDate,1) %>
강좌횟수 : <%= newentry.FItemList(ix).FLectCount %>회
기간 : <%= newentry.FItemList(ix).FLecperiod %>
인원 : <%= newentry.FItemList(ix).FLecLimitCount %>명
수강료 : <%= FormatNumber(newentry.FItemList(ix).FLecCost,0) %>원
<% if newentry.FItemList(ix).FMatcost>0 then %> 재료비 : <%= FormatNumber(newentry.FItemList(ix).FMatcost,0) %>원 <% end if %> ]]> <%=RFC1123Date(newentry.FItemList(ix).Fregdate)%> <% Next end if %> <% set newentry = Nothing '// GMT 표준시 표기법으로 변환 Function RFC1123Date(dateSpec) Dim astrDay Dim astrNum Dim astrMonth astrDay = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") astrNum = Array( "00", _ "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", _ "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", _ "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", _ "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", _ "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", _ "51", "52", "53", "54", "55", "56", "57", "58", "59", "60") astrMonth = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", _ "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") RFC1123Date = astrDay(WeekDay(dateSpec) - 1) & ", " & astrNum(Day(dateSpec)) _ & " " & astrMonth(Month(dateSpec) - 1) & " " & Year(dateSpec) _ & " " & astrNum(Hour(dateSpec)) & ":" & astrNum(Minute(dateSpec)) _ & ":" & astrNum(Second(dateSpec)) & " +0900" End Function %>