The Weird and The Wonderful

size = 29;
if (width > 11 || height > 4)
{
    size++;
    if (width > 13 || height > 5)
    {
        size++;
        if (width > 15 || height > 6)
        {
            size++;
            if (width > 18 || height > 7)
            {
                size++;
                if (width > 19 || height > 8)
                {
                    size++;
                    if (width > 21 || height > 10)
                    {
                        // 7x6 compressed
                        SpreadCompressed(width, width > 21, height > 10, xpos, ypos);
                    }
                    else
                    {
                        // 7x6
                        Spread(width, 8, 7, xpos, ypos);
                    }
                }
                else
                {
                    // 8x8
                    Spread(width, 9, 9, xpos, ypos);
                }
            }
            else
            {
                // 8x9
                Spread(width, 9, 10, xpos, ypos);
            }
        }
        else
        {
            // 10x11
            Spread(width, 11, 12, xpos, ypos);
        }
    }
    else
    {
        // 12x13
        Spread(width, 13, 14, xpos, ypos);
    }
}
else
{
    // 14x15
    Spread(width, 15, 16, xpos, ypos);
}

Rtn = ""

Rtn = Rtn & " Some text " & vbCrLf

... repeat that many times ...

Content = Rtn 'yeah, that just happened. No, Content wasn't used prior to this

MainInfo = WrapContent(Content)




Function WrapContent(connection,content)
	Rtn = ""
	Rtn = Rtn & ... logic for gathering more information (all in h4 tags) with vbCrLf ..

	if Content > "" then
		Rtn = Rtn & "" & vbCrLf
		Rtn = Rtn & Content
		xRtn = Rtn 'yeah, that's an xRtn that is never used.
		Rtn = HtmlReFormat(xRtn & vbCrLf)
	end if
	
	WrapContent = Rtn
End Function

'This may be my favorite part.
Function HtmlReFormat(Content)
	Content = Replace(Content,vbCRLF,"<br>") 'see what we do here. awesome!
	Content = Replace(Content,"  ","  ") 'yeah, not with the ;
End Function


'the way his iif is actually used in the code is horrible
' and supports messy logic:
'''' example iif ''''

Variable = trim(rs("some value"))
Variable = iif(Variable,"=","value","Something",Variable)
Variable = iif(Variable,"=","other value","Something",Variable)
Variable = iif(Variable,"=","yet another value","Something",Variable)
... a few more times ...
Variable = iif(Variable,"=","","Undefined",Variable)

'and yes, it sets it back to itself on false every time
''''''''''''''''''''''


Function IIF(sVal1, Equal, sVal2 , IfTrue, IfFalse)

	dim Rtn

	Equal = trim(Equal)


	select case Equal



		case "="

			if sVal1 = sVal2 then 

	        	    Rtn = IfTrue

  			Else

	        	    Rtn = IfFalse

			End If





		case "<"

			if sVal1 < sVal2 then 

	        	    Rtn = IfTrue

  			Else

	        	    Rtn = IfFalse

			End If



		case ">"

			if sVal1 > sVal2 then 

	        	    Rtn = IfTrue

  			Else

	        	    Rtn = IfFalse

			End If



		case "<="

			if sVal1 <= sVal2 then 

	        	    Rtn = IfTrue

  			Else

	        	    Rtn = IfFalse

			End If


		case ">="

			if sVal1 >= sVal2 then 

	        	    Rtn = IfTrue

  			Else

	        	    Rtn = IfFalse

			End If

	end select


	IIF = Rtn

End Function