Hi (first time actually posted ASP query) have left my dev folder & books at home & am away. working with friend who wants me to loop through some checkboxes & extract their name & value. actually i want an if statement that says if they are empty write nothing & if they arent then extract name & value of checkbox. i know how to do the if & extract the values etc but not the loop. at the moment i have really long code that looks at each checkbox tests if its empty & if it isnt then extracts the values I need.

can anyone help? this is what my code is starting to look like because i cant remember my looping stuff !

Dim strSC, strCDRom, strGLS
strSC = Trim(Request.Form("shortform catalogue"))
strCDROM = Trim(Request.Form("catalogue on CD Rom"))
strGLS = Trim(Request.Form("Guard Locking systems"))
If strSC = "" Then
strMain = strMain
Else
strMain = strMain & "Shortform catalogue: " & strSC &vbcrlf
End If
If strCDROM = "" Then
strMain = strMain
Else
strMain = strMain & "catalogue on CD Rom " & strCDROM &vbcrlf
End If

& there are 19 of these checkboxes
thanks

Originally Posted by tonya

Hi (first time actually posted ASP query) have left my dev folder & books at home & am away. working with friend who wants me to loop through some checkboxes & extract their name & value. actually i want an if statement that says if they are empty write nothing & if they arent then extract name & value of checkbox. i know how to do the if & extract the values etc but not the loop. at the moment i have really long code that looks at each checkbox tests if its empty & if it isnt then extracts the values I need.

can anyone help? this is what my code is starting to look like because i cant remember my looping stuff !

Dim strSC, strCDRom, strGLS
strSC = Trim(Request.Form("shortform catalogue"))
strCDROM = Trim(Request.Form("catalogue on CD Rom"))
strGLS = Trim(Request.Form("Guard Locking systems"))
If strSC = "" Then
strMain = strMain
Else
strMain = strMain & "Shortform catalogue: " & strSC &vbcrlf
End If
If strCDROM = "" Then
strMain = strMain
Else
strMain = strMain & "catalogue on CD Rom " & strCDROM &vbcrlf
End If

& there are 19 of these checkboxes
thanks

You must name your checkboxes with same name and loop like this:

For counter = 1 To Request.Form("checkboxname").Count
Response.Write "You selected " & Request.Form("interests")(counter) & "<br>"
Next