<% Response.CacheControl ="no-cache" %>
<% Response.AddHeader "Pragma","no-cache" %>
<% Response.Expires = -1 %>
㈱ 住宅地盤技術研究所 検査Web申込み
<%
dim lngRCount
dim eDay1,eDay2,txtOrdr
eDay1= request("se1")
eDay2= request("se2")
txtOrdr=request("Ordr")
txtTyosa=request("chTyosa")
if len(txtTyosa)=0 then
txtTyosa=0
end if
if len(eDay1)=0 then
'入力がない場合には、当月分のデータのみ表示
if month(date) <> 12 then
eDay1 = year(date()) & "/" & month(date()) & "/1"
eDay2 = year(date()) & "/" & month(date())+1 & "/1"
eDay2 = cdate(eDay2) -1
else
eDay1 = year(date()) & "/12/1"
eDay2 = year(date()) & "/12/31"
end if
end if
if len(eDay2)=0 then
eDay2=eDay1
end if
eDay1=""
%>
