Chip 2001 October

home *** CD-ROM | disk | FTP | other *** search

/ Chip 2001 October / Chip_2001-10_cd1.bin / sharewar / gdidbpro / data1.cab / Example_Files / projects / default / script1.scp < prev next >

Wrap

Text File | 2000-05-26 | 7.8 KB | 304 lines

########################################################## # GDIdb demo script (c) 1997 Global Data Industries # Datasource=workweb.mdb (Access database) # # In this advanced example, the script creates a top-level # page from the contents of the categories table of the # database, with links to a series of pages listing the # headings of the jobs stored under each category. # Each of the job headings are hyperlinked to a html # document containing the actual job description. ########################################################## ########################################################## # Print the information screen &cls &print("WorkWeb Demo Script") &print("---------------------------------") ########################################################## # Name the ODBC datasource to be used. &datasource("Driver={Microsoft Access Driver (*.mdb)};DBQ=workweb.mdb") ########################################################## # this variable will be used when generating forward/backward # recordset links &defvar(?var1?) ########################################################## # Generate the top-level HTML file. &html("index.html") { <HTML> <HEAD> <TITLE>Work Web</TITLE> </HEAD> <BODY BACKGROUND="wwbg1.gif" LINK=BLACK VLINK=BLACK ALINK=WHITE> <IMG SRC="ww1.gif"> <TABLE CELLPADDING=10 CELLSPACING=10 BORDER=0 WIDTH="100%"> <TR> <TD VALIGN=TOP> Select a Job Category: # this SQL statement retrieves all of the jobs in the database. # the only reason it does this is so that the ?recordsetsize? # variable will contain the total number of jobs in the database. &sql("SELECT * FROM Jobs") { The Job database currently contains ?recordsetsize? vacancies. (Updated from database on ?gdidbdate? at ?gdidbtime?) } <UL> # loop through each of the categories, creating category # pages (by calling subroutine "jobcategory") and # links to them from this page. &getdata("SELECT * FROM Categories") { &print("Generating category ?JobCategory?") &sql("SELECT * FROM Jobs WHERE (((Jobs.JCatKey)=?JobcatKey?))") { # do the hyperlink to the job category page (?recordsetsize?) <A HREF="cat?rownumber[-1]?.html" onMouseover="window.status='View Jobs in category ?JobCategory[-1]?';return true">?JobCategory[-1]?</A> # followed by the file to link to # (created by subroutine jobcategory) &jobcategory } } </UL> </TD> <TD WIDTH="45%" VALIGN=TOP> This Site demonstrates the use of GDI's Database publishing software. A relational database consisting of jobs grouped by job category is merged with the web site HTML and passed to the web server automatically. </TD> </TR> </TABLE> <TABLE CELLPADDING=10 CELLSPACING=10 BORDER=0 WIDTH="100%"> <TR> <TD> System Bullet points: <UL> <LI> Totally automated publishing of database and spreadsheet data using a dial-up Internet connection. <LI> The database does not need to be stored on the web server. <LI> No specialist knowledge is required by web site maintainer. <LI> Zero administration overhead- Just set the times/days when you want to update your web site from your database and forget it! </UL> </TD> </TR> </TABLE> <CENTER> Web site design by: <A HREF="http://www.gd-ind.com/">GLOBAL DATA INDUSTRIES</A> </CENTER> </BODY> </HTML> } ########################################################## # print the finishing message &msgbox("Finished!",iconinformation) &cls &print("Demo website HTML generation complete. Click the Preview HTML button to see the results.") &print # END OF SCRIPT ########################################################## # SUBROUTINES ########################################################## # subroutine jobcategory generates the category pages # that are linked to from the top-level page &defsub("jobcategory") { # the html file name for each of the job categories is generated # by combining the word "cat" with the row number of the job category in # the database. since the last &sql function called was to fetch data # from the jobs table, we put a [-1] at the end of the variable name # ?rownumber? to indicate that it belongs to the previous &sql function's # returned data. &html("cat?rownumber[-1]?.html") { <HTML> <HEAD> <TITLE>Jobs List</TITLE> </HEAD> <BODY BACKGROUND="wwbg1.gif" LINK=BLACK VLINK=BLACK> <TABLE WIDTH="80%" CELLSPACING=10 BORDER=0> <TR> <TD><IMG SRC="wwbullet1.gif"></TD> <TD> ?JobCategory[-1]? </TD> </TR> </TABLE> <UL><UL> # if there are jobs under this category, loop through each # record creating a job description page (handled by # subroutine "jobcontent") and a link from this page &foreachrow { # generate the link to the job content file <LI><A HREF="jfile?rownumber[-1]?n?rownumber?.html" onMouseover="window.status='View Job (?JobTitle?) details.';return true">?JobTitle?</A> # followed by the file to link to # (created by subroutine jobcontent) &jobcontent } # the code between the characters following the &else() function # will be executed if the &getdata() function failed to find any data. &else { Sorry, there are no jobs under this category. } </UL> <A HREF="index.html">\<-Home</A> </UL> </BODY> </HTML> } } ########################################################## # subroutine jobcontent generates the job content pages # that are linked to from the job category pages &defsub("jobcontent") { # the filename for the job content file is generated by combining # the rownumber of the job category (?rownumber[-1]?) with the # rownumber of the job. # note the 'n' placed between the two rownumber variables, this is # required to ensure a unique filename for the page. (think about it... #;-) ) &html("jfile?rownumber[-1]?n?rownumber?.html") { <HTML> <HEAD> <TITLE>Job Description</TITLE> </HEAD> <BODY BACKGROUND="wwbg1.gif" LINK="\#303030" VLINK="\#303030"> <TABLE WIDTH="80%" CELLSPACING=10 BORDER=0> <TR> <TD><IMG SRC="wwbullet1.gif"></TD> <TD> ?JobTitle? </TD> </TR> </TABLE> <CENTER> <TABLE WIDTH="90%" CELLSPACING=10 BORDER=0> <TR> <TD> Job ref: ?JobNo? <TT> ?JobDesc? </TT> <TABLE> <TR> <TD> &if(?rownumber?>1) { &assign(?var1?,?rownumber?-1) Prev. <A HREF="jfile?rownumber[-1]?n?var1?.html"><IMG SRC="back.gif" BORDER="0"></A> } </TD> <TD> &if(?rownumber?<?recordsetsize?) { &assign(?var1?,?rownumber?+1) Next <A HREF="jfile?rownumber[-1]?n?var1?.html"><IMG SRC="forward.gif" BORDER="0"></A> } </TD> </TR> </TABLE> <A HREF="index.html">\<-Home</A> <UL> <A HREF="cat?rownumber[-1]?.html">\<-?JobCategory[-1]?</A> </UL> </TD> </TR> </TABLE> </CENTER> </BODY> </HTML> } }