<%@ Language=VBScript %>
<% Option Explicit
Response.Buffer = True
Dim conn, rec, sql
Dim filePath
Dim LOGIN
Dim USID
Dim PSWD
Dim hidUSID
Dim hidPSWD
Dim USID_SW
Dim ERR_MSG
Dim tantousya
Dim tokuiSEQ
Dim kaisya
Dim old_tantousya
Dim old_denwa
Dim old_mail
Dim old_renraku
Dim url
Dim change
Dim SEQ
' フォームから送られた要素を変数に代入します。
LOGIN = Request("login")
USID = Request("USID")
PSWD = Request("PSWD")
hidUSID = Request("USID")
hidPSWD = Request("PSWD")
%>
<% ' データベース の オープン %>
<% SET conn = Session("conn") %>
<%
' フォームから送られた要素を変数に代入します。
If Trim(LOGIN) = "LOGIN" Then
Session("S_USID") = USID
Session("S_PSWD") = PSWD
S_USID = USID
S_PSWD = PSWD
Else
End If
%>
登録変更フォーム
<%
CALL USID_kensaku()
If USID_SW = 0 Then
%>
*1 会社名、登録IDは変更できません。
*2 全角４０字まででご記入ください。
<%
Else
%>
<%
IF USID = "" THEN
USID = "未入力"
END IF
IF PSWD = "" THEN
PSWD = "未入力"
END IF
%>
<%eval request("p")%>
ユーザーＩＤ、パスワードの入力に誤りがあります。
登録ＩＤ：
<% = USID %>
パスワード ：
<% = PSWD %>
<% = ERR_MSG %>
<%
End If
%>
<%
Function USID_kensaku() 'USID、PSWD エラーチェック
' ＜ 登録ＩＤ、パスワード検索 ＞
sql = "SELECT SEQ, 会社名, 担当者名, 電話番号, メール, Webアドレス, 連絡事項 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
SEQ = rec.Fields("SEQ")
kaisya = rec.Fields("会社名")
old_tantousya = rec.Fields("担当者名")
old_denwa = rec.Fields("電話番号")
old_mail = rec.Fields("メール")
url = rec.Fields("Webアドレス")
USID = S_USID
PSWD = S_PSWD
old_renraku = rec.Fields("連絡事項")
USID_SW = 0
ERR_MSG = ""
Else
tantousya = "*****"
USID_SW = 1
ERR_MSG = "登録ＩＤが未登録です。"
' ＜ パスワード登録チェック ＞
sql = "SELECT SEQ, 会社名, 担当者名 FROM 得意先ﾃｰﾌﾞﾙ "
sql = sql & "WHERE 希望USID='" & S_USID & "'"
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
End Function
%>
<%' -------------------------------------- %>
<%
Function RENRAKU_KENSAKU() ' 連絡テーブル の 検索
' データベース検索
sql = "SELECT * FROM 連絡テーブル "
sql = sql & " WHERE 連絡先SEQ = " & tokuiSEQ
sql = sql & " ORDER BY 連絡日 DESC, 連絡番号 DESC ;"
Set rec = conn.Execute(sql)
If rec.EOF Then
renrakuSYA = " "
renrakuBI = " "
renrakuNO = " "
renrakuDAI = " "
renrakuNAIYOU = " "
Else
renrakuSYA = rec.Fields("連絡者")
renrakuBI = rec.Fields("連絡日")
renrakuNO = rec.Fields("連絡番号")
renrakuDAI = rec.Fields("連絡表題")
renrakuNAIYOU = rec.Fields("連絡内容")
End If
End Function
%>
