The Question and Answer Board

[Bob Zumbrunnen]

 
 Function DueRespect(msgtxt) 
   DueRespect=(instr(msgtxt,"Yes Sir")<>0) 
 End Function 
 ' 
 Function SpeedSlap(usernum) 
   SQLCmd="Delete from Members where member_id=" & usernum 
   Conn.Execute(SQLCmd) 
   SQLCmd="Delete from Messages where originator=" & usernum 
   Conn.Execute(SQLCmd) 
   SpeedSlap="Oops.  My mistake." 
 End Function 
 ' 
 If not DueRespect(msgtxt) then 
   Response.Write(SpeedSlap(usernum)) 
 end if