<%
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
%>
<% = AppTitle %>
<%
End Sub
%>