- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
Public Function CheckForError(ByVal sRes1 As String, ByVal sRes2 As String, Optional ByVal sRes3 As String = "", Optional ByVal sRes4 As String = "", Optional ByVal sRes5 As String = "", Optional ByVal sRes6 As String = "", Optional ByVal sRes7 As String = "", Optional ByVal sRes8 As String = "", Optional ByVal sRes9 As String = "", Optional ByVal sRes10 As String = "", Optional ByVal sRes11 As String = "") As Boolean
Dim bRes As Boolean = True
If Not CheckForError(sRes1) Then
If Not CheckForError(sRes2) Then
If Not CheckForError(sRes3) Then
If Not CheckForError(sRes4) Then
If Not CheckForError(sRes5) Then
If Not CheckForError(sRes6) Then
If Not CheckForError(sRes7) Then
If Not CheckForError(sRes8) Then
If Not CheckForError(sRes9) Then
If Not CheckForError(sRes10) Then
If Not CheckForError(sRes11) Then
bRes = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Return bRes
End Function
eee_qqq 24.01.2011 20:27 # +10
gegMOPO4 24.01.2011 20:48 # −5
3.14159265 24.01.2011 23:56 # −1
А вот же оно!
http://govnokod.ru/3270
Lure Of Chaos 24.01.2011 22:52 # −1
StriderMan 25.01.2011 08:53 # +5
TEEN 25.01.2011 12:20 # −2
3.14159265 25.01.2011 14:55 # +3
bugmenot 19.04.2011 20:10 # 0
Govnocoder#0xFF 19.04.2011 19:14 # −1
Akira 21.05.2011 19:13 # −1
guest 21.05.2011 19:30 # −1
SmackMyBitchUp 10.07.2011 15:01 # −1
guest 03.04.2012 16:05 # −1
Девчонки, кидайте мене свои трусики!