<% ' function.asp (03/06/01) ' This file is included to provide basic support for database ' connectivity in ASP. In addition it contains a few constants ' that might need to be changed for your installation. ' These two objects are declared for use with any ADODB object ' They hold the connection settings (objConn) and the recordset ' (objRS) that are returned (globally) when a SQL statement is executed. %> <% ' CONSTANTS AND GLOBAL VARIABLES Dim con, objRS Dim dsn dsn = "ewebeditpro2" 'old one before it was hard coded %> <% ''Session("ConnectionString") = "Provider=SQLOLEDB; Data Source=DBSERVER04\SERVER04; Initial Catalog=HR; User ID=postAd; Password=postAd" Session("ConnectionString") = "Provider=SQLOLEDB; Data Source=DBSERVER14; Initial Catalog=HR; User ID=postAd; Password=postAd" Function showBreaks(str) showBreaks = replace(str, chr(10), "
") End Function %> <% ' The DBConnect function has one parameter (SQL), and performs the ' work of connecting to, and querying the database. The results ' are in the named objects objRS ' Define ADO object, and attribue Data Source Name (DSN) to that object ' Alternatively you may use DSN-less connection, which maps the ' physical path for the database to the connection string Function DBConnect (SQL) Set con = Server.CreateObject("ADODB.Connection") con.ConnectionString=Session("ConnectionString") con.Open ' Create record set and execute SQL command Set objRS = Server.CreateObject("ADODB.RecordSet") objRS.Open SQL, con End Function %> <% Function DBConnectPage (SQL) Set con = Server.CreateObject("ADODB.Connection") con.ConnectionString=Session("ConnectionString") con.Open ' Create record set and execute SQL command Set objRS = Server.CreateObject("ADODB.RecordSet") objRS.cursorlocation=aduseclient objRS.cachesize=5 objRS.Open SQL, con objRS.movefirst objRS.pagesize=mypagesize maxpages=cint(objRS.pagecount) maxrecs=cint(objRS.pagesize) objRS.absolutepage=mypage howmanyrecs=0 howmanyfields=objRS.fields.count -1 End Function %> <% Function SQLFilter (Txt) 'The SQLFilter function makes any string SQL safe, by 'replacing single quotes with double quotes TXT = Replace(Txt, "'", "''") SQLFilter = TXT End Function %> <% Function revSQLFilter (Txt) 'The SQLFilter function makes any string SQL safe, by 'replacing single quotes with double quotes If Txt<>"" then TXT = Replace(Txt, "''", "'") revSQLFilter = TXT End If End Function %> <% Function DBClose 'This function closes and destroys objects for the database. It 'should be called exactly once per page, objRS.Close con.Close Set objRS = Nothing Set con = Nothing End Function %> <% Function theCookie 'This function checks to see if the cookie that is set on the post 'login form (ur) matches the user variable that gets passed 'via the querystring Response.buffer=true a=Request.Cookies("user")("uid")'calls the cookie that was set on login.asp 'if the user did not login properly the cookie was not set and they get session expired error if a ="" then Response.Redirect "error.asp?errorcode=didnotpasslogin" elseIf a <> user then Response.Redirect "error.asp?errorcode=" end if End Function%> <% Function theAdmin If Request.Cookies("artAd") ="u" then Response.Redirect "index.asp?uid="& user ElseIf Request.Cookies("artAd") = "y" then Response.Redirect "adminindex.asp?uid="& user Else Response.Redirect "index.asp?uid="& user End If End Function%> <% Function thesbAdmin If Request.Cookies("artAd") ="u" then Response.Redirect "adminHRIndex.asp" ElseIf Request.Cookies("artAd") = "y" then Response.Redirect "adminHRIndex.asp" Else Response.Redirect "adminHRIndex.asp" End If End Function%> <% Function theAdminCheck If Request.Cookies("artAd") ="u" then Response.Redirect "index.asp?uid="& user ElseIf Request.Cookies("artAd")<> "y" then Response.Redirect "default.asp" End If End Function%> <% Function Parse(ByVal sInput, sDelimiter, asResult) If Len(Trim(sInput)) = 0 Then Parse = 0 Else iCount = 0 sWork = sInput iLen = Len(sDelimiter) iFound = InStr(sWork, sDelimiter) Do While iFound > 0 ReDim Preserve asResult(iCount) asResult(iCount) = Left(sWork, iFound - 1) iCount = iCount + 1 sWork = Right(sWork, Len(sWork) - (iFound + iLen - 1)) iFound = InStr(sWork, sDelimiter) Loop If Len(sWork) > 0 Then ReDim Preserve asResult(iCount) asResult(iCount) = sWork iCount = iCount + 1 End If Parse = iCount End If End Function%> <% Function timeCook() 'if they are new user, cookie has never been set. Set newTime to a year ago NewTime=Request.Cookies("newTime") If NewTime = "" then Response.Cookies("newTime")= now()-365 End if Response.Cookies("oldTime")=Request.Cookies("newTime") Response.Cookies("newTime")=now() Response.Cookies("newTime").expires=now()+365 newTime = now() oldTime = now() - 1 End Function %> <% userName = Request.Cookies("usero")%> <% SQL = "SELECT * FROM Employment WHERE active = 'on'" DBConnect SQL %> SportsDirect Inc.: the leading online media organization for statistics and news from a sports gaming perspective

Sports Statistics

Fantasy Sport Contests

Corporate Careers News and Events Management

Sports... Media... Technology...

SportsDirect Inc. offers employees a rewarding career in a rapidly growing industry. Founded in 1995, SportsDirect Inc. now employs over 120 people in roles that vary from technical to marketing, sales to finance, editorial to customer service. The company not only is the industry leader, it’s also a great place to work. The fun, laid-back environment places emphasis on hard work but also rewards employee efforts. Excellent benefits, family events, company sports teams, and frequent department "fun days" keep staff loyalty high and personal success even higher.

Don’t believe us? A recent survey of employees in over 80 companies voted us as the “Number 1 Small and Medium Employer In Canada”. Read more

Consistently growing, SportsDirect Inc. offers ample opportunity for employees to work on various projects and move into new roles as their career progresses. We offer a competitive salary and comprehensive benefits package for both part-time and full-time employees. Interest in sports or technology is an asset, but not a requisite.

Career Openings

<% While NOT objRS.EOF jobtitle = objRS("jobTitle") jobid = objRS("jobID") %>

<% objRS.MoveNext Wend %>

If you’re interested in applying for a role not posted or wish to reach our HR department, please contact us here.