The Weird and The Wonderful

IF printer_type = 1 then
	* ELECTRIC LABEL		
	IF ALLTRIM(lin_array(2)) = "ENVIRO" then
		DO eleclabv4
	ELSE
		DO eleclabv1
	ENDIF
	
*	label form testlab noconsole TO PRINTER
ELSE
	IF printer_type = 2 then
		* GAS LABEL
		DO gaslabv1
	ELSE
		IF printer_type = 3 then
			SET FILTER TO dpl.dpl_part = "50V136G"  && need to trick the label printing routine to see 1 record to print .. enamel chain items don't have any records in the datplate (dpl) file, therefore nothing will print if we don't trick the program
			DO echnlabv1
		ELSE
			IF printer_type = 4 then
				DO gaslabv2
			ELSE
				IF printer_type = 5 then
					*Sunpro gas
					DO gaslabv3
				ELSE
					IF printer_type = 6 then
						*Sunpro electric
						DO gaslabv3
					ELSE
						IF printer_type = 7 then
							* Titan
							DO eleclabv2
						ELSE
							IF printer_type = 8 then
								* Centaur
								DO eleclabv3
							ELSE
								IF printer_type = 9 then
									* GEneric label
									DO genlabelele
								ELSE
									IF printer_type = 10 then
										* GEneric label
										DO genlabelgas
									ELSE
										IF printer_type = 11 then
											* Revision D Electric label
											DO genlabeleleRevD
										ELSE
											IF printer_type = 12 then
												* Revision D Electric label
												DO genlabelgasRevD
											ELSE
												IF printer_type = 13 then
													* Revision D Electric label
													DO conergyelec
												ELSE
													IF printer_type = 15 then
														* Therman electric label
														DO genlabeleleThermann
													ELSE
														IF printer_type = 16 then
															* Therman electric label
															DO genlabeleleChina2
														ELSE
															IF printer_type = 17 then
																* H4047 A version label
																DO eleclabv5
															endif														
														endif														
													endif						
												endif
											endif
										endif
									endif
								endif
							endif
						endif
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF

Dim strBrowser As String = Request.Browser.Browser.ToString()
Dim strBroswerVersion As String = Request.Browser.Version.ToString()
If strBrowser.ToString() = "IE" Then
    If IsNumeric(strBroswerVersion.ToString()) Then
        If strBroswerVersion < 9 Then
            ' Do absolutely nothing. Really, nothing at all.
        End If
    End If
End If

• Generally, you should avoid checking browser versions, especially in server-side code (I believe the reasoning is that older browsers are slower, so some value was changed).
• Compilation breaks when trying to compare a string against a number.
• Anything this would have done has been commented out, so it does nothing.
• Calling ToString on a string (which I think might even throw a null reference exception if the original string is null)... four times.
• Comparing strings without ignoring case.
• The commented out code (not shown) would have caused a compiler error too (attempt to divide a string by a number).
• Hungarian notation.