dcsimg

ASP Developing for Academic and Business Processes Page 6


Download the authoritative guide: Data Center Guide: Optimizing Your Data Center Strategy

Download the authoritative guide: Cloud Computing: Using the Cloud for Competitive Advantage

T.Mallard
Once the page is full, the meta tag data is ready to save, this opens the file and writes the string which was added to during page construction to the file.



  set conn3 = server.createobject("Scripting.FileSystemObject")
  if not isobject(conn1) then
    errs = "unable to create object"
  else errs = "file object created"
    end if
set txtOut = conn3.OpenTextFile(metasOut, 8, True)
txtOut.writeline(metatopics)
txtOut.close
metatopics = ""

Then a check for end-of-file before a normal finish to the page with the Next-Previous buttons...

if not rsInput.EOF then
output.writeline("</td></tr></table>")
if series > 1 then
output.writeline("<p><center><table cellpadding=4 cellspacing=2 width='10%'><tr><td align=center bgcolor=silver><a href='" & htmlPrev & "'><font face='Comic Sans MS' size='4'>Previous</font></a></td><td align=center bgcolor=silver><a href='"& htmlNext & "'><font face='Comic Sans MS' size='4'>Next</font></a></td>")
else
output.writeline("<p><center><table cellpadding=4 cellspacing=2 width='10%'><tr><td align=center bgcolor=silver><a href='" & htmlNext & "'><font face='Comic Sans MS' size='4'>Next</font></a></td>")
end if
output.writeline("</tr></table></center><p>")
output.writeline("<font size=1>Dynamic Content Resources by<br><a href='http://www.mallard-design.com/'>Mallard Design Company</a></font>")
output.writeline("</body>")
output.writeline("</html>")
output.close
end if
wend

This article was originally published on Jan 25, 1999

Thanks for your registration, follow us on our social networks to keep up-to-date