Replies to post #13420 on The Question and Answer Board (IHUB)

[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 
  
 

[Bob Zumbrunnen]

Geez, i haven't seen xBase in ages! Are you dealing with it all the time now? I've done more xBase than everything else combined, so I'm still in the habit of typing "endif" instead of "end if", which VB doesn't like.