ASP Developing for Academic and Business Processes Page 6

By ServerWatch Staff (Send Email)
Posted Jan 25, 1999


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



Comment and Contribute

Your name/nickname

Your email

(Maximum characters: 1200). You have characters left.


 

 


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