The Weird and The Wonderful

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

\\ some code

var item = values.TryGet<ITimelineItem>(3);

var dt = (DateTime)values[0];
var tomorrow = new DateTime(2012, 4, 26); // DateTime.Today.AddDays(1);

if(item != null)
\\ some more code