%@ LANGUAGE = VBScript %> <% Option Explicit %> <% 'On Error Resume Next Dim numrows, numcols, i, j numrows=Request.QueryString("numrows") if numrows = 0 then 'we need a blank entry... numrows = 1 end if if (Request.QueryString("cols") <> "") then numcols=(Request.QueryString("cols").count) else numcols=0 end if %>