株式会社ダイフレックス RESITECT　お問い合せ

<% Dim aSQL Dim aRS Dim wSQL Dim wRS Dim ID Dim person Dim telno Dim faxno Dim mailaddr Dim company Dim post Dim zip Dim prefectures Dim municipality Dim building 'データベースオープン If gfDB_Open(0) = False Then Response.Write("データベースがオープンできませんでした。(" & wFileName & ")") Response.End End If '会員種別プルダウン展開情報を求める wSQL = "" wSQL = wSQL & "SELECT * " wSQL = wSQL & "FROM dr05_appellation " wSQL = wSQL & "WHERE dr05_kind LIKE 'B%' " wSQL = wSQL & "order by dr05_kind ASC" 'Response.Write(wSQL) 'Response.End If gfDB_Dynaset(wRS,wSQL) = False Then Response.Write(wSQL & "
") Response.Write("予期せぬエラーが発生しました。(" & wFileName & ")") Response.End End If ID = Session("Login") If Session("Login") <> "" Then ''会員情報の取得 bSQL = "" bSQL = bSQL & "SELECT " bSQL = bSQL & "dr01_member.dr01_person," bSQL = bSQL & "dr01_member.dr01_tel_no," bSQL = bSQL & "dr01_member.dr01_fax_no," bSQL = bSQL & "dr01_member.dr01_mail_addr," bSQL = bSQL & "dr01_member.dr01_company_k," bSQL = bSQL & "dr01_member.dr01_post," bSQL = bSQL & "dr01_member.dr01_zip_code," bSQL = bSQL & "dr01_member.dr01_prefectures," bSQL = bSQL & "dr01_member.dr01_municipality," bSQL = bSQL & "dr01_member.dr01_building," bSQL = bSQL & "dr01_member.dr01_member," bSQL = bSQL & "dr01_member.dr01_password," bSQL = bSQL & "dr01_member.dr01_id," bSQL = bSQL & "dr01_member.dr01_mail_flag " bSQL = bSQL & "FROM " bSQL = bSQL & "dr01_member " bSQL = bSQL & "Where " bSQL = bSQL & "RTrim(Upper(dr01_member.user_id)) ='" & Trim(UCase(ID)) & "'" 'Response.Write(bSQL) 'Response.End If gfDB_Dynaset(bRS,bSQL) = False Then Response.Write(bSQL & "
") Response.Write("予期せぬエラーが発生しました。(" & wFileName & ")") Response.End End If If Not (bRS.EOF) Then person = bRS.Fields("dr01_person") telno = bRS.Fields("dr01_tel_no") faxno = bRS.Fields("dr01_fax_no") mailaddr = bRS.Fields("dr01_mail_addr") company = bRS.Fields("dr01_company_k") post = bRS.Fields("dr01_post") zip = bRS.Fields("dr01_zip_code") prefectures = bRS.Fields("dr01_prefectures") municipality = bRS.Fields("dr01_municipality") building = bRS.Fields("dr01_building") End If End If '都道府県プルダウン展開情報を求める aSQL = "" aSQL = aSQL & "SELECT * " aSQL = aSQL & "FROM dr05_appellation " aSQL = aSQL & "WHERE dr05_kind LIKE 'A%' " aSQL = aSQL & "order by dr05_kind ASC" 'Response.Write(wSQL) 'Response.End If gfDB_Dynaset(aRS,aSQL) = False Then Response.Write(aSQL & "
") Response.Write("予期せぬエラーが発生しました。(" & wFileName & ")") Response.End End If %> 株式会社ダイフレックス RESITECT　お問い合せ

　レジテクトはコンクリート・鉄・鋼板等の保護・防水材料の開発により、構造物の長寿命化と高機能化に貢献します。