ハスカップ、じゃがいもなど北海道から産地直送　-　あい然

<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> ハスカップ、じゃがいもなど北海道から産地直送　-　あい然

" & vbcrlf else Response.Write("") End If Response.write ("

<% Set objFSO = CreateObject("Scripting.FileSystemObject") strSql="SELECT top 10 * FROM KIJI WHERE GENRE=2 ORDER BY E_DATE DESC" rs.Open strSql,conn,3,3 if rs.recordcount>0 then If objFSO.FileExists(Server.MapPath("./upimg/" & rs("KID") & "_1.jpg")) = True Then strImg= "

" & vbcrlf ) DO WHILE NOT rs.EOF Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write (strImg ) rs.movenext LOOP Response.write ("

" & rs("E_DATE") & "

" & rs("COMM") & "

" & vbcrlf ) end if rs.close %>

<% on error resume next strSql="SELECT top 10 * FROM KIJI WHERE GENRE=1 ORDER BY E_DATE DESC" rs.Open strSql,conn,3,3 Response.write ("" & vbcrlf ) DO WHILE NOT rs.EOF Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) rs.movenext LOOP Response.write ("

" & rs("E_DATE") & "	" & rs("TITLE") & "
" & left(rs("COMM"),40) & " ...

" & vbcrlf ) rs.close %>

<% strSql="SELECT top 10 * FROM KIJI WHERE GENRE=3 ORDER BY E_DATE DESC" rs.Open strSql,conn,3,3 if rs.recordcount>0 then Response.write ("" & vbcrlf ) DO WHILE NOT rs.EOF Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) Response.write ("" & vbcrlf ) rs.movenext LOOP Response.write ("

" & rs("TITLE") & "
" & rs("ADDR") & "	" & rs("KIKAN") & "
" & rs("COMM") & "
担当　：　" & rs("TANTO") & "

" & vbcrlf ) end if rs.close %>