HOUSE-ST1

<% @ Language=VBScript %> <% Option Explicit %> <% Response.Buffer=True %> <% Dim conn,cmd,rec,cFileName,cCategoly,cTitle,rec2,cRootURL,i,cDlsID,j,flag cCategoly = "HOUSE-ST1" cDlsID = 50 '//Set up Database Connectivity Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionTimeout = Application("ks_ConnectionTimeout") conn.CommandTimeout = Application("ks_CommandTimeout") '//conn.CursorLocation = adUseClient conn.Open (Application("ks_kozo_ConnectionString")) '//Set up Database Command Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn '//Set RecordSet Set rec = Server.CreateObject("ADODB.RecordSet") Set rec2 = Server.CreateObject("ADODB.RecordSet") %> <% rec.Open "SELECT * FROM DOWNLOAD WHERE Categoly = '" & cCategoly & "'",conn,3,2 'ASC cRootURL = rec.Fields("RootURL") rec.Close '社内テストモードの場合 if (Request("PSW") = "h34^l046pu04@j") then rec.Open "SELECT * FROM DOWNLOAD_List WHERE Categoly = '" & cCategoly & "' ORDER BY SubOrderNumber ASC",conn,3,2 'DESC else rec.Open "SELECT * FROM DOWNLOAD_List WHERE Categoly = '" & cCategoly & "' ORDER BY SubOrderNumber ASC",conn,3,2 'ASC end if %> HOUSE-ST1

住宅シリーズ／木造計算プログラム

ダウンロード

★ 日本語版 Microsoft Windows ( 98 / Me / NT4.0 / 2000 / XP )
▲ 修正履歴 Ver.2.0
▲ 変更点、追加説明などについて（PDF形式ファイル）
　・HOUSE-ST1マニュアル正誤表

<% Do While Not rec.eof %> <% if ((rec.Fields("ViewFlag") = 1) or (Request("PSW") = "h34^l046pu04@j")) then %> <% end if if (rec.Fields("ViewFlag") = 0) then '公開停止中の場合 %> <% end if rec.MoveNext Loop rec.Close set rec = Nothing set rec2 = Nothing conn.Close() Set cmd = Nothing Set conn = Nothing %>

　　(( <%=rec.Fields("ClassA")%> ))
● <% rec2.Open "SELECT * FROM DOWNLOAD_Files WHERE Category_ID = '" & cDlsID & "' AND List_ID = '" & rec.Fields("ID") & "' AND Type = '0' ",conn,3,2 'ASC if (rec2.RecordCount = 1) then cFileName = rec2.Fields("FileName") i = InstrRev(cFileName,"/") if (i > 0) then cFileName = mid(cFileName,i + 1) end if if (Request("PSW") = "h34^l046pu04@j") then '社内テスト用 %> &cListID=p3blqw<%=rec.Fields("ID")%>" TARGET=_top ><%=rec.Fields("Name")%> のダウンロード
"><%=cRootURL%><%=rec2.Fields("FileName")%>
　　Ver <%=rec.Fields("Version")%>( <%=rec.Fields("Lastupdate")%> ) :: <%=cFileName%>( <%=rec2.Fields("FileSize")%> MB )
<% else %> &cListID=p3blqw<%=rec.Fields("ID")%>" TARGET=_top ><%=rec.Fields("Name")%> のダウンロード
　　Ver <%=rec.Fields("Version")%>( <%=rec.Fields("Lastupdate")%> ) :: <%=cFileName%>( <%=rec2.Fields("FileSize")%> MB )
<% end if %>

<%=rec.Fields("Information")%> <% rec2.Close end if %>

　　(( <%=rec.Fields("ClassA")%> ))
● <% %> <%=rec.Fields("Name")%> のダウンロード

[ 注意事項 ]

只今メンテナンス中です。 <%=rec.Fields("Information2")%>

□ トラブルシューティング
　1. [　システムに装着されたデバイスは動作していません。と表示されて起動出来ない場合の対処法　]
　2. [　ダウンロードに失敗してしまう場合の対処法　]

<% end if 'メンテチェックのif文終了位置 %>