home *** CD-ROM | disk | FTP | other *** search
/ Clickx 75 / Clickx 75.iso / software / expressionweb / expressionwebv3 / ExpressionWeb_en.exe / Setup / WeConen.cab / xweb.vtidb.wiz.DELETE.HTX.en < prev    next >
Encoding:
Text File  |  2009-06-09  |  5.1 KB  |  161 lines
  1. <%LoginCheck%>
  2.  
  3. <%DeleteResponse%>
  4.  
  5. <html>
  6.  
  7. <head>
  8. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  9. <title><%DeletePageTitle%></title>
  10. </head>
  11.  
  12. <body bgcolor="#FFFFFF">
  13.  
  14. <%BeginASP%>    If Request("btnAction") = "<%NewButtonValue%>" Then
  15.        Response.Redirect "<%SubmitASPPAge%>"
  16.     End If
  17. <%EndASP%>
  18. <%BeginASP%>    If Request.QueryString("FP_Num_Items") = "" Then
  19.     fp_sMyQry = ""    
  20.         If Request.Form("<%KeyFieldFormName%>") <> "" Then
  21.             nCount = 1
  22.             fp_sMyQry = "&Row0=" & Server.UrlEncode(Request.Form("<%KeyFieldFormName%>"))
  23.             else
  24.             nCount = 0
  25.             For Each Field In Request.Form
  26.             If Request.Form(Field) = "ON" Then
  27.                     fp_sMyQry = fp_sMyQry & "&Row" & nCount & "=<%KeyQuote%>" & Field & "<%KeyQuote%>"
  28.                
  29.                 nCount = nCount + 1
  30.             End If
  31.         Next 'Field
  32.     End If
  33.         If Len(fp_sMyQry) > 0 Then
  34.             sRedirect = "<%DeleteASPPage%>?FP_Num_Items=" & nCount & fp_sMyQry
  35.             Response.Redirect sRedirect
  36.         End If
  37.     End If
  38. <%EndASP%>
  39.  
  40. <%BeginASP%> if Len(Request("ConfirmDelete")) = 0 then <%EndASP%>
  41.  
  42. <!--webbot bot="PurpleText" PREVIEW="-Important-  If you modify this Database Results region using the Database Results Wizard, then your Database Editor will no longer work.  If you accidentally open the Database Results Wizard, simply click Cancel to exit without regenerating the Database Results region." -->
  43. <table border="0">
  44.     <thead>
  45.     <tr>
  46. <%DeleteColumnHeaders%>
  47.     </tr>
  48.     <thead>
  49.  
  50.     <tbody>
  51.     
  52. <!--#include file="<%IncPath%>_fpclass/fpdblib.inc"-->
  53. <%BeginASP%> if 0 then <%EndASP%>
  54. <SCRIPT Language="JavaScript">
  55. document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
  56. </SCRIPT>
  57. <%BeginASP%> end if <%EndASP%>
  58. <%BeginASP%>
  59. fp_sQry="SELECT * <%DeleteSQLQuery%> "
  60. fp_iItems = CInt(Request("FP_Num_Items"))
  61. fp_iTemp = 1
  62. do while(fp_iTemp < fp_iItems) 
  63.     fp_sQry = fp_sQry & "<%DeleteSQLSubQuery%>"
  64.     fp_iTemp = fp_iTemp + 1
  65. loop
  66. fp_sNoRecords="<tr><td colspan=4 align=""LEFT"" width=""100%"">No records returned.</td></tr>"
  67. fp_sDataConn="<%ConnectionName%>"
  68. fp_iMaxRecords=256
  69. fp_iCommandType=1
  70. fp_fTableFormat=True
  71. fp_fMenuFormat=False
  72. fp_sColTypes="<%DeleteColumnTypes%>"
  73. fp_iDisplayCols=4
  74. fp_fCustomQuery=False
  75. BOTID=0
  76. fp_iRegion=BOTID
  77. <%EndASP%>
  78.  
  79.  
  80.  
  81. <!--#include file="<%IncPath%>_fpclass/fpdbrgn1.inc"-->
  82.  
  83.     <tr>
  84. <%DeleteResultColumns%>
  85.     </tr>
  86.     
  87. <!--#include file="<%IncPath%>_fpclass/fpdbrgn2.inc"-->
  88.     </tbody>
  89. </table>
  90.  
  91. <center>
  92. <form method="POST">    
  93.         <%BeginASP%>select case fp_iCount <%EndASP%>
  94.            <%BeginASP%>case 0:<%EndASP%>
  95.             <p><b><font size="4">Click OK to refresh.</font></b></p>
  96.             <p><input type="submit" value="OK" name="ConfirmDelete"></p>
  97.         <%BeginASP%>case 1:<%EndASP%>
  98.             <p><b><font size="4">Are you sure you want to delete this record?</font></b></p>
  99.             <p><input type="submit" value="     OK     " name="ConfirmDelete"> <input type="submit" value="<%CancelButtonValue%>" name="ConfirmDelete"></p>
  100.         <%BeginASP%>case else:<%EndASP%>
  101.             <p><b><font size="4">Are you sure you want to delete these records?</font></b>
  102.             <p><input type="submit" value="     OK     " name="ConfirmDelete"> <input type="submit" value="<%CancelButtonValue%>" name="ConfirmDelete"></p>
  103.         <%BeginASP%>end select<%EndASP%></form>
  104.  
  105. </center>
  106.  
  107. <%BeginASP%>
  108.         Response.end
  109.     ElseIf Request("ConfirmDelete") = "<%CancelButtonValue%>" Then
  110.         Response.Clear
  111.         Response.Redirect "<%DetailASPPage%>"
  112.     End If
  113. <%EndASP%>
  114.  
  115. <script Language="JavaScript">
  116. <!--
  117.     top.list.location.href = top.list.location.href;
  118. // -->
  119. </script>
  120.  
  121.  
  122.  
  123.  
  124.  
  125. <!--#include file="<%IncPath%>_fpclass/fpdblib.inc"-->
  126. <%BeginASP%> if 0 then <%EndASP%>
  127. <SCRIPT Language="JavaScript">
  128. document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
  129. </SCRIPT>
  130. <%BeginASP%> end if <%EndASP%>
  131. <%BeginASP%>
  132. fp_sQry="DELETE <%DeleteSQLQuery%> "
  133. fp_iItems = CInt(Request("FP_Num_Items"))
  134. fp_iTemp = 1
  135. do while(fp_iTemp < fp_iItems) 
  136.     fp_sQry = fp_sQry & "<%DeleteSQLSubQuery%>"
  137.     fp_iTemp = fp_iTemp + 1
  138. loop
  139. fp_sDefault=""
  140. fp_sNoRecords="Record deleted from table."
  141. fp_sDataConn="<%ConnectionName%>"
  142. fp_iMaxRecords=256
  143. fp_iCommandType=1
  144. fp_iPageSize=0
  145. fp_fTableFormat=False
  146. fp_fMenuFormat=False
  147. fp_sMenuChoice=""
  148. fp_sMenuValue=""
  149. fp_sColTypes="<%DeleteColumnTypes%>"
  150. fp_fCustomQuery=True
  151. BOTID=1
  152. fp_iRegion=BOTID
  153.  
  154. <%EndASP%>
  155. <!--#include file="<%IncPath%>_fpclass/fpdbrgn1.inc"-->
  156. <p><!--webbot bot="PurpleText" PREVIEW="This is the DELETE query." --></p>
  157. <!--#include file="<%IncPath%>_fpclass/fpdbrgn2.inc"-->
  158. </body>
  159.  
  160. </html>
  161.