T
Tim Pascoe
I am using ASP to dynamically generate a series of forms. When the
page is loaded, everything appears to be correct, except that the
first form generated fails with a "FormName is Null or not an Object"
error. Each subsuquent form created by the code after that works
perfectly. Why is it that the first form, generated with exactly the
same block of code, fails?
Code Block: See ****** for form generation
Function DisplayExisting()
if not (rsAssay.BOF) then
rsAssay.MoveFirst
strHTML = "</TR>"
strHTML= strHTML + "<TR align='left' valign='middle'>"
strHTML= strHTML + " <TD colspan='8' height='1'
bgcolor='#990000'><IMG src='../../Images/spacer.gif'></TD>"
strHTML= strHTML + "</TR>"
strHTML= strHTML + "<TR valign='middle' align='left'>"
strHTML= strHTML + " <TD height='30' align='center'
class='columntext'>Current Values</TD>"
'Build Row for Values
Count = 1
do while Not rsAssay.EOF
if rsAssay.Fields.Item("replicate").Value = Count then
strHTML= strHTML + " <TD height='30' align='center'
class='columndata'>" & rsAssay.Fields.Item("count").Value & "</TD>"
rsAssay.movenext
else
strHTML= strHTML + " <TD height='30' align='center'
class='columndata'> </TD>"
end if
Count = Count + 1
Loop
strHTML= strHTML + "</TR>"
strHTML= strHTML + "<TR valign='middle' align='left'>"
strHTML= strHTML + " <TD align='center'
class='columntext'>Remove Replicate</TD>"
********************
'Build Row for Deletion
rsAssay.MoveFirst
Count = 1
do while Not rsAssay.EOF
if rsAssay.Fields.Item("replicate").Value = Count then
strHTML= strHTML + " <FORM name='frmDel" & Count & "'
action='birc_data_site_bioassay_1.asp' method='Post'>"
strHTML= strHTML + " <TD align='center' class='columndata'><A
HREF=Javascript:window.document.frmDel" & Count & ".submit();><IMG
src='../../Images/x.gif' border='0'></A>"
strHTML= strHTML + " <INPUT name='lstAssay' type='hidden'
value='" & request("lstAssay") & "'>"
strHTML= strHTML + " <INPUT name='intRep' type='hidden'
value='" & Count & "'>"
strHTML= strHTML + " </TD>"
strHTML= strHTML + " </FORM>"
rsAssay.movenext
else
strHTML= strHTML + " <TD align='center'
class='columndata'> </TD>"
end if
Count = Count + 1
Loop
strHTML= strHTML + "</TR>"
strHTML= strHTML + "<TR align='left' valign='middle'>"
strHTML= strHTML + " <TD colspan='8' height='1'
bgcolor='#0000FF'><IMG src='../../Images/spacer.gif'></TD>"
strHTML= strHTML + "</TR>"
DisplayExisting = strHTML
end if
End Function
page is loaded, everything appears to be correct, except that the
first form generated fails with a "FormName is Null or not an Object"
error. Each subsuquent form created by the code after that works
perfectly. Why is it that the first form, generated with exactly the
same block of code, fails?
Code Block: See ****** for form generation
Function DisplayExisting()
if not (rsAssay.BOF) then
rsAssay.MoveFirst
strHTML = "</TR>"
strHTML= strHTML + "<TR align='left' valign='middle'>"
strHTML= strHTML + " <TD colspan='8' height='1'
bgcolor='#990000'><IMG src='../../Images/spacer.gif'></TD>"
strHTML= strHTML + "</TR>"
strHTML= strHTML + "<TR valign='middle' align='left'>"
strHTML= strHTML + " <TD height='30' align='center'
class='columntext'>Current Values</TD>"
'Build Row for Values
Count = 1
do while Not rsAssay.EOF
if rsAssay.Fields.Item("replicate").Value = Count then
strHTML= strHTML + " <TD height='30' align='center'
class='columndata'>" & rsAssay.Fields.Item("count").Value & "</TD>"
rsAssay.movenext
else
strHTML= strHTML + " <TD height='30' align='center'
class='columndata'> </TD>"
end if
Count = Count + 1
Loop
strHTML= strHTML + "</TR>"
strHTML= strHTML + "<TR valign='middle' align='left'>"
strHTML= strHTML + " <TD align='center'
class='columntext'>Remove Replicate</TD>"
********************
'Build Row for Deletion
rsAssay.MoveFirst
Count = 1
do while Not rsAssay.EOF
if rsAssay.Fields.Item("replicate").Value = Count then
strHTML= strHTML + " <FORM name='frmDel" & Count & "'
action='birc_data_site_bioassay_1.asp' method='Post'>"
strHTML= strHTML + " <TD align='center' class='columndata'><A
HREF=Javascript:window.document.frmDel" & Count & ".submit();><IMG
src='../../Images/x.gif' border='0'></A>"
strHTML= strHTML + " <INPUT name='lstAssay' type='hidden'
value='" & request("lstAssay") & "'>"
strHTML= strHTML + " <INPUT name='intRep' type='hidden'
value='" & Count & "'>"
strHTML= strHTML + " </TD>"
strHTML= strHTML + " </FORM>"
rsAssay.movenext
else
strHTML= strHTML + " <TD align='center'
class='columndata'> </TD>"
end if
Count = Count + 1
Loop
strHTML= strHTML + "</TR>"
strHTML= strHTML + "<TR align='left' valign='middle'>"
strHTML= strHTML + " <TD colspan='8' height='1'
bgcolor='#0000FF'><IMG src='../../Images/spacer.gif'></TD>"
strHTML= strHTML + "</TR>"
DisplayExisting = strHTML
end if
End Function