<%'このファイルはＵＴＦ－８です。 option explicit: %> <% dim nPrefecture: dim sDateFrom: dim sKeyword: function input() nPrefecture = CInt( request.querystring("pre") ): sDateFrom = CStr( request.querystring("from") ): sKeyword = CStr( request.querystring("key") ): end function 'function check() ' ' dim ret: ' ret = true: ' ' check = ret: ' 'end function input(): dim rst: set rst = getEventSearch(nPrefecture, sDateFrom, sKeyword): %> イベントカレンダー | PCN プログラミング クラブ ネットワーク

EVENT CALENDAR

前のページにもどる

イベントカレンダー

イベント検索

開催地域
<% = getPrefectureSelect(nPrefecture) %>
期間
から
キーワード

検索結果一覧

<%=rst.RecordCount%>件

<% if rst.RecordCount = 0 then %>

イベントが見つかりませんでした

<% else %> <% do until rst.eof %>

"><%=E( rst("sPrefectureName") )%>

<%=E( rst("sEvent") )%>

    <% if IsNull(rst("sDateTo")) then %>
  • <%=formatDate(E( rst("sDateFrom") ))%>
    • <% else %>
  • <%=formatDate(E( rst("sDateFrom") ))%>　〜　<%=formatDate(E( rst("sDateTo") ))%>
    • <% end if %>
  • <%=E( rst("sPlace") )%>
<% = getUrlTag(rst("sUrl"), rst("sEvent")) %> <% if rst("sContent") <> "" then %>
more
<%=Replace(E( rst("sContent" ) ), vbCrLf, "
")%>
<% end if %>
<% rst.moveNext loop %> <% end if %>

イベント検索

開催地域
<% = getPrefectureSelect(nPrefecture) %>
期間
から
キーワード