<% 'declare some variables DIM CRLF, sURL Dim intCatID 'sets the page name sURL = Request.ServerVariables("SCRIPT_NAME") 'sets a line break CRLF = Chr(13) & Chr(10) 'start the html for the table response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

Anatomy Section:	" response.write "" response.write "All" 'create SQL SQL = "Select * From tblAnatomy" 'set record set Set RS = objConn.Execute(SQL) RS.MoveFirst WHILE NOT RS.EOF response.write "" & RS("Anatomy_Name") & "" RS.MOVENEXT wend response.write "" response.write "
" response.write "" response.write "
" response.write " " response.write "" response.write "

" SET RS = NOTHING %>