<%@ language=vbscript %> <% option explicit %> 中央会会員の組合情報/検索結果

中央会会員の組合情報

HOME > 中央会会員の組合情報目次 > 検索結果




中央会会員の組合情報


検索結果


<% dim cnn,rs,fld dim strSQL dim strConnection dim strtiku 'strConnection = _ ' "Provider=Microsoft.Jet.OLEDB.4.0;" _ '& "Data Source=" _ '& server.MapPath("mdb/組合一覧.mdb") strtiku = Request.QueryString("tiku") strSQL = "select 組合名,活動概要,URL from 組合一覧 " strSQL = strSQL & "where 地区 = " strSQL = strSQL & "'" & strtiku & "' and " strSQL = strSQL & "表示=1" set cnn = server.CreateObject("adodb.connection") cnn.open "search" set rs = cnn.execute(strSQL) do until rs.eof response.write "" response.write "" if trim(rs.fields("URL")) <> "" then response.write "" else response.write "" end if response.write "" response.write "" response.write "" response.write "" if rs.fields("URL") <> "" then response.write "" end if response.write "" response.write "
" & rs.fields("組合名") & "" & rs.fields("組合名") & "
" & rs.fields("活動概要") & "
" response.write "
" & rs.fields("URL") & "
" response.write "
" rs.MoveNext loop rs.close cnn.close set rs = nothing set cnn = nothing %>

中央会会員の組合情報トップへ



ホームへ戻る