<% If Session(SiteID) <> true Then Response.Redirect("Login.asp?requester=delete.asp") End If %> <% Response.Buffer = True %> Results -- Delete <% If Request("btnAction") = "New" Then Response.Redirect "" End If %> <% If Request.QueryString("FP_Num_Items") = "" Then fp_sMyQry = "" If Request.Form("Key") <> "" Then nCount = 1 fp_sMyQry = "&Row0=" & Server.UrlEncode(Request.Form("Key")) else nCount = 0 For Each Field In Request.Form If Request.Form(Field) = "ON" Then fp_sMyQry = fp_sMyQry & "&Row" & nCount & "=" & Field & "" nCount = nCount + 1 End If Next 'Field End If If Len(fp_sMyQry) > 0 Then sRedirect = "delete.asp?FP_Num_Items=" & nCount & fp_sMyQry Response.Redirect sRedirect End If End If %> <% if Len(Request("ConfirmDelete")) = 0 then %> <% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM Results WHERE Key = ::Row0:: " fp_iItems = CInt(Request("FP_Num_Items")) fp_iTemp = 1 do while(fp_iTemp < fp_iItems) fp_sQry = fp_sQry & " OR Key = ::Row" & fp_iTemp & "::" fp_iTemp = fp_iTemp + 1 loop fp_sNoRecords="" fp_sDataConn="winter_meeting_07" fp_iMaxRecords=256 fp_iCommandType=1 fp_fTableFormat=True fp_fMenuFormat=False fp_sColTypes="&Key=3&F_Name=202&L_Name=202&Address_2=202&City=202&State=202&Zip=202&Phone=202&Fax=202&Email=202&Doctor_Name=202&Paid=11&Chec_Number=2&Date_paid=135" fp_iDisplayCols=4 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>
Key F_Name L_Name Address_2 City State Zip Phone Fax Email Doctor_Name Paid Chec_Number Date_paid
No records returned.
<%=FP_FieldVal(fp_rs,"Key")%> <%=FP_FieldVal(fp_rs,"F_Name")%> <%=FP_FieldVal(fp_rs,"L_Name")%> <%=FP_FieldVal(fp_rs,"Address_2")%> <%=FP_FieldVal(fp_rs,"City")%> <%=FP_FieldVal(fp_rs,"State")%> <%=FP_FieldVal(fp_rs,"Zip")%> <%=FP_FieldVal(fp_rs,"Phone")%> <%=FP_FieldVal(fp_rs,"Fax")%> <%=FP_FieldVal(fp_rs,"Email")%> <%=FP_FieldVal(fp_rs,"Doctor_Name")%> <%=FP_FieldVal(fp_rs,"Paid")%> <%=FP_FieldVal(fp_rs,"Chec_Number")%> <%=FP_FieldVal(fp_rs,"Date_paid")%>
<%select case fp_iCount %> <%case 0:%>

Click OK to refresh.

<%case 1:%>

Are you sure you want to delete this record?

<%case else:%>

Are you sure you want to delete these records?

<%end select%>
<% Response.end ElseIf Request("ConfirmDelete") = "Cancel" Then Response.Clear Response.Redirect "detail.asp" End If %> <% if 0 then %> <% end if %> <% fp_sQry="DELETE FROM Results WHERE Key = ::Row0:: " fp_iItems = CInt(Request("FP_Num_Items")) fp_iTemp = 1 do while(fp_iTemp < fp_iItems) fp_sQry = fp_sQry & " OR Key = ::Row" & fp_iTemp & "::" fp_iTemp = fp_iTemp + 1 loop fp_sDefault="" fp_sNoRecords="Record deleted from table." fp_sDataConn="winter_meeting_07" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_sColTypes="&Key=3&F_Name=202&L_Name=202&Address_2=202&City=202&State=202&Zip=202&Phone=202&Fax=202&Email=202&Doctor_Name=202&Paid=11&Chec_Number=2&Date_paid=135" fp_fCustomQuery=True BOTID=1 fp_iRegion=BOTID %>