home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Micrsoft / VJ / COMMON / WIZARD98 / VIWZ1.DLL / 1033 / HTMX / 5704 < prev    next >
Text File  |  1998-02-24  |  2KB  |  61 lines
  1. <!-- Action feedback -->
  2.     <HTML>
  3.     <HEAD>
  4.         <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev">
  5.         <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
  6.         <META NAME="keywords" CONTENT="Microsoft DataForm, <%#FormName#%> Form">
  7.         <TITLE><%#FormName#%> Form</TITLE>
  8.     </HEAD>
  9.     <BASEFONT FACE="Arial, Helvetica, sans-serif">
  10.     <LINK REL=STYLESHEET HREF="./Stylesheets/<%#THEMENAME#%>/Style2.css">
  11.     <BODY BACKGROUND="./Images/<%#THEMENAME#%>/Background/Back2.jpg" BGCOLOR=White>
  12.     <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  13.         <TR>
  14.             <TH COLSPAN=2 NOWRAP ALIGN=Left BGCOLOR=#CCCCFF BACKGROUND="./Images/<%#THEMENAME#%>/Navigation/Nav1.jpg">
  15.                 <FONT SIZE=6> Feedback: </FONT>
  16.             </TH>
  17.         </TR>
  18.         <TR>
  19.             <TD BGCOLOR=#FFFFCC COLSPAN=2>  
  20.             <FONT SIZE=-1>
  21.             <% 
  22.             Select Case strDataAction
  23.                 Case "Insert"
  24.                     Response.Write("The following record has been inserted into <%#TableShortName#%>.")
  25.                 Case "Update"
  26.                     Response.Write("The following updated record has been posted to <%#TableShortName#%>.")
  27.                 Case "Delete"
  28.                     Response.Write("The following record has been deleted from <%#TableShortName#%>.")
  29.             End Select
  30.             %>
  31.             </FONT>
  32.             </TD>
  33.         </TR>
  34.     </TABLE>
  35.     <TABLE WIDTH=100% CELLSPACING=1 CELLPADDING=2 BORDER=0>
  36.         <TR>
  37.             <TD WIDTH=30% ALIGN=Left BGCOLOR=Silver><FONT SIZE=-1><B>  Field</B></FONT></TD>
  38.             <TD WIDTH=100% ALIGN=Left BGCOLOR=Silver><FONT SIZE=-1><B>Value</B></FONT></TD>
  39.         </TR>
  40.         <%
  41. <%#FeedbackFields#%>        %>
  42.         <TR>
  43.             <TD COLSPAN=2><HR></TD>
  44.         </TR>
  45.         <TR>
  46.             <TD COLSPAN=2>
  47.             <% Response.Write "<FORM ACTION=""<%#DataFormFileName#%>"" METHOD=""POST"">" %>
  48.                 <% If strDataAction = "Insert" Then %>
  49.                     <INPUT TYPE="SUBMIT" NAME="FormMode" VALUE="New">
  50.                     <INPUT TYPE="SUBMIT" NAME="FormMode" VALUE="Form View">
  51.                 <% Else %>
  52.                     <INPUT TYPE="Hidden" NAME="FormMode" VALUE="Edit">
  53.                     <INPUT TYPE="SUBMIT" VALUE="Form View">
  54.                 <% End If %>
  55.             </FORM>
  56.             </TD>
  57.         </TR>
  58.     </TABLE>
  59. </BODY>
  60. </HTML>
  61.