<%@ 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 company
Dim tantousya
Dim tokuiSEQ
Dim SEQ
Dim ID
Dim ref
Dim renrakuSEQ
Dim renrakuSYA
Dim renrakuBI
Dim renrakuNO
Dim renrakuDAI
Dim renrakuNAIYOU
' フォームから送られた要素を変数に代入します。
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
Session("ID") = ID
S_USID = USID
S_PSWD = PSWD
'Else
'End If
%>
会員様メニュー
<%
CALL USID_kensaku()
Session("S_tantousya") = tantousya
Session("S_TOKUISEQ") = tokuiSEQ
Session("S_company") = company
If USID_SW = 0 Then
CALL RENRAKU_KENSAKU()
Else
End If
If USID_SW = 0 Then
%>
