# ---------------------- Start Date/Time Calculation Code --------------------- /#
COPY FILE="/data/hourmod.txt" TO hourmod /COPY
users="/data/login/users"
poll="/data/poll/poll"
answer="/data/poll/answer"
refer.site="webster"
code.dbdate='
a=slashdate
b=locate(a,"/")
c=middle(a,1,b-1)
a=middle(a,b+1,length(a))
b=locate(a,"/")
d=middle(a,1,b-1)
e=middle(a,b+1,length(a))
dbdate=concat(concat(e,c),d)
'
code.slashdate='
slashdate=concat(middle(dbdate,5,6),"/")+middle(dbdate,7,8)+"/"+middle(dbdate,1,4)
'
slashdate=getdate(addhours(now,"-8"),"normal")
today_slashdate=slashdate
$code.dbdate
today_dbdate=dbdate
presults=dbget(poll,"poll.date="+today_dbdate,1)
IF poll.answer1="ERROR" OR poll.answer1="" THEN
presults=dbget(poll,"poll.date=1",1)
usethisdate="STATIC"
/IF
# ---------------------- Start Movie Selection Code --------------------- /#
moviedb="/data/movies/movies"
movie.movies=DBSEARCH(moviedb,"","1",999999)
movie.movies=SORTCOL(movie.movies,3)
# ---------------------- Start Side Navigation Code ----------------------- /#
EXPAND FILE = "/data/login/include.html" /EXPAND
EXPAND FILE = "/data/listings/include.html" /EXPAND
EXPAND FILE = "/data/listings/pulldowns.html" /EXPAND
EXPAND FILE = "/data/employment/include.html" /EXPAND
COPY FILE="/data/listings/siccodes.txt" TS="," TO siccodes /COPY
COPY FILE="/data/listings/gensiccodes.txt" TS="," TO gensiccodes /COPY
COPY FILE="/data/listings/catcodes.txt" TS="," TO catcodes /COPY
COPY FILE="/data/listings/titlecodes.txt" TS="," TO titlecodes /COPY
COPY FILE="/local_shared/yellowpages-cgi.txt" TO index.sitenav /COPY
COPY FILE="/local_shared/inside.shtml" TO index.inside /COPY
index.inside=REPLACEALL(index.inside,'HREF="','EXITHREF="')
index.inside=REPLACEALL(index.inside,'',refer.site)
COPY FILE="/local_shared/bottom_nav.shtml" TO d.bottomnav /COPY
d.bottomnav=REPLACEALL(d.bottomnav,'HREF="','EXITHREF="')
d.bottomnav=REPLACEALL(d.bottomnav,'',refer.site)
# ------------------------ Set Visit Variables Code ---------------------- /#
IF home.firsttime = "ERROR"
DO
home.firsttime = ""
users.firstname = "First Name"
users.lastname = "Last Name"
users.zipcode = "Zip Code"
users.email = "e-mail Address"
# search.type = "Keyword" /#
/IF
menu.level = 1
menu.title = "Home"
menu.table[1,menu.level]=page
menu.table[2,menu.level]=menu.title
menu.table[3,menu.level]=menu.level
d.pagenav=""
>>
<<
# ------------------------ SET SYSTEM COOKIE ------------------------------ /#
EXPAND FILE="/include.html" /EXPAND
sys.expdate=COOKIETIME(ADDDAYS(ADDHOURS(now,hourmod),90))
$sys.putcookie
# ------------------------- END COOKIE SET --------------------------------- /#
>>
UncleWebster.com - Alaska's Complete Community Resource!
Free WebsterMail
Other UncleWebsters
Welcome to Alaska's Complete Community Resource!
<<
COPY FILE="/data/rotation/movies1.txt" TS="," TO movies.temp /COPY
COPY FILE="/data/rotation/movie_count.txt" TO movie.count /COPY
IF movie.count>=ROWS(movies.temp)
DO
movie.count = 1
ELSE
movie.count = movie.count + 1
/IF
COPY movie.count TO FILE="/data/rotation/movie_count.txt" /COPY
>>
WebsterJobs
Sales Professional
Do you love working with people and working in a fun and exciting environment?
The Hotel Captain Cook is looking for outgoing individuals to fill this great
position.
Don't miss this opportunity!
Company: Captain Cook Hotel
Address: 939 W 5th Avenue, Anchorage, AK 99501-4439
Phone: (907) 343-2277
For more information
or to apply now,
Click Here!
Webster Weather
<>
<> <>°
Anchorage
Conditions:
Barometer <>
Humidity <>%
Wind <>
<>
Fairbanks
Conditions:
Barometer <>
Humidity <>%
Wind <>
<> <>°
Local News
<<
newspage=netweb("fairbanks.unclewebster.com/local_shared/newsadmin/news.cgi",999999,"60","get","","")
newspage = replaceall(newspage,"HREF=","EXITHREF=")
DISPLAY newspage /DISPLAY
>>
Virtual Tours
<<
COPY FILE="/data/rotation/tours1.txt" TS="," TO tours.temp /COPY
COPY FILE="/data/rotation/tour_count.txt" TO tour.count /COPY
IF tour.count>=ROWS(tours.temp)
DO
tour.count = 1
ELSE
tour.count = tour.count + 1
/IF
COPY tour.count TO FILE="/data/rotation/tour_count.txt" /COPY
>>
<>
<>(More)
Take Another Tour!
Alaska Sounds
KOOL - 103.9 Good Time Oldies
KXLR - Classic Rock
KFAR - 660 AM
KWLF - 98.1 Feel the Music!
<< OVERLAY poller
users.firstname=proper(users.firstname)
users.lastname=proper(users.lastname)
IF usethisdate="STATIC" THEN
answer.date=1
ELSE
answer.date=today_dbdate
/IF
answer.firstname=users.firstname
answer.email=users.email
answer.1=0
answer.2=0
answer.3=0
answer.4=0
answer.5=0
if answer_no=1 then answer.1=1
elif answer_no=2 then answer.2=1
elif answer_no=3 then answer.3=1
elif answer_no=4 then answer.4=1
elif answer_no=5 then answer.5=1
/if
answeradd1=dbadd(answer)
answeradd2=dbindex(answer,1000)
if answer_no=1 then polled="TRUE"
elif answer_no=2 then polled="TRUE"
elif answer_no=3 then polled="TRUE"
elif answer_no=4 then polled="TRUE"
elif answer_no=5 then polled="TRUE"
else polled="FALSE"
/if
goto "/apps/poll/poll.shtml"
>>
< ""
DO
IF employ.search.type="Opportunities"
DO
job.listfile = "/data/employment/jobs"
searchjobs.sstring = 'Jobs.JobCat="' + Search.JobCat + '" AND Jobs.Active > "' + today_dbdate + '"'
jobsstatus=DBSTATUS(job.listfile)
searchsize=jobsstatus[2,1]
employ.jobresults=DBSEARCH(job.listfile,searchjobs.sstring,1,searchsize)
employ.jobresults=SORTCOL(employ.jobresults,4)
temp.list.jobresults = employ.jobresults
IF employ.jobresults <> ""
DO
IF ROWS(employ.jobresults)>1
DO
employ.jobresults=GETCOL(employ.jobresults,1)
employ.jobresults=FILLINDEXCOL(employ.jobresults,2)
GOTO "/apps/employment/listings.html"
ELSE
menu.level = 2
menu.title = "Employment Listings"
menu.table[1,menu.level]="/apps/employment/listings.html"
menu.table[2,menu.level]=menu.title
menu.table[3,menu.level]=menu.level
d.pagenav=""
for name=ii value=1 to (menu.level-1) do
d.pagenav=d.pagenav+" "+menu.table[2,ii]+" >"
/for
d.pagenav=d.pagenav+" "+menu.table[2,menu.level]+" "
job.num = employ.jobresults[3,1]
employ.jobresults=GETCOL(employ.jobresults,1)
employ.jobresults=FILLINDEXCOL(employ.jobresults,2)
menu.level = 3
job.rownumber = 1
EXITGOTO "http://alaska.unclewebster.com/cgi-bin/webster/start/apps/employment/detail.html"
/IF
ELSE
display.message = f.arial.2 + "Sorry. No jobs found in that category "
/IF
/IF
IF employ.search.type="Resumes"
DO
job.listfile = "/data/employment/jobs"
searchjobs.sstring = 'Res.JobCat="' + Search.ResCat + '" AND Res.Active > "' + today_dbdate + '"'
jobsstatus=DBSTATUS(job.listfile)
searchsize=jobsstatus[2,1]
employ.jobresults=DBSEARCH(job.listfile,searchjobs.sstring,1,searchsize)
employ.jobresults=SORTCOL(employ.jobresults,4)
IF employ.jobresults <> ""
DO
IF ROWS(employ.jobresults)>1
DO
employ.jobresults=GETCOL(employ.jobresults,1)
employ.jobresults=FILLINDEXCOL(employ.jobresults,2)
menu.level = 3
EXITGOTO "http://alaska.unclewebster.com/cgi-bin/webster/start/apps/employment/listings.html"
ELSE
job.rownumber = 1
employ.jobresults=GETCOL(employ.jobresults,1)
employ.jobresults=FILLINDEXCOL(employ.jobresults,2)
menu.level = 3
EXITGOTO "http://alaska.unclewebster.com/cgi-bin/webster/start/apps/employment/detail.html"
/IF
ELSE
display.message = f.arial.2 + "Sorry. No jobs found in that category "
/IF
/IF
/IF
employ.set = "No"
EXITGOTO "http://alaska.unclewebster.com/cgi-bin/webster/start/apps/employment/listings.html"
>>
<>
<>
<>