<%@LANGUAGE="VBSCRIPT" %> <% '///////////////////////////////////////////////////// ' site_func.asp ' This file contains common functions '///////////////////////////////////////////////////// '----------------------------------------------------- ' Global Variables '----------------------------------------------------- dim page_title, css_file, js_file, conn, rs, dsn_name dsn_name = "access_aucjobs.dsn" Session("PrimaryDSN")="dsn=access_aucjobs" Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open Session("PrimaryDSN") SQL = "SELECT * FROM sitedata" rs.Open SQL,conn, 1, 2 WHILE NOT rs.EOF SELECT CASE rs(0) CASE 1 Session("CompanyName") = rs(2) CASE 2 Session("CompanyShortName") = rs(2) CASE 3 Session("SiteRootPath") = rs(2) CASE 4 Session("CssFileName") = Session("SiteRootPath") & rs(2) CASE 5 Session("JavaScriptFileName") = Session("SiteRootPath") & rs(2) CASE 6 Session("ImagePath") = Session("SiteRootPath") & rs(2) CASE 7 Session("SpacerImage") = Session("ImagePath") & rs(2) CASE 8 Session("AdminUserName")= rs(2) CASE 9 Session("AdminPath") = Session("SiteRootPath") & rs(2) CASE 12 Session("ShowJobSearchCount") = INT(rs(2)) CASE 13 Session("Tab") = "" if INT(rs(2)) < 1 then REM value is 0 do nothing. else for i = 0 to INT(rs(2)) Session("Tab") = Session("Tab") & " " next end if CASE 14 Session("SubmitSubject") = rs(2) CASE 15 Session("FlashPath") = Session("SiteRootPath") & rs(2) CASE 16 Session("SubmitEmail") = rs(2) CASE 17 Session("EmployeesOnlyPath") = Session("SiteRootPath") & rs(2) CASE 19 Session("EmployeeDocumentPath") = Session("SiteRootPath") & rs(2) CASE 20 Session("SubmitBody") = rs(2) END SELECT rs.MOVENEXT WEND rs.Close conn.Close sub sf_SendMail(strFrom,strTo,strSubject,strBody) ' Uses CDO.NewMail object to send mail objMail.From = strFrom objMail.To = strTo objMail.Subject = strSubject objMail.HTMLBody = strBody objMail.Send Set objMail = Nothing end sub dim gb_aMonth(12) gb_aMonth(1)="Jan" gb_aMonth(2)="Feb" gb_aMonth(3)="Mar" gb_aMonth(4)="Apr" gb_aMonth(5)="May" gb_aMonth(6)="Jun" gb_aMonth(7)="Jul" gb_aMonth(8)="Aug" gb_aMonth(9)="Sep" gb_aMonth(10)="Oct" gb_aMonth(11)="Nov" gb_aMonth(12)="Dec" function sf_show_datetime(dt) ' show date and time dim s s=day(dt) & "." & gb_aMonth(month(dt)) & "." & year(dt) & " " dim sm sm=":" & minute(dt) if len(sm)=2 then sm=":0" & minute(dt) s=s & hour(dt) & sm gb_show_datetime=s end function sub sf_write_log(int_event_skey, int_page_skey) ' Writes a new record to the sd_logs table. dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "dsn=aucjobs" LOG_INSERT="INSERT INTO sd_logs (date_time, ip_address, event_skey, page_skey) VALUES ('"& now() &"','"& Request.ServerVariables("REMOTE_HOST") &"','" & int_event_skey &"','"& int_page_skey &"')" response.write (LOG_INSERT) conn.Execute (LOG_INSERT) conn.Close end sub function get_page_parameter(iPage_skey, iParameter_skey) ' Returns parameter value. dim conn dim rs Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "dsn=site_master" SQL="select parameter_value from sd_page_parameters where page_skey="& iPage_skey &" and parameter_skey="& iParameter_skey 'response.write (SQL) rs.Open SQL,conn, 1, 2 WHILE NOT rs.EOF parameter_value = rs(0) rs.MOVENEXT WEND rs.Close conn.Close get_page_parameter = parameter_value end function function get_homenews(iPage_skey, iParameter_skey) ' Returns parameter value. dim conn dim rs Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "dsn=site_master" SQL="select parameter_value from sd_page_parameters where page_skey="& iPage_skey &" and parameter_skey="& iParameter_skey 'response.write (SQL) rs.Open SQL,conn, 1, 2 WHILE NOT rs.EOF parameter_value = rs(0) rs.MOVENEXT WEND rs.Close conn.Close get_page_parameter = parameter_value end function function sf_encode_html(str) ' like Server.HTMLEncode(...) str=replace(str,"&","&") str=replace(str,"<","<") str=replace(str,">",">") str=replace(str,"""",""") sf_encode_html=str end function function sf_SQLDATE(d) ' make "#year/month/day#" from date dim strYear,strMonth,strDay strYear = CStr(Year(d)) strMonth = CStr(Month(d)) if Month(d) < 10 then strMonth = "0" & strMonth end if strDay = CStr(Day(d)) if Day(d) < 10 then strDay = "0" & strDay end if sf_SQLDATE="#" & strYear & "/" & strMonth & "/" & strDay & "#" end function function gb_GetUrl dim url url="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SERVER_PORT") & Request.ServerVariables("URL") gb_GetUrl=url end function function to_rtf(s_string) if NOT IsNull(s_string) then to_rtf = Replace(s_string, ""","""" ) ' to_rtf = Replace(to_rtf , "<", "<") ' to_rtf = Replace(to_rtf , ">", ">") to_rtf = Replace(to_rtf, "", "") to_rtf = Replace(to_rtf, "", "") to_rtf = Replace(to_rtf , "
",vbcrlf) ' to_rtf = Replace(to_rtf, "&", "&") to_rtf = Replace(to_rtf , "’", "'") to_rtf = Replace(to_rtf , "      ", vbTab) end if end function function to_html(s_string) if NOT IsNull(s_string) then to_html = Replace(s_string, """", """) ' to_html = Replace(to_html, "<", "<") ' to_html = Replace(to_html, ">", ">") to_html = Replace(to_html, vbcrlf, "
") to_html = Replace(to_html, "", "") to_html = Replace(to_html, "", "") ' to_html = Replace(to_html, "&", "&") to_html = Replace(to_html, "'", "’") to_html = Replace(to_html, vbTab, "      ") end if end function function admin_login_test() if Session("LoggedIn")="false" then response.redirect Session("AdminPath") & "default.asp" elseif (Session("LoggedIn")="true") and (Session("UserName")=Session("AdminUserName")) then 'User has already logged in, proceed. exit function else Session("LoggedIn")="false" response.redirect Session("AdminPath") & "default.asp" end if end function function getGlobalNav(section) getGlobalNav = "" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf ' else getGlobalNav = getGlobalNav & " " & vbcrlf ' end if getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf 'else 'getGlobalNav = getGlobalNav & " " & vbcrlf 'end if 'getGlobalNav = getGlobalNav & " " & vbcrlf &_ ' " " & vbcrlf 'else getGlobalNav = getGlobalNav & " " & vbcrlf 'end if getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf 'else getGlobalNav = getGlobalNav & " " & vbcrlf 'end if getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf 'else getGlobalNav = getGlobalNav & " " & vbcrlf 'end if getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf case "careercorner" getGlobalNav = getGlobalNav & " " & vbcrlf case "clientservices" getGlobalNav = getGlobalNav & " " & vbcrlf case "consultant" getGlobalNav = getGlobalNav & " " & vbcrlf case "contact" getGlobalNav = getGlobalNav & " " & vbcrlf case "home" getGlobalNav = getGlobalNav & " " & vbcrlf case "jobsearch" getGlobalNav = getGlobalNav & " " & vbcrlf case "news" getGlobalNav = getGlobalNav & " " & vbcrlf case "newsletter" getGlobalNav = getGlobalNav & " " & vbcrlf case "privacy" getGlobalNav = getGlobalNav & " " & vbcrlf case "siteadmin" getGlobalNav = getGlobalNav & " " & vbcrlf case "submit" getGlobalNav = getGlobalNav & " " & vbcrlf end select getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf ' if section="jobsearch" then ' getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf 'if section="submit" then ' getGlobalNav = getGlobalNav & " " & vbcrlf &_ ' " " & vbcrlf 'if section="careercorner" then ' getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf 'if section="clientservices" then ' getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf 'if section="aboutthompson" then ' getGlobalNav = getGlobalNav & " " & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf select case (section) case "about" getGlobalNav = getGlobalNav & " " & vbcrlf &_ "
" & vbcrlf &_ "
" end function function getGlobalFooter(section) if section = "home" then ' Homepage footer only uses the a href line. else getGlobalFooter = "" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " if section = "home" then ' Homepage footer only uses the a href line. else getGlobalFooter = getGlobalFooter & vbcrlf & " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf &_ "


" & vbcrlf end if getGlobalFooter = getGlobalFooter & "Submit Resume | Contact Us | Privacy Statement | Home | Employees
" & vbcrlf &_ "
" & vbcrlf &_ "
" end if end function function getAdminSecNav(section) getAdminSecNav = "" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
Homepage Manager
Employees Only Manager
Job Manager
News Manager
Newsletter Manager
Site Manager
Log Out
" end function function getEmployeeSecNav(section) getEmployeeSecNav = "" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
Employees Home
Benefits
Documents
Newsletters
 
" end function function getNavLayers() getNavLayers = "
" & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf &_ "
" & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
Resume Tips & Hints     
Interview Tips         
Open Positions        
Submit Resume         
Company Benefits         
Thompson Testimonials   
FAQ                              
" & vbcrlf &_ "
" & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
Staffing Solutions          
The Challenge          
The Guarantee           
The Team          
" & vbcrlf &_ "
" & vbcrlf &_ "
" & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ " " & vbcrlf &_ "
Company History     
Mission Statement     
Message from President  
News At Thompson     
Directions to Our Office     
Referral Bonus     
Contact Us     
" & vbcrlf &_ "
" end function %> <% ' set no cache Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" Response.Buffer = True noJobsFound = request("f") browser = Request.ServerVariables("HTTP_USER_AGENT") if InStr(browser, "MSIE") then isIE = true elseif InStr(browser, "4.7") then isNS = true elseif Instr(browser, "Gecko") AND Instr(browser, "5.0") then isN6 =true end if 'Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:0.9.7) Gecko/20011221 %> AUC Alumni.com
My Account     <% if Session("LoggedIn") = "TRUE" then %>Logout <% else %>Become a Member    Login <% end if %>  
Return to home
Home   |   News   |   Events   |   Career Center   |   Authors & Friends   |   Sponsors
Career Center
<% if Session("LoggedIn") = "TRUE" then %>
Welcome, ( Logout )
<% else %>
Become a Member

Login
<% end if %>
Welcome to the AUCAlumni Career Center. By popular demand we have developed the career center as a resource to assist in landing job opportunities with major corporations across North America!

This is a new member service and we are constantly enhancing and updating. If you do not find the job you are looking for, please check back.

<% dim conn dim rs Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "dsn=aucjobs" jobCountSQL ="SELECT job_skey FROM jobs WHERE job_skey > 1 AND job_open = true" jobSQL = "SELECT a.job_skey, a.contact_skey, a.job_title, a.job_type, a.job_desc, " &_ " a.job_code, a.job_city, a.job_state, a.job_open, a.job_postdate, " &_ " b.contact_phone, b.contact_fax, b.contact_email " &_ " FROM jobs a, jobcontacts b " &_ " WHERE a.job_skey ="&job_skey &_ " AND a.contact_skey = b.contact_skey" 'response.write (jobCountSQL&"

") rs.Open jobCountSQL,conn, 1, 2 jobcount=0 WHILE NOT rs.EOF jobcount = jobcount + 1 'finaltitle = to_rtf(rs(2)) 'finaljobdesc = to_rtf(rs(4)) 'response.write (rs(0)&","&rs(1)&","&rs(6)&"

") rs.MOVENEXT WEND rs.Close if jobcount <= Session("ShowJobSearchCount") then Set rs = Server.CreateObject("ADODB.Recordset") jobSQL = "SELECT a.job_skey, a.contact_skey, a.job_title, a.job_type, a.job_desc, " &_ " a.job_code, a.job_city, a.job_state, a.job_open, a.job_postdate, " &_ " b.contact_phone, b.contact_fax, b.contact_email " &_ " FROM jobs a, jobcontacts b " &_ " WHERE a.job_skey > 1" &_ " AND a.contact_skey = b.contact_skey " &_ " AND a.job_open = true " &_ "ORDER BY a.job_postdate" 'response.write (jobSQL&"

") rs.Open jobSQL,conn, 1, 2 jobcount = 0 WHILE NOT rs.EOF jobcount = jobcount + 1 finaltitle = to_rtf(rs(2)) finaljobdesc = to_rtf(rs(4)) 'response.write (rs(0)&","&rs(1)&","&rs(6)&"

") if (jobcount Mod 2) = 0 then strBGColor = "#eeeeee" else strBGColor = "#ffffff" end if if jobcount = 1 then %> Select from the listing of currently available positions below.

<% else %> <% end if rs.MOVENEXT WEND rs.close conn.close if jobcount=0 then %> There are no jobs in our job database at this time. Please check back as we continue to add new jobs. <% else %>
Posted Job Title Location
<%= rs(9) %>  <%= rs(2) %>  <%= rs(6) %> <%= rs(7) %>
<%= rs(9) %>  career_jobdetails.asp?jk=<%= rs(0) %>"><%= rs(2) %>  <%= rs(6) %> <%= rs(7) %>
<% end if elseif jobcount > Session("ShowJobSearchCount") then if noJobsFound = "n" then %> No jobs were found using the keywords you entered. You can click search without entering any keywords to view all jobs.

<% end if %>
Quick Search
Enter keywords below seperated by commas.You can click search without entering any keywords to view all jobs.

Example: HTML, Management, Sales
 Search
View All Available Jobs
<% end if %>





Employers! Post your jobs for FREE! Let us connect you with some of the top candidates Atlanta has to offer. Contact us for more information.
 
SITE SPONSORS
About Us  |  Contact Us  |  Advertise With Us  |  Advertiser Terms & Conditions  |  Privacy Policy
Powered by Predawn Visual Communications