<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit
Response.Buffer = True
Dim conn, rec, sql, rs
Dim filePath
Dim USID, PSWD
Dim kaisya, tantou, denwa, mail, renraku
Dim cnt
Dim MAX_SEQ
Dim NEW_SEQ
Dim SEQ
Dim url
Dim ID
' フォームから送られた要素を変数に代入します。
ID = Session("ID")
kaisya = Request("kaisya")
tantou = Request("tantou")
denwa = Request("denwa")
mail = Request("mail")
url = Request("url")
USID = Request("USID")
PSWD = Request("PSWD")
renraku = Request("renraku")
%>
<% ' データベース の オープン %>
<% ' SET conn = Session("conn") %>
<% ' CALL record_add() %>
ウェブ発行
<%
Function record_add() ' 得意先テーブル の 変更
' テーブル の 変更
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = conn
sql = "SELECT * FROM 得意先ﾃｰﾌﾞﾙ where SEQ = " & SEQ & ";"
rs.Source = sql
rs.CursorType = adOpenStatic
rs.Locktype = adLockOptimistic
rs.Open
rs.Fields("SEQ").Value = SEQ
'rs.Fields("会社名").Value = kaisya
rs.Fields("担当者名").Value = tantou
rs.Fields("電話番号").Value = denwa
rs.Fields("メール").Value = mail
rs.Fields("Webアドレス").Value = url
'rs.Fields("希望USID").Value = USID
rs.Fields("希望PSWD").Value = PSWD
rs.Fields("連絡事項").Value = renraku
'rs.Fields("仮登録FLG").Value = "1"
'rs.Fields("仮登録日").Value = date
'rs.Fields("仮登録時間").Value = time
'rs.Fields("削除FLG").Value = "1"
'rs.Fields("登録日").Value = ""
rs.Fields("変更日").Value = date
'rs.Fields("削除日").Value = ""
'rs.Fields("得意先CD").Value = ""
'rs.Fields("担当営業").Value = ""
rs.UPDATE
rs.close
End Function
%>
