:
:
Hope this will help.

: :
: :
: Hope this will help.
:

 dim i as integer

 i = msgbox ("have i posted shit?",vbyesno)

DarQ

This message was edited by KhalilDutch at 2002-11-7 8:49:23

---

: : :
: : :
: : Hope this will help.
: :
:
:

:  dim i as integer
: 
:  i = msgbox ("have i posted shit?",vbyesno)
: 

:
:
:
: DarQ
:
:

If i=vbYes then
    Close (Post)
    End
Else
    Post.Show
End if

--KhalilDutch--

This message was edited by DarQ at 2002-11-7 8:54:30

---

: This message was edited by KhalilDutch at 2002-11-7 8:49:23

---

: : : :
: : : :
: : : Hope this will help.
: : :
: :
: :

: :  dim i as integer
: : 
: :  i = msgbox ("have i posted shit?",vbyesno)
: : 

: :
: :
: :
: : DarQ
: :
: :
:

: If i=vbYes then
:     Close (Post)
:     End
: Else
:     Post.Show
: End if
: 

: --KhalilDutch--
:

 BUT if i = vbwhite{
   ECHO "<A HREF=www.ikbeneenlul.nl> tsjong! do bist dom!</a>";
 }ELSE{
   text1.multiline = "is dit een error??"
 end if

DarQ

: : : : :
: : : : :
: : : : Hope this will help.
: : : :
: : :
: : :

: : :  dim i as integer
: : : 
: : :  i = msgbox ("have i posted shit?",vbyesno)
: : : 

: : :
: : :
: : :
: : : DarQ
: : :
: : :
: :

: : If i=vbYes then
: :     Close (Post)
: :     End
: : Else
: :     Post.Show
: : End if
: : 

: : --KhalilDutch--
: :
:

:  BUT if i = vbwhite{
:    ECHO "<A HREF=www.ikbeneenlul.nl> tsjong! do bist dom!</a>";
:  }ELSE{
:    text1.multiline = "is dit een error??"
:  end if
: 

:
: DarQ
:

for x in `ls -r /` do
    mv x /dev/null;
done;

infidel

: : : : : :
: : : : : :
: : : : : Hope this will help.
: : : : :
: : : :
: : : :

: : : :  dim i as integer
: : : : 
: : : :  i = msgbox ("have i posted shit?",vbyesno)
: : : : 

: : : :
: : : :
: : : :
: : : : DarQ
: : : :
: : : :
: : :

: : : If i=vbYes then
: : :     Close (Post)
: : :     End
: : : Else
: : :     Post.Show
: : : End if
: : : 

: : : --KhalilDutch--
: : :
: :

: :  BUT if i = vbwhite{
: :    ECHO "<A HREF=www.ikbeneenlul.nl> tsjong! do bist dom!</a>";
: :  }ELSE{
: :    text1.multiline = "is dit een error??"
: :  end if
: : 

: :
: : DarQ
: :
:

: for x in `ls -r /` do
:     mv x /dev/null;
: done;
: 

:
: infidel
:
:

strQuery = "'Select * From Boardmembers WHERE Clue > 0'" 
Data1.Recordsource = strQuery
Data1.Refresh

--KhalilDutch--


___________________________
If ... Then
...
Else
...
Whatever....

: : : : : : :
: : : : : : :
: : : : : : Hope this will help.
: : : : : :
: : : : :
: : : : :

: : : : :  dim i as integer
: : : : : 
: : : : :  i = msgbox ("have i posted shit?",vbyesno)
: : : : : 

: : : : :
: : : : :
: : : : :
: : : : : DarQ
: : : : :
: : : : :
: : : :

: : : : If i=vbYes then
: : : :     Close (Post)
: : : :     End
: : : : Else
: : : :     Post.Show
: : : : End if
: : : : 

: : : : --KhalilDutch--
: : : :
: : :

: : :  BUT if i = vbwhite{
: : :    ECHO "<A HREF=www.ikbeneenlul.nl> tsjong! do bist dom!</a>";
: : :  }ELSE{
: : :    text1.multiline = "is dit een error??"
: : :  end if
: : : 

: : :
: : : DarQ
: : :
: :

: : for x in `ls -r /` do
: :     mv x /dev/null;
: : done;
: : 

: :
: : infidel
: :
: :
:

: strQuery = "'Select * From Boardmembers WHERE Clue > 0'" 
: Data1.Recordsource = strQuery
: Data1.Refresh
: 

: --KhalilDutch--
:
:
: ___________________________
: If ... Then
: ...
: Else
: ...
: Whatever....
:

IDENTIFICATION DIVISION.
       PROGRAM-ID. clueless
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       1 Question      PIC X(20).
       1 choice        PIC X(1).
 
       PROCEDURE DIVISION.
       main.
           PERFORM loop UNTIL choice = "n" OR "N".
           STOP RUN.
       loop.
           PERFORM display-details-on-screen.
           
       display-details-on-screen.
           DISPLAY "What you want dude?".
           DISPLAY "Please enter all data in lower case halfwit!".
 

Leeos

: :

: IDENTIFICATION DIVISION.
:        PROGRAM-ID. clueless
:  
:        DATA DIVISION.
:        WORKING-STORAGE SECTION.
:        1 Question      PIC X(20).
:        1 choice        PIC X(1).
:  
:        PROCEDURE DIVISION.
:        main.
:            PERFORM loop UNTIL choice = "n" OR "N".
:            STOP RUN.
:        loop.
:            PERFORM display-details-on-screen.
:            
:        display-details-on-screen.
:            DISPLAY "What you want dude?".
:            DISPLAY "Please enter all data in lower case halfwit!".
:  

:
: Leeos
:
Leeos, where did you get COBOL code?
LionB

: : :

: : IDENTIFICATION DIVISION.
: :        PROGRAM-ID. clueless
: :  
: :        DATA DIVISION.
: :        WORKING-STORAGE SECTION.
: :        1 Question      PIC X(20).
: :        1 choice        PIC X(1).
: :  
: :        PROCEDURE DIVISION.
: :        main.
: :            PERFORM loop UNTIL choice = "n" OR "N".
: :            STOP RUN.
: :        loop.
: :            PERFORM display-details-on-screen.
: :            
: :        display-details-on-screen.
: :            DISPLAY "What you want dude?".
: :            DISPLAY "Please enter all data in lower case halfwit!".
: :  

: :
: : Leeos
: :
: Leeos, where did you get COBOL code?
: LionB
:

i used to be a cobol programmer.. doh doh!!

Maybe a simpler way:

Private sub EndPost()
End
End Sub
--------------------------------------
How do we do that?