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

　万全のバックアップ体制でゴム加工品を提供します

 Customer Top
　 　 　

　
　 原材料から製造・販売・アフターサービスに至るまで、ゴムのプロフェッショナルが直接お客さまの営業活動をお手伝いさせていただきます。 　
　 モリテック加工品についての説明会
・セミナーの開催		 　 ユーザーへ同行プレゼンテーション 　
　 パワーポイントなどを用いてモリテック加工製品を技術内容や販売ポイントについてもわかりやすくご説明します 　 モリテック加工品について、お客さまクライアントによりくわしく説明するため、担当者がお客さまと同行の上、プレゼンテーションを実施します。 　
　 　 　 　 　 　
　 ※新入社員研修としてもご活用いただけます。 　 ※プレゼンテーション時に必要となるさまざまなツールもご用意させていただきます。 　 　
<% 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 %>