ASP Classic

	ASP Classic Group Home
Get Started Page eMag: ASP Classic Highlights WEEKLYLESSON Week 38 Lesson◄╣ MYGROUPSETTINGS My Group Settings

	Message Board
-New Activity -Unanswered Threads -Most Active Threads -Most Read Threads

	ASP Classic KB
-New & Updated -Most Read -10 Min Quickstarts -Recent Comments Tech Articles ASP Classic News Errors Library File Library Resource Links ASP CLASSICTIDBITS: All as FlashCards Code Snippets FAQs Tips

	ASP Classic To/From
To/FromCODEGuides ASP Classic To/From

	ASP Classic Study Test
PRESTWOODCERTIFIED ASP Classic Study Test

	ASP Classic Store
PRESTWOODSTORE Store Home Buy ASP Classic Items

	Members Only
MEMBERSONLY ASP Classic Member List Member Only KB Posts ASP Classic Content Stats Random Article Random MB Thread Random Tidbit Random CrossRef Code

► All Groups ► ASP Classic Group

Print This All Groups

Weekly ASP Classic Lesson

Week 38, Posted Monday 9/20/2021

Content changes every Monday @ 1AM!! Check back once per week. Learn! Review! Test Yourself!

Lastest ASP Classic Flashcard

Our flashcards are part of our library of tidbits.

Tidbits are FAQs, Definitions, Tips, and Code Snippets from our knowledge base.

ASP Classic Yes/No Function

The following function demonstrates one technique for coding a Yes/No dropdown. It uses a for loop which can be expanded to handle more than the 3 states (Y, N, and blank).

Example of calling the function:

Do you fish? &lt;%=YesNoDropDown("ynFish", "")%&gt;

Function YesNoDropDown(strName, strSelected) 
 Dim i 
 Dim strSelectedString 
 Dim YesNoName 
 Dim YesNoCode

 YesNoName = Array("Yes","No")  
 YesNoCode = Array("Y","N")
 
 YesNoDropDown = "<select name='" & strName & "'>" & vbcrlf 
 YesNoDropDown = YesNoDropDown & "<option>" & "--" & "</option>"
 
 For i = 0 To UBound(YesNoName)   
  If strSelected = YesNoCode(i) Then     
   strSelectedString = "Selected"   
  Else     
   strSelectedString = ""   
  End If           
  
  YesNoDropDown = YesNoDropDown & "<option value='" & YesNoCode(i) & "' " & _       
  strSelectedString & " >" & YesNoName(i) & "</option>" & vbcrlf  
 Next       
 
 YesNoDropDown = YesNoDropDown & "</select>" & vbcrlf  
End Function

Posted By Mike Prestwood, Post #102169, KB Topic: ASP Classic