大分類の表示

<%@ LANGUAGE="VBSCRIPT" %> <% 'Option Explicit Response.Buffer = True Dim conn, rec, sql Dim filePath Dim USID Dim PSWD Dim hidUSID Dim hidPSWD Dim USID_SW Dim ERR_MSG ' フォームから送られた要素を変数に代入します。 USID = Request("USID") PSWD = Request("PSWD") hidUSID = Request("USID") hidPSWD = Request("PSWD") S_USID = Session("S_USID") S_PSWD = Session("S_PSWD") 'Session("S_USID") = S_USID 'Session("S_PSWD") = S_PSWD %> <% ' データベースのオープン %> <% SET conn = Session("conn") %> <% ID=Session("ID") Session("ID")=ID CALL USID_kensaku() If USID_SW = 0 Then Else Response.Write "IDは"&ID Response.Write "USIDは"&S_USID Response.Write "パスワードは"&S_PSWD Response.Write "認証は"&USID_SW 'Response.Redirect ("default.asp") End If %> 大分類の表示

<% CALL USID_kensaku() If USID_SW = 0 Then %>

検索で表示される在庫はあくまで参考です
実際の在庫や商品情報は弊社営業へお問い合わせださい

材料検索に一部修正あります
メーカーの生産中止に伴い一部製品の巾寸法が変わります。
当社在庫も無くなり次第切り替えとなりますのでご了承下さい。

※黒天然ゴムに幅広 3mm 5mm 1500幅を新規在庫に追加いたしました

・硬度の公差はゴム、スポンジ共に±５°です。
　但しゴムはJIS硬度、スポンジはアスカーＣ硬度基準によるものです。

・表示されている寸法以外にも加工により製作可能な寸法もありますので各担当の営業所へご相談ください。

・内容は弊社の都合により変更される場合がございますのであらかじめご了承いただけます様お願い致します。
　

＊在庫の内容は都合により記載の在庫が無い場合があります。

詳しくは弊社営業にお問い合わせ下さい。

HP作成日：2007/03

<% Else %> <% IF USID = "" THEN USID = "未入力" END IF IF PSWD = "" THEN PSWD = "未入力" END IF %>

ユーザーＩＤ、パスワードの入力に誤りがあります。

登録ＩＤ：

<% = USID %>

パスワード：

<% = PSWD %>

<% = ERR_MSG %>

<% End If %>

<% Function USID_kensaku() 'USID、PSWD　エラーチェック ' ＜登録ＩＤ、パスワード検索　＞ If ID<>"" Then sql = "SELECT SEQ, 会社名, 担当者名, 仮登録FLG, WebID FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE WebID='" & ID & "' and 仮登録FLG='0'" sql = sql & ";" Else sql = "SELECT SEQ, 会社名, 担当者名, 仮登録FLG, WebID FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE 希望USID='" & S_USID & "' and 希望PSWD='" & S_PSWD & "' and 仮登録FLG='0'" sql = sql & ";" End If Set rec = conn.Execute(sql) If rec.EOF = false AND rec.BOF = false Then company = rec.Fields("会社名") tantousya = rec.Fields("担当者名") tokuiSEQ = rec.Fields("SEQ") ID = rec.Fields("WebID") USID_SW = 0 ERR_MSG = "" Else tantousya = "*****" USID_SW = 1 ERR_MSG = "登録ＩＤが未登録です。" ' ＜仮登録フラグチェック　＞ sql = "SELECT SEQ, 会社名, 担当者名, 仮登録FLG FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE 希望USID='" & S_USID & "' and 仮登録FLG='1'" sql = sql & ";" Set rec = conn.Execute(sql) If rec.EOF = false And rec.BOF = false Then USID_SW = 3 ERR_MSG = "ただ今審査中です。審査が終わり次第お知らせしますので少々お待ちください。" End If ' ＜パスワード登録チェック　＞ sql = "SELECT SEQ, 会社名, 担当者名 FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE 希望USID='" & S_USID & "' and 希望PSWD<>'" & S_PSWD & "'" sql = sql & ";" Set rec = conn.Execute(sql) If rec.EOF = false And rec.BOF = false Then USID_SW = 2 ERR_MSG = "パスワードが間違っています。" End If End If Session("ID")= ID End Function %>