Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Select Case When Column1 = 'Y' Then Column1
When Column3 = 'Y' Then Column3
When Column5 = 'Y' Then Column5
When Column7 = 'Y' Then Column7
End As Alias1Column,
Case When Column1 = 'Y' Then Column2
When Column3 = 'Y' Then Column4
When Column5 = 'Y' Then Column6
When Column7 = 'Y' Then Column8
End As Alias2Column
From....
With rsSelectValues
.CursorLocation = adUseClient
.Open strSQL, gCn1, adOpenStatic
If Not .EOF And Not .BOF Then
.MoveFirst
intCounter = 0
Do Until .Fields.Item(intCounter).Name = "EOF"
strFieldName = .Fields.Item(intCounter).Name
If .Fields(strFieldName).Value = "Y" Then
intCounter = intCounter + 1
[COLOR=red] 'Do something with next field. [/color]
End If
intCounter = intCounter + 1
Loop
End If
End With