<%@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 &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf &_
"
" & vbcrlf
' if section="jobsearch" then
' getGlobalNav = getGlobalNav & "
<%
dim conn
dim rs
if TRIM(keywords) = "" then
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open Session("PrimaryDSN")
jobsSQL = "SELECT * FROM jobs " &_
" WHERE job_skey > 1 " &_
" AND job_open = true " &_
" ORDER BY job_postdate DESC"
'response.write (jobsSQL&"
")
rs.Open jobsSQL,conn, 1, 2
jobcount=0
WHILE NOT rs.EOF
jobcount = jobcount + 1
finaltitle = to_rtf(rs(2))
'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 a job from the list of currently available positions below to view the job details.
c.gif" align="middle" width="14" height="14"> Contract d.gif" align="middle" width="14" height="14"> Direct Hire
<% if rs(3) = "Contract" then %>c.gif" align="middle" width="14" height="14"><% else %>d.gif" align="middle" width="14" height="14"><% end if %>
<%= rs(6) %> <%= rs(7) %>
<%
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 contact.asp">contact a recruiter for new jobs not yet posted in our online database.
<%
end if
else
keywordArray=SPLIT(keywords,",")
for z=0 to UBOUND(keywordArray)
keywordArray(z) = UCASE(TRIM(keywordArray(z)))
next
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open Session("PrimaryDSN")
jobsSQL = "SELECT * FROM jobs " &_
" WHERE job_skey > 1 " &_
" AND job_open = true " &_
" AND (UCASE(job_desc) LIKE '%" & keywordArray(0) & "%'" &_
" OR UCASE(job_title) LIKE '%" & keywordArray(0) & "%'"
for z=1 to (UBOUND(keywordArray)-1)
jobsSQL = jobsSQL & " OR UCASE(job_desc) LIKE '%" & keywordArray(z) & "%'"
jobsSQL = jobsSQL & " OR UCASE(job_title) LIKE '%" & keywordArray(z) & "%'"
next
jobsSQL = jobsSQL & " OR UCASE(job_desc) LIKE '%" & keywordArray(UBOUND(keywordArray)) & "%'" &_
" OR UCASE(job_title) LIKE '%" & keywordArray(UBOUND(keywordArray)) & "%')" &_
" ORDER BY job_postdate DESC"
'response.write (jobsSQL&"
")
rs.Open jobsSQL,conn, 1, 2
jobcount=0
WHILE NOT rs.EOF
jobcount = jobcount + 1
finaltitle = to_rtf(rs(2))
'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 a job from the list of currently available positions below to view the job details.
c.gif" align="middle" width="14" height="14"> Contract d.gif" align="middle" width="14" height="14"> Direct Hire
<% if rs(3) = "Contract" then %>c.gif" align="middle" width="14" height="14"><% else %>d.gif" align="middle" width="14" height="14"><% end if %>
<%= rs(6) %>, <%= rs(7) %>
<%
end if
rs.MOVENEXT
WEND
rs.Close
conn.Close
%>
<%
if jobcount = 0 then
%>
No jobs found matching your search criteria.
<%
response.redirect Session("SiteRootPath")&"career_positions.asp?f=n"
end if
end if
%>
