<!-- #include file="../include.asp" -->
<%
main()
Sub main()
Dim Query, Content
%>
<%
If Request("design") <> "" Then
Query = "UPDATE TM名刺デザインM SET デザイン = '" & Request("design") & "' WHERE (名刺デザインCD = '" & Request("cd") & "')"
Set Content = OpenQuery(Query)
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="/sj4web/binx/sj3web.css" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="/sj4web/include.js"></script>
<script language="JScript" src="/sj4web/includesj.js"></script>
<script language="JScript.Encode" src="/sj4web/include_enc.js"></script>
<script language="JScript.Encode" src="/sj4web/includesj_enc.js"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0">
<form method="POST" action="meishidesignup.asp">
<select name="cd" onChange="tblbtn('meishidesignup.asp?cd=' + this.value)">
<%
Query = "SELECT * FROM TM名刺デザインM ORDER BY 名刺デザインCD "
Set Content = OpenQuery(Query)
Dim DbDesign
Do While Not(Content.BOF OR Content.EOF)
Dim DbCD
DbCD = Content.Fields("名刺デザインCD")
%>
<option value="<%= DbCD %>" <%
If DbCD = Request("cd") Then
DbDesign = Content.Fields("デザイン")
Response.Write(" selected")
End If
%>><% = DbCD %></option>
<%
Content.MoveNext
Loop
%>
</select>
<p><textarea rows="20" name="design" cols="100" style="font-size: 10px">
<% = DbDesign %>
</textarea></p>
<p><input type="submit" value="送信" name="B1"></p>
</form>
</body>
</html>
<%
End Sub
%>