% 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 %>
<% = DbDesign %>