<% ptype = Request("ptype") Session("ptype")=ptype '''ia_area_id = Array(0, 1, 2, 3, 4, 5, 6, 9) ia_area_name = Array("横浜市","西区","神奈川区","港北区","都筑区","青葉区","緑区","鶴見区","中区","南区","港南区","磯子区","金沢区","保土ヶ谷区","旭区","戸塚区","栄区","泉区","瀬谷区","その他") sSearchkey = Trim(Request("searchkey")) Function GETCR(surl,lunit) '''surl = "http://yoyotaiwan777777777777777777777777.boo.jp" '''lunit = 20 If Len(surl) > lunit then cnt = Int((Len(surl)-1) / lunit) surl2 = "" For i = 1 to cnt surl2 = surl2 & Mid(surl,(i-1)*lunit+1,lunit) & "
" Next GETCR = surl2 & Mid(surl,cnt*lunit+1) Else GETCR = surl End If End Function Function GetTownNum(iNum) If Not IsNull(iNum) then If IsNumeric(iNum) then GetTownNum = CInt(iNum) - 825 Else GetTownNum = 0 End If Else GetTownNum = 0 End If End Function Function GetNum(iNum) If Not IsNull(iNum) then If IsNumeric(iNum) then GetNum = CInt(iNum) Else GetNum = 0 End If Else GetNum = 0 End If End Function Function AddSpace(sData) 'テーブル枠表示のため空白データにスペースを追加する if (Trim(sData) = "") or IsNull(sData) then AddSpace = " " else AddSpace = Trim(sData) end if End Function Set C = Server.CreateObject("ADODB.Connection") Set R = Server.CreateObject("ADODB.Recordset") Set R2 = Server.CreateObject("ADODB.Recordset") path = "Provider=SQLOLEDB;Server=MSSQL2000A;Database=customer;uid=counter;pwd=c7Va1qEn" C.Open path sql = "SELECT * FROM npsニュース等の分類 Where 種別ID=2 AND 表示識別=1 ORDER BY 表示強度 DESC" R.Open sql, C, 1, 1, 1 Dim sCategIDtoName(200), iCategR2ID(30), sCategR2Name(30) sCategIDtoName(0) = "その他" sCategTitle = "全分類" iR2count = 0 Do Until R.EOF iR2count = iR2count + 1 iCategR2ID(iR2count) = R("ID") sCategR2Name(iR2count) = R("名称") sCategIDtoName(iCategR2ID(iR2count)) = sCategR2Name(iR2count) If iCategR2ID(iR2count) = iCategId then sCategTitle = sCategR2Name(iR2count) End If R.MoveNext Loop R.Close %>
<% if ptype <> "asn" then %> <% end if %> <% if ptype <> "asn" then %> <% end if %>
Yoppiファンとあなたをつなぐコミュニケーションサイト・・・Yoppi club・・・
トップページに戻る
<% if ptype <> "asn" then %> <% else %> <% end if %>
イベント情報イベント情報
皆さんからの情報 市民イベント情報 地区センター情報 福祉保健センターのイベント情報
市民イベント情報
下記のイベントのタイトルをクリックすると、詳細情報が表示されます。
掲載されているイベントは、直前に日時などが変更になることがあります。
必ず連絡先にお問い合わせの上、ご参加ください。
申し込み方法の記載のないものは、事前申し込みはいりません。
主催・お問合せ先の記載のないものは、開催する各施設の連絡先にお問合せください。
<% if sSearchkey>"" then %> <% end if %>
   / 
<% sSqlCond = "" If sSearchkey > "" Then sSearchkey = Replace(sSearchkey, " ",",") sSearchkey = Replace(sSearchkey, " ",",") hsearchkey = Split(sSearchkey, ",") For i = LBound(hsearchkey) To UBound(hsearchkey) if hsearchkey(i)>"" then sSqlCond = sSqlCond & " AND (題名 LIKE '%" & hsearchkey(i) & "%' OR 会場名称 LIKE '%" & hsearchkey(i) & "%' OR ジャンル LIKE '%" & hsearchkey(i) & "%' OR 区町名 LIKE '%" & hsearchkey(i) & "%' OR 市区名 LIKE '%" & hsearchkey(i) & "%' OR 問合せ先 LIKE '%" & hsearchkey(i) & "%' OR コメント LIKE '%" & hsearchkey(i) & "%')"'" end if Next End If sql = "SELECT * FROM VIEW_npsイベントその他_地域ジャンル WHERE ID>0" & sSqlCond & " AND 会場市区ID=461 AND 表示識別=1 ORDER BY 会場市区ID DESC, 会場区町ID, 会場ID ASC, 開催開始日 ASC" '''sql = "SELECT * FROM VIEW_npsイベントその他_地域ジャンル WHERE ID>0" & sSqlCond & " AND 会場市区ID=461 AND 表示識別=1 AND 掲載開始日<='" & Date & "' AND 掲載終了日>='" & Date & "' ORDER BY 会場市区ID DESC, 会場区町ID, 会場ID ASC, 開催開始日 ASC" '''Response.Write "sql=" & sql & "
" R.Open sql, C, 1, 1, 1 iPreTown = -1 bTopBack = False if Not R.EOF then Do Until R.EOF If R("開催開始日")=R("開催終了日") then sOpenDate = Mid(R("開催開始日"),6,5) Else sOpenDate = "" & Mid(R("開催開始日"),6,5) & "〜" & Mid(R("開催終了日"),6,5) & "" End If sComment = Trim(R("コメント")) sCommBefore = "" sCommAfter = sComment For i = 1 to 20 iposLink = InStr(sCommAfter," 0 then iposEnd = InStr(sCommAfter,">") sUrlAddress = Mid(sCommAfter,iposLink+1,iposEnd-iposLink-1) sCommBefore = sCommBefore & Mid(sCommAfter,1,iposLink-1) &_ "" &_ sUrlAddress & "" sCommAfter = Mid(sCommAfter,iposEnd+1) else Exit For end if Next sComment = sCommBefore & sCommAfter sComment = Replace(sComment,vbCrLf,"
") iHallId = GetNum(R("会場ID")) sHallName = Trim(R("会場名称")) sHallURL = Trim(R("会場URL")) iCurTown = GetTownNum(R("会場区町ID")) if iPreTown <> iCurTown then if bTopBack then %>
<% else bTopBack = True end if %> <% iPreTown = iCurTown end if if sPreHallName <> sHallName then %> <% sPreHallName = sHallName end if %> <% R.MoveNext Loop else %> <% end if R.Close C.Close Set R = Nothing Set R2 = Nothing Set C = Nothing %>
▲市民イベント情報 TOPに戻る
●<%=ia_area_name(iCurTown)%>
<% If sHallURL > "" then %> <%=AddSpace(sHallName)%> <% Else %> <%=AddSpace(sHallName)%> <% End If %>
<% if IsNumeric(R("分類ID")) then icategnullid = R("分類ID") else icategnullid = 0 end if %> ')" onMouseout="this.style.color='#660066';conversion('tdir<%=R("ID")%>')" style="color:#660066;cursor:hand;" class="size2"><%=R("題名")%> ( <%=sOpenDate%> <%=sCategIDtoName(icategnullid)%>
" class="offbox"> <%=sComment%>
<% If Trim(R("料金"))>"" then %> 料金:<%=R("料金")%>   <% End If %> <% If Trim(R("問合せ先"))>"" then %> 問合せ先:<%=R("問合せ先")%> <% End If %>


該当データがありません。条件等をご確認ください



トップページに戻る