<%@ 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 %>



最新・最高の環境でゴム加工品を製造

　

　

　

　

　

お客さまの営業スタッフが商談をスムーズに進められる
さまざまなツールをご提供します。

　

「テクニカルレポート」提供

モリテック「プロモーション用ＣＤ」提供

　

金型不要のメリットを具体的・実際的な加工例、金型成型とのコスト比較データやFAQ（よくあるご質問と答え）などで紹介したテクニカルレポートを作成しました。又、お客さまの社名、ロゴ入りタックシールをご提供します。

　

モリテック加工品について、お客さまクライアントによりくわしく説明するため、担当者がお客さまと同行の上、プレゼンテーションを実施します。

　

お客さまユーザー向け
「プロモーション用CD」提供

　

　

　

　

モリテックの名を出さずに、加工から技術内容や金型製品との違いについて説明します。

　

　

お客さま社名やロゴ入りタックシールを
　作成します。

プロモーション用CD
※お客さま社名やロゴをCDに入れられます。

　

　

お客さま社名ロゴマーク入りの
「インフォメーションチラシ」提供

　

プレゼンテーション用各種ツール提供

　

　

　

お客さまの社名、ロゴマーク入りのインフォメーションチラシをご提供。金型不要のメリットを具体的・実際的な加工例、金型成型とのコスト比較データやFAQ（よくあるご質問と答え）などで紹介したパンフレットを営業ツールとしてご使用いただけます。

　

お客さまがクライアントにプレゼンテーションをされるために必要なツールをレンタルでご利用いただけます。
●パワーポイント作成資料　●プロジェクター
●スクリーン　●サンプルなど

　

　

サンプルバック・レンタル

実際の製品を見ていただけるよう、特徴的な数点の製品を収納したサンプルバックのレンタルをご利用いただけます。

　

金型不要チラシ案内

　

プレゼンテーションツール

　

へルールチラシ案内

サンプルバッグレンタル

<% 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 %>