<% If Request.QueryString ("DoRecent") <> "OFF" Then Response.Write ("" & vbCrLf) End If Sub writeImageList Dim n If Request.QueryString ("DoRecent") = "OFF" Then n = Request.QueryString ("Singles").Count For i = 1 To n Response.Write ("" & vbCrLf) Response.Write ("") Next Else Response.Write ("") End If End Sub %> <% writeImageList %>