<% Session.lcid = 1053 Response.Buffer = FALSE 'Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 Dim boolRSS_SearchResultsFound : boolRSS_SearchResultsFound = False Dim boolJobsafariFailed : boolJobsafariFailed = False Function generateHtml(strInput) strHtmlOutput = strInput strHtmlOutput = Replace(strHtmlOutput, vbNewLine, "
") strHtmlOutput = Replace(strHtmlOutput, " ", "
") strHtmlOutput = Replace(strHtmlOutput, vbTab, "
") generateHtml = strHtmlOutput End Function Function TrimIt(sInput, iLength) Dim aWords, iCounter, sOutput, sTmp sOutput = sInput If InStr(sInput, " ") > 0 Then aWords = Split(sInput, " ") For iCounter = 0 To UBound(aWords) If Len(aWords(iCounter) & " ") + Len(sTmp) <= iLength Then sTmp = sTmp & " " & aWords(iCounter) Else Exit For End If Next sOutput = sTmp End If TrimIt = sOutput End Function Function getStagePoolJobs(strKeyword, strRegion, itemLimit, boolFullDesc) Dim i Dim str : str = "" Dim RSStitle : RSStitle = "" Dim RSSlink : RSSlink = "" Dim counter : counter = 0 Dim xmlResponse Dim arrKeywords Dim intX Dim strCity Dim strCacheFolderName, intCacheValidTime Dim strStagepoolXML Dim xmlURL Dim strProvince, strLocation, strFunction, strCompany, strWorktype, strCountry, strGender, strPlayAge, strDeadline, strPubDate, strDescription, strDescriptionPreview, strJobId 'strStagepoolXML = "http://www.letajobb.com/stagepool-dev.xml" 'DEV strStagepoolXML = "http://www.stagepool.se/feeds/xml/jobs.asp?partner=letajobb" 'LIVE strCacheFolderName = "xml2012" intCacheValidTime = 240 ' minutes ' 240 = 4 hours / 480 = 8 hours / 720 = 12 hours strCacheFilename = "stagepool" strCacheFilename = Server.MapPath(strCacheFolderName & "/" & strCacheFilename & ".xml") xmlURL = strStagepoolXML dim fs, f Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(strCacheFilename) then Set f = fs.GetFile(strCacheFilename) boolCreateNewCache = (DateDiff("n",f.DateLastModified,Now) > intCacheValidTime) if f.Size < 100 then ' Something was wrong with the cached version. boolCreateNewCache = true end if response.write vbNewLine & "" & vbNewLine set f = Nothing if boolCreateNewCache then ' Delete cached file fs.DeleteFile(strCacheFilename) end if else boolCreateNewCache=true end if if boolCreateNewCache then response.write "" 'response.Write "" set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load(xmlURL) xmlDoc.Save strCacheFilename else set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.load(strCacheFilename) end if If not xmlDoc is Nothing Then set testSourceNode = xmlDoc.selectSingleNode("//stagePool") If not testSourceNode is Nothing Then For Each i In xmlDoc.selectSingleNode("//stagePool").childNodes if counter < itemLimit then 'strChannelInfo = "

Sökträffar från StagePool" strChannelInfo = "Sökträffar från StagePool på " & strKeyword & "" if i.nodeName = "auditionPart" then strShortDescription = "" strDescriptionPreview = "" strDescription = "" strFunction = "" strWorktype = "" strGender = "" strCountry = "" strProvince = "" strLocation = "" strPlayAge = "" strDeadline = "" 'strPubDate = "" strJobId = i.Attributes.GetNamedItem("id").Text For Each x In i.childNodes if x.nodeName = "auditionTitle" then RSStitle = Trim(x.text) elseif x.nodeName = "auditionURL" then RSSlink = Trim(x.text) elseif x.nodeName = "auditionDescription" then strShortDescription = Trim(x.text) & "
" elseif x.nodeName = "auditionText" then strDescription = Trim(x.text) & "
" 'elseif x.nodeName = "auditionPublished" then ' strPubDate = Trim(x.text) elseif x.nodeName = "auditionCity" then strLocation = Trim(x.text) strProvince = strLocation elseif x.nodeName = "auditionCountry" then strCountry = Trim(x.text) elseif x.nodeName = "auditionFact" then For Each fact In x.childNodes if fact.nodeName = "gender" then strGender = Trim(fact.text) end if if fact.nodeName = "playAge" then strPlayAge = Trim(fact.text) end if if fact.nodeName = "applicationDeadline" then strDeadline = Trim(fact.text) end if Next elseif x.nodeName = "professionType" then strFunction = Trim(x.text) end if next end if ' Check country and region If LCase(strCountry) = "sverige" and (strRegion = "" or isStagePoolArea(strRegion,strProvince)) Then ' filter search results arrKeywords = Split(strKeyword," ") For intX = 0 to UBound(arrKeywords) If (InStr(1,RSStitle,arrKeywords(intX),1)>0) or (InStr(1,strDescription,arrKeywords(intX),1)>0) or (InStr(1,strFunction,arrKeywords(intX),1)>0) Then If counter = 0 Then If boolFullDesc = True Then str = str & "
" End If str = str & "
" & strChannelInfo & "

" End If counter = counter + 1 if counter mod 2 = 0 then str = str & "
" else str = str & "
" end if str = str & "" & RSStitle & "
" if Len(strShortDescription) > 10 or Len(strDescription) > 10 then if boolFullDesc = False and Len(strShortDescription) < 110 then str = str & strShortDescription elseif boolFullDesc = True then if len(strDescription) < 600 then str = str & strDescription else strDescriptionPreview = TrimIt(strDescription, 550) str = str & strDescriptionPreview & "...  expandera » " str = str & "" end if end if strCity = strLocation If Not strCity = "" and boolFullDesc = True Then str = str & "Placering: " & strCity & "   » Visa på karta
" End If end if if boolFullDesc = True then if Len(strFunction) > 3 then str = str & "Yrkesgrupp: " & strFunction & "" end if if Len(strGender) > 1 then str = str & " Kön: " & strGender & "" end if if Len(strPlayAge) > 0 then str = str & " Spelålder: " & strPlayAge & "" end if if Len(strPlayAge) > 0 then str = str & " Senast ansökan: " & strDeadline & "" end if str = str & "
" end if if Len(strCompany) > 3 then if boolFullDesc = True then str = str & "" str = str & strCompany if boolFullDesc = True then str = str & "" str = str & "
" end if 'if Len(strPubDate) > 8 and boolFullDesc = True then ' strPubDate = Trim(strPubDate) ' str = str & "" & strPubDate & "
" 'end if 'If boolFullDesc = True Then ' str = str & "

" 'End If str = str & "
" & vbNewLine Exit For End If Next End If end if Next End If set testSourceNode = Nothing End If If counter = 0 Then getStagePoolJobs = "" Else If boolFullDesc = True Then str = str & "

" End If getStagePoolJobs = "
" & str & "


" boolRSS_SearchResultsFound = True End If Set xmlDoc = Nothing End Function Function getToppjobbetJobs(strKeyword, strRegion, itemLimit, boolFullDesc) Dim i Dim str : str = "" Dim RSStitle : RSStitle = "" Dim RSSlink : RSSlink = "" Dim counter : counter = 0 Dim xmlResponse Dim arrKeywords Dim intX Dim strCity Dim strCacheFolderName, intCacheValidTime Dim strToppjobbetXML Dim xmlURL Dim strProvince, strLocation, strFunction, strCompany, strWorktype, strDescription, strDescriptionPreview 'strToppjobbetXML = "http://www.letajobb.com/toppjobbet-dev.xml" 'DEV strToppjobbetXML = "http://www.toppjobbet.se/?feed=letajobb" 'LIVE strCacheFolderName = "xml2012" intCacheValidTime = 720 ' minutes ' 240 = 4 hours / 480 = 8 hours / 720 = 12 hours strCacheFilename = "toppjobbet" strCacheFilename = Server.MapPath(strCacheFolderName & "/" & strCacheFilename & ".xml") xmlURL = strToppjobbetXML dim fs, f Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(strCacheFilename) then Set f = fs.GetFile(strCacheFilename) boolCreateNewCache = (DateDiff("n",f.DateLastModified,Now) > intCacheValidTime) if f.Size < 100 then ' Something was wrong with the cached version. boolCreateNewCache = true end if response.write vbNewLine & "" & vbNewLine set f = Nothing if boolCreateNewCache then ' Delete cached file fs.DeleteFile(strCacheFilename) end if else boolCreateNewCache=true end if if boolCreateNewCache then response.write "" set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load(xmlURL) xmlDoc.Save strCacheFilename else set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.load(strCacheFilename) end if If not xmlDoc is Nothing Then set testSourceNode = xmlDoc.selectSingleNode("//source") If not testSourceNode is Nothing Then For Each i In xmlDoc.selectSingleNode("//source").childNodes if counter < itemLimit then strChannelInfo = "

Sökträffar från Toppjobbet" if i.nodeName = "job" then strShortDescription = "" strDescription = "" strDescriptionPreview = "" strFunction = "" strWorktype = "" For Each x In i.childNodes if x.nodeName = "titel" then RSStitle = Trim(x.text) elseif x.nodeName = "url" then RSSlink = Trim(x.text) elseif x.nodeName = "regio" then ' Län existerar inte! strProvince = Trim(x.text) elseif x.nodeName = "kortbeskrivning" then strShortDescription = Trim(x.text) & "
" elseif x.nodeName = "beskrivning" then strDescription = Trim(x.text) & "
" elseif x.nodeName = "datum" then strPubDate = Trim(x.text) elseif x.nodeName = "stad" then strLocation = Trim(x.text) elseif x.nodeName = "företag" then strCompany = Trim(x.text) elseif x.nodeName = "kategori" then strFunction = Trim(x.text) end if next end if ' Check region If (strRegion = "" or isToppjobbetArea(strRegion,strLocation)) and InStr(1,strFunction,"Utlandstjänster",1) < 1 Then ' filter search results arrKeywords = Split(strKeyword," ") For intX = 0 to UBound(arrKeywords) If (InStr(1,RSStitle,arrKeywords(intX),1)>0) or (InStr(1,strDescription,arrKeywords(intX),1)>0) or (InStr(1,strFunction,arrKeywords(intX),1)>0) Then If counter = 0 Then If boolFullDesc = True Then str = str & "
" End If str = str & "
" & strChannelInfo & "

" End If counter = counter + 1 if counter mod 2 = 0 then str = str & "
" else str = str & "
" end if str = str & "" & RSStitle & "
" if Len(strShortDescription) > 10 or Len(strDescription) > 10 then if boolFullDesc = False and Len(strShortDescription) < 110 then str = str & strShortDescription elseif boolFullDesc = True then if len(strDescription) < 500 then str = str & strDescription & "
" else strDescriptionPreview = TrimIt(strDescription, 400) str = str & strDescriptionPreview & "...  expandera » " str = str & "" end if end if strCity = findCity(strLocation) If Not strCity = "" and boolFullDesc = True Then str = str & "
Placering: " & strCity & "   » Visa på karta
" Elseif Not strLocation = "" and boolFullDesc = True then str = str & "
Placering: " & strLocation & "   » Visa på karta
" End If end if if boolFullDesc = True then if Len(strFunction) > 3 then str = str & strFunction end if str = str & "
" end if if Len(strCompany) > 3 then if boolFullDesc = True then str = str & "" str = str & strCompany if boolFullDesc = True then str = str & "" str = str & "
" end if if Len(strPubDate) > 8 and boolFullDesc = True then strPubDate = Trim(strPubDate) strParsedDate = Right(strPubDate, 4) & "-" & Mid(strPubDate, 4, 2) & "-" & Left(strPubDate, 2) if isDate(strParsedDate) then str = str & "" & strParsedDate & "
" end if 'If boolFullDesc = True Then ' str = str & "

" 'End If str = str & "
" & vbNewLine Exit For End If Next End If end if Next End If Set testSourceNode = Nothing End If If counter = 0 Then getToppjobbetJobs = "" Else If boolFullDesc = True Then str = str & "

" End If getToppjobbetJobs = "
" & str & "


" boolRSS_SearchResultsFound = True End If Set xmlDoc = Nothing End Function Function getStepstoneJobs(strKeyword, strRegion, itemLimit, boolFullDesc) Dim i Dim str : str = "" Dim RSStitle : RSStitle = "" Dim RSSlink : RSSlink = "" Dim counter : counter = 0 Dim xmlResponse Dim arrKeywords Dim intX Dim strCity Dim strCacheFolderName, intCacheValidTime Dim strStepstoneXML Dim xmlURL Dim strProvince, strLocation, strFunction, strCompany, strWorktype, strDescriptionPreview, strDescription 'strStepstoneXML = "http://www.letajobb.com/stepstone_dev.xml" 'DEV strStepstoneXML = "http://www.stepstone.se/services/cachecustomfiles/SE_11640_letajobb_all.xml" 'LIVE strCacheFolderName = "xml2012" intCacheValidTime = 480 ' minutes ' 240 = 4 hours / 480 = 8 hours strCacheFilename = "stepstone" strCacheFilename = Server.MapPath(strCacheFolderName & "/" & strCacheFilename & ".xml") xmlURL = strStepstoneXML dim fs, f Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(strCacheFilename) then Set f = fs.GetFile(strCacheFilename) boolCreateNewCache = (DateDiff("n",f.DateLastModified,Now) > intCacheValidTime) if f.Size < 100 then ' Something was wrong with the cached version. boolCreateNewCache = true end if response.write vbNewLine & "" & vbNewLine set f = Nothing if boolCreateNewCache then ' Delete cached file fs.DeleteFile(strCacheFilename) end if else boolCreateNewCache=true end if if boolCreateNewCache then response.write "" set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load(xmlURL) xmlDoc.Save strCacheFilename else set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.load(strCacheFilename) end if If not xmlDoc is Nothing Then set testSourceNode = xmlDoc.selectSingleNode("//rsp/jobs") If not testSourceNode is Nothing Then For Each i In xmlDoc.selectSingleNode("//rsp/jobs").childNodes if counter < itemLimit then strChannelInfo = "
Sökträffar från StepStone" if i.nodeName = "job" then strDescription = "" strDescriptionPreview = "" strFunction = "" strWorktype = "" For Each x In i.childNodes if x.nodeName = "title" then RSStitle = Trim(x.text) elseif x.nodeName = "url" then RSSlink = Trim(x.text) elseif x.nodeName = "regio" then strProvince = Trim(x.text) elseif x.nodeName = "description" then strDescription = Trim(x.text) & "
" elseif x.nodeName = "publicationDate" then strPubDate = Trim(x.text) elseif x.nodeName = "location" then strLocation = Trim(x.text) elseif x.nodeName = "company" then strCompany = Trim(x.text) elseif x.nodeName = "function" then strFunction = Trim(x.text) elseif x.nodeName = "worktype" then strWorktype = Trim(x.text) end if next end if ' Check region If strRegion = "" or isStepstoneArea(strRegion,strProvince) Then ' filter search results arrKeywords = Split(strKeyword," ") For intX = 0 to UBound(arrKeywords) If (InStr(1,RSStitle,arrKeywords(intX),1)>0) or (InStr(1,strDescription,arrKeywords(intX),1)>0) or (InStr(1,strFunction,arrKeywords(intX),1)>0) Then If counter = 0 Then If boolFullDesc = True Then str = str & "
" End If str = str & "
" & strChannelInfo & "

" End If counter = counter + 1 if counter mod 2 = 0 then str = str & "
" else str = str & "
" end if str = str & "" & RSStitle & "
" if Len(strDescription) > 8 and (boolFullDesc = True or len(strDescription) < 90) then if len(strDescription) < 500 then str = str & strDescription & "
" else strDescriptionPreview = TrimIt(strDescription, 400) str = str & strDescriptionPreview & "...  expandera » " str = str & "" end if strCity = findCity(strLocation) If Not strCity = "" and boolFullDesc = True Then str = str & "
Placering: " & strCity & "   » Visa på karta
" Elseif Not strLocation = "" and boolFullDesc = True then str = str & "
Placering: " & strLocation & "   » Visa på karta
" End If end if if boolFullDesc = True then if Len(strFunction) > 3 then str = str & strFunction end if if Len(strWorktype) > 3 then str = str & " (" & Trim(strWorktype) & ")" end if str = str & "
" end if if Len(strCompany) > 3 then if boolFullDesc = True then str = str & "" str = str & strCompany if boolFullDesc = True then str = str & "" str = str & "
" end if if Len(strPubDate) > 8 and boolFullDesc = True then strPubDate = Trim(strPubDate) strParsedDate = Right(strPubDate, 4) & "-" & Mid(strPubDate, 4, 2) & "-" & Left(strPubDate, 2) if isDate(strParsedDate) then str = str & "" & strParsedDate & "
" end if 'If boolFullDesc = True Then ' str = str & "

" 'End If str = str & "
" & vbNewLine Exit For End If Next End If end if Next End If Set testSourceNode = Nothing End If If counter = 0 Then getStepstoneJobs = "" Else If boolFullDesc = True Then str = str & "

" End If getStepstoneJobs = "
" & str & "


" boolRSS_SearchResultsFound = True End If Set xmlDoc = Nothing End Function Dim arrCities : arrCities = array("Uppsala","Alingsås","Arvika","Askersund","Avaskär","Avesta","Boden","Bollnäs","Borgholm","Borlänge","Borås","Djursholm","Eksjö","Elleholm","Enköping","Eskilstuna","Eslöv","Fagersta","Falkenberg","Falköping","Falsterbo","Falun","Filipstad","Finspång","Flen","Gränna","Gävle","Gällivare","Göteborg","Norrköping","Linköping","Hagfors","Halmstad","Haparanda","Mora","Hedemora","Helsingborg","Hjo","Hudiksvall","Huskvarna","Härnösand","Hässleholm","Höganäs","Jönköping","Kalmar","Karlshamn","Karlskoga","Karlskrona","Karlstad","Katrineholm","Kiruna","Kramfors","Kristianopel","Kristianstad","Kristinehamn","Kumla","Kungsbacka","Kungälv","Nyköping","Laholm","Landskrona","Lidingö","Lidköping","Lindesberg","Ljungby","Ludvika","Luleå","Lund","Lycksele","Lyckå","Lysekil","Lödöse","Malmö","Mariefred","Mariestad","Marstrand","Mjölby","Motala","Mölndal","Nacka","Nora","Norrtälje","Nybro","Köping","Nynäshamn","Nässjö","Oskarshamn","Oxelösund","Piteå","Ronneby","Sala","Sandviken","Sigtuna","Simrishamn","Skanör","Salem","Skara","Skellefteå","Skänninge","Skövde","Sollefteå","Solna","Strängnäs","Strömstad","Sundbyberg","Sundsvall","Säffle","Säter","Sävsjö","Söderhamn","Söderköping","Södertälje","Sölvesborg","Tidaholm","Torshälla","Tranås","Trelleborg","Trollhättan","Trosa","Uddevalla","Ulricehamn","Umeå","Vadstena","Varberg","Vaxholm","Vetlanda","Vimmerby","Visby","Vänersborg","Värnamo","Västervik","Västerås","Växjö","Ystad","Åhus","Åmål","Ängelholm","Örebro","Öregrund","Örnsköldsvik","Östersund","Östhammar","Staffanstorp","Åre","Veddige","Ånge","Vellinge","Kävlinge","Lomma","Öckerö","Arvidsjaur","Upplands-Bro","Huddinge","Upplands Väsby","Upplands-Väsby","Malung","Haninge","Åstorp","Stockholm") Function findCity(strText) Dim i Dim strCity : strCity = "" For i = 0 To Ubound(arrCities) If InStr(1,strText,arrCities(i),1) Then strCity = arrCities(i) Exit For End If Next findCity = strCity End Function Function updateLatestSearches(strNewKeyword) Dim searchArray searchArray = Array() Application.Lock searchArray = Application("LatestSearchesArray") if isArray(searchArray) Then ' kolla om ordet inte redan finns Dim i Dim boolKeywordExistsInList boolKeywordExistsInList = False FOR i = 0 TO 9 If Instr(1,searchArray(i),strNewKeyword,1) > 0 Then boolKeywordExistsInList = True End If NEXT If boolKeywordExistsInList = False Then ' lägg in strNewKeyword i arraySearches REDIM Preserve searchArray(9) FOR i = 8 TO 0 Step -1 searchArray(i+1) = searchArray(i) NEXT searchArray(0) = strNewKeyword Application("LatestSearchesArray") = searchArray End If else REDIM searchArray(9) FOR i = 8 TO 0 Step -1 searchArray(i+1) = "" NEXT searchArray(0) = strNewKeyword Application("LatestSearchesArray") = searchArray end if Application.Unlock End Function Function isToppjobbetArea(strRegion, strLocation) If strLocation = "Gothenburg" Then strLocation = "Gothenburg, Vastra-gotaland" End If Dim boolRegionMatch : boolRegionMatch = false Dim strRegionKeyPart Select Case strRegion Case "blekinge" strRegionKeyPart = "Blekinge" Case "dalarnas" strRegionKeyPart = "Dalarna" Case "gotland" strRegionKeyPart = "Gotland" Case "gavleborg" strRegionKeyPart = "Gavleborg" Case "halland" strRegionKeyPart = "Halland" Case "jamtland" strRegionKeyPart = "Jamtland" Case "jonkoping" strRegionKeyPart = "Jonkoping" Case "kalmar" strRegionKeyPart = "Kalmar" Case "kronoberg" strRegionKeyPart = "Kronoberg" Case "norrbotten" strRegionKeyPart = "Norrbotten" Case "sodermanland" strRegionKeyPart = "Sodermanland" Case "skane" strRegionKeyPart = "Skane" Case "stockholm" strRegionKeyPart = "Stockholm" Case "uppsala" strRegionKeyPart = "Uppsala" Case "varmland" strRegionKeyPart = "Varmland" Case "vasterbotten" strRegionKeyPart = "Vasterbotten" Case "vasternorrland" strRegionKeyPart = "Norrland" Case "vastmanlands" strRegionKeyPart = "Vastmanland" Case "vastragotaland" strRegionKeyPart = "Vastra-gotaland" Case "orebro" strRegionKeyPart = "Orebro" Case "ostergotland" strRegionKeyPart = "Ostergotland" Case Else strRegionKeyPart = "UNKNOWN" End Select ' Province check if InStr(1,strLocation,strRegionKeyPart,1) > 0 then boolRegionMatch = true end if isToppjobbetArea = boolRegionMatch End Function Function isStagePoolArea(strRegion,strProvince) isStagePoolArea = isStepstoneArea(strRegion,strProvince) End Function Function isStepstoneArea(strRegion,strProvince) Dim boolRegionMatch : boolRegionMatch = false Dim strRegionKeyPart Select Case strRegion Case "blekinge" strRegionKeyPart = "Blekinge" Case "dalarnas" strRegionKeyPart = "Dalarna" Case "gotland" strRegionKeyPart = "Gotland" Case "gavleborg" strRegionKeyPart = "Gävleborg" Case "halland" strRegionKeyPart = "Halland" Case "jamtland" strRegionKeyPart = "Jämtland" Case "jonkoping" strRegionKeyPart = "Jönköping" Case "kalmar" strRegionKeyPart = "Kalmar" Case "kronoberg" strRegionKeyPart = "Kronoberg" Case "norrbotten" strRegionKeyPart = "Norrbotten" Case "sodermanland" strRegionKeyPart = "Södermanland" Case "skane" strRegionKeyPart = "Skåne" Case "stockholm" strRegionKeyPart = "Stockholm" Case "uppsala" strRegionKeyPart = "Uppsala" Case "varmland" strRegionKeyPart = "Värmland" Case "vasterbotten" strRegionKeyPart = "Västerbotten" Case "vasternorrland" strRegionKeyPart = "Norrland" Case "vastmanlands" strRegionKeyPart = "Västmanland" Case "vastragotaland" strRegionKeyPart = "Västra Götaland" Case "orebro" strRegionKeyPart = "Örebro" Case "ostergotland" strRegionKeyPart = "Östergötland" Case Else strRegionKeyPart = "UNKNOWN" End Select ' Province check if InStr(1,strProvince,strRegionKeyPart,1) > 0 then boolRegionMatch = true end if ' Cities (if the xml value is not a province but a city) if strRegion = "blekinge" and (InStr(strProvince,"Karlskrona")>0 or InStr(strProvince,"Karlshamn")>0 or InStr(strProvince,"Ronneby")>0) then boolRegionMatch = true end if if strRegion = "dalarna" and (InStr(strProvince,"Borlänge")>0 or InStr(strProvince,"Falun")>0 or InStr(strProvince,"Avesta")>0 or InStr(strProvince,"Ludvika")>0 or InStr(strProvince,"Mora")>0) then boolRegionMatch = true end if if strRegion = "gotland" and (InStr(strProvince,"Visby")>0) then boolRegionMatch = true end if if strRegion = "gavleborg" and (InStr(strProvince,"Gävle")>0 or InStr(strProvince,"Sandviken")>0 or InStr(strProvince,"Hudiksvall")>0 or InStr(strProvince,"Bollnäs")>0 or InStr(strProvince,"Söderhamn")>0) then boolRegionMatch = true end if if strRegion = "halland" and (InStr(strProvince,"Halmstad")>0 or InStr(strProvince,"Varberg")>0 or InStr(strProvince,"Falkenberg")>0 or InStr(strProvince,"Kungsbacka")>0) then boolRegionMatch = true end if if strRegion = "jamtland" and (InStr(strProvince,"Östersund")>0) then boolRegionMatch = true end if if strRegion = "jonkoping" and (InStr(strProvince,"Jönköping")>0 or InStr(strProvince,"Värnamo")>0 or InStr(strProvince,"Nässjö")>0 or InStr(strProvince,"Tranås")>0 or InStr(strProvince,"Vetlanda")>0) then boolRegionMatch = true end if if strRegion = "kalmar" and (InStr(strProvince,"Kalmar")>0 or InStr(strProvince,"Oskarshamn")>0 or InStr(strProvince,"Nybro")>0 or InStr(strProvince,"Vimmerby")>0) then boolRegionMatch = true end if if strRegion = "kronoberg" and (InStr(strProvince,"Växjö")>0 or InStr(strProvince,"Ljunbgy")>0 or InStr(strProvince,"Älmhult")>0 or InStr(strProvince,"Markaryd")>0) then boolRegionMatch = true end if if strRegion = "norrbotten" and (InStr(strProvince,"Luleå")>0 or InStr(strProvince,"Boden")>0 or InStr(strProvince,"Piteå")>0 or InStr(strProvince,"Kalix")>0 or InStr(strProvince,"Haparanda")>0 or InStr(strProvince,"Pajala")>0) then boolRegionMatch = true end if if strRegion = "skane" and (InStr(strProvince,"Malmö")>0 or InStr(strProvince,"Helsingborg")>0 or InStr(strProvince,"Lund")>0 or InStr(strProvince,"Kristiansstad")>0 or InStr(strProvince,"Landskrona")>0 or InStr(strProvince,"Trelleborg")>0 or InStr(strProvince,"Hässleholm")>0 or InStr(strProvince,"Ängelholm")>0 or InStr(strProvince,"Ystad")>0 or InStr(strProvince,"Eslöv")>0 or InStr(strProvince,"Örkelljunga")>0) then boolRegionMatch = true end if if strRegion = "stockholm" and (InStr(strProvince,"Södertälje")>0 or InStr(strProvince,"Täby")>0 or InStr(strProvince,"Haninge")>0 or InStr(strProvince,"Upplands Väsby")>0 or InStr(strProvince,"Solna")>0 or InStr(strProvince,"Sollentuna")>0 or InStr(strProvince,"Tumba")>0 or InStr(strProvince,"Lidingö")>0) then boolRegionMatch = true end if if strRegion = "sodermanland" and (InStr(strProvince,"Eskilstuna")>0 or InStr(strProvince,"Nyköping")>0 or InStr(strProvince,"Katrineholm")>0 or InStr(strProvince,"Strängnäs")>0) then boolRegionMatch = true end if if strRegion = "uppsala" and (InStr(strProvince,"Uppsala")>0 or InStr(strProvince,"Enköping")>0 or InStr(strProvince,"Bålsta")>0) then boolRegionMatch = true end if if strRegion = "varmland" and (InStr(strProvince,"Karlstad")>0 or InStr(strProvince,"Arvika")>0 or InStr(strProvince,"Kristinehamn")>0 or InStr(strProvince,"Säffle")>0) then boolRegionMatch = true end if if strRegion = "vasterbotten" and (InStr(strProvince,"Umeå")>0 or InStr(strProvince,"Skellefteå")>0 or InStr(strProvince,"Lycksele")>0) then boolRegionMatch = true end if if strRegion = "vasternorrland" and (InStr(strProvince,"Sundsvall")>0 or InStr(strProvince,"Örnsköldsvik")>0 or InStr(strProvince,"Härnösand")>0 or InStr(strProvince,"Sollefteå")>0 or InStr(strProvince,"Kramfors")>0 or InStr(strProvince,"Timrå")>0) then boolRegionMatch = true end if if strRegion = "vastmanland" and (InStr(strProvince,"Västerås")>0 or InStr(strProvince,"Sala")>0) then boolRegionMatch = true end if if strRegion = "vastragotaland" and (InStr(strProvince,"Göteborg")>0 or InStr(strProvince,"Borås")>0 or InStr(strProvince,"Trollhättan")>0 or InStr(strProvince,"Skövde")>0 or InStr(strProvince,"Uddevalla")>0 or InStr(strProvince,"Lidköping")>0 or InStr(strProvince,"Kungälv")>0 or InStr(strProvince,"Falköping")>0) then boolRegionMatch = true end if if strRegion = "orebro" and (InStr(strProvince,"Örebro")>0 or InStr(strProvince,"Karlskoga")>0 or InStr(strProvince,"Kumla")>0) then boolRegionMatch = true end if if strRegion = "ostergotland" and (InStr(strProvince,"Norrköping")>0 or InStr(strProvince,"Linköping")>0 or InStr(strProvince,"Motala")>0 or InStr(strProvince,"Mjölby")>0 or InStr(strProvince,"Finspång")>0 or InStr(strProvince,"Söderköping")>0 or InStr(strProvince,"Ödeshög")>0) then boolRegionMatch = true end if if strProvince = "Sverige" then boolRegionMatch = true end if isStepstoneArea = boolRegionMatch End Function Function getCJ_area_id(strArea) Dim strAreaId : strAreaId = "" Select Case strArea Case "blekinge" strAreaId = "219084" Case "dalarnas" strAreaId = "219085" Case "gotland" strAreaId = "219086" Case "gavleborg" strAreaId = "219087" Case "halland" strAreaId = "219088" Case "jamtland" strAreaId = "219089" Case "jonkoping" strAreaId = "219090" Case "kalmar" strAreaId = "219091" Case "kronoberg" strAreaId = "219092" Case "norrbotten" strAreaId = "219093" Case "sodermanland" strAreaId = "219096" Case "skane" strAreaId = "219094" Case "stockholm" strAreaId = "219095" Case "uppsala" strAreaId = "219097" Case "varmland" strAreaId = "219098" Case "vasterbotten" strAreaId = "219099" Case "vasternorrland" strAreaId = "219100" Case "vastmanlands" strAreaId = "219101" Case "vastragotaland" strAreaId = "219102" Case "orebro" strAreaId = "219103" Case "ostergotland" strAreaId = "219104" Case Else strAreaId = "171809" 'Sverige End Select getCJ_area_id = strAreaId End Function Function getWORKEY_area_id(strArea) Dim strAreaId : strAreaId = "" Select Case strArea Case "blekinge" strAreaId = "7" Case "dalarnas" strAreaId = "8" Case "gotland" strAreaId = "10" Case "gavleborg" strAreaId = "9" Case "halland" strAreaId = "11" Case "jamtland" strAreaId = "12" Case "jonkoping" strAreaId = "13" Case "kalmar" strAreaId = "14" Case "kronoberg" strAreaId = "15" Case "norrbotten" strAreaId = "16" Case "sodermanland" strAreaId = "20" Case "skane" strAreaId = "19" Case "stockholm" strAreaId = "21" Case "uppsala" strAreaId = "22" Case "varmland" strAreaId = "23" Case "vasterbotten" strAreaId = "24" Case "vasternorrland" strAreaId = "25" Case "vastmanlands" strAreaId = "26" Case "vastragotaland" strAreaId = "27" Case "orebro" strAreaId = "17" Case "ostergotland" strAreaId = "18" Case Else strAreaId = "0" 'Sverige End Select getWORKEY_area_id = strAreaId End Function Function listLatestSearches() Dim searchArray searchArray = Array() searchArray = Application("LatestSearchesArray") Dim strItem Dim boolFirstItem : boolFirstItem = True if isArray(searchArray) Then For Each strItem in searchArray If Len(strItem) > 0 Then If boolFirstItem = False Then Response.Write ", " End If Response.Write "" & strItem & "" boolFirstItem = False End If Next else response.write "" end if End Function Function RSS(xmlURL,RSSversion,itemLimit,boolDisplayChannelInfo,strKeyword, strRegion, byRef boolRSS_SearchResultsFound, boolUseKeywordInURL, boolFullDesc) 'response.write "" & vbNewLine on error resume next Dim i Dim str : str = "" Dim RSStitle : RSStitle = "" Dim RSSlink : RSSlink = "" Dim counter : counter = 0 Dim xmlResponse Dim arrKeywords Dim intX Dim strCity Dim boolUseCache, strCacheFolderName, intCacheValidTime boolUseCache = True ' Setting (False is not currently working) strCacheFolderName = "rss2011" intCacheValidTime = 480 ' minutes 'strCacheFilename = Server.MapPath(strCacheFolderName & "/" & Replace(Replace(Replace(xmlURL,"http://",""),"/","_"),".","-") & ".rss") strCacheFilename = Replace(xmlURL,"%2F","/") strCacheFilename = Replace(Replace(Replace(xmlURL,"http://",""),"/","_"),".","-") If Instr(strCacheFilename,"?") > 0 Then strCacheFilename = Left(strCacheFilename,Instr(strCacheFilename,"?")-1) End If If boolUseKeywordInURL Then ' Special case for IDG - Only use region in filename, keyword is already used If Instr(xmlURL,"cs.idg.se") > 0 Then If Len(strRegion) > 0 Then strCacheFilename = strCacheFilename & "__" & strRegion End If Else If Len(strRegion) > 0 Then strCacheFilename = strCacheFilename & "__" & strKeyword & "__" & strRegion Else strCacheFilename = strCacheFilename & "__" & strKeyword End If End If End If strCacheFilename = Server.MapPath(strCacheFolderName & "/" & strCacheFilename & ".rss") If boolUseCache = True Then dim fs, f Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(strCacheFilename) then Set f = fs.GetFile(strCacheFilename) boolCreateNewCache = (DateDiff("n",f.DateLastModified,Now) > intCacheValidTime) response.write vbNewLine & "" & vbNewLine set f = Nothing if boolCreateNewCache then ' Delete cached file fs.DeleteFile(strCacheFilename) end if else boolCreateNewCache=true end if ' Activate only when debugging! 'response.write "" if boolCreateNewCache then response.write "" set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load(xmlURL) xmlDoc.Save strCacheFilename else set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0") xmlDoc.async = false xmlDoc.resolveExternals = false xmlDoc.load(strCacheFilename) end if Else Set xmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlHTTP.Open "GET", xmlURL, False xmlHTTP.Send If xmlHTTP.Status = 200 Then xmlResponse = xmlHTTP.ResponseXML.xml Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM") xmlDoc.Async = False xmlDoc.loadXML (xmlResponse) Else RSS = "Ett fel uppstod! Källfil inte tillgänglig.
" End If End If 'If IsBlank(xmlDoc.selectSingleNode("//ErrorMsg")) = False OR xmlResponse = "" OR Err.number <> 0 Then If IsBlank(xmlDoc.selectSingleNode("//ErrorMsg")) = False OR Err.number <> 0 Then RSS = "Ett fel uppstod! Källan kan inte läsas korrekt.
Error: " & Replace(Err.number, "-","") & "
" err.clear ' Redundancy for when jobsafari fails if InStr(1,xmlURL,"jobsafari.se",1) > 0 then RSS = "" err.clear boolJobsafariFailed = True end if Else IF RSSversion = 1 THEN ' RSS vers 1 strChannelInfo = "" For Each i In xmlDoc.documentElement.childNodes if counter <= itemLimit then if i.nodeName = "channel" then If boolDisplayChannelInfo Then For Each x In i.childNodes if x.nodeName = "title" then strChannel_Title = x.text end if if x.nodeName = "link" then strChannel_Link = x.text strChannelInfo = "
Sökträffar från " & strChannel_Title & "" end if Next End If end if if i.nodeName = "item" then For Each x In i.childNodes strOther = "" if x.nodeName = "title" then RSStitle = x.text elseif x.nodeName = "link" then RSSlink = x.text 'else ' strOther = x.text end if next ' Now check keyword filter arrKeywords = Split(strKeyword," ") For intX = 0 to UBound(arrKeywords) If (InStr(1,RSStitle,arrKeywords(intX),1)>0) or (InStr(1,strDescription,arrKeywords(intX),1)>0) Then If counter = 0 Then If boolFullDesc = True Then str = str & "
" End If str = str & "
" & strChannelInfo & "

" End If counter = counter + 1 if counter mod 2 = 0 then str = str & "
" else str = str & "
" end if str = str & "" & RSStitle & "
" if Len(strDescription) > 8 and (boolFullDesc = True or len(strDescription) < 100) then str = str & strDescription end if str = str & "

" & vbNewLine Exit For End If Next end if end if Next ELSE ' RSS vers 2 strChannelInfo = "" strChannelImage = "" If IsBlank(xmlDoc.selectSingleNode("//channel")) = True Then Response.Write "" & vbNewLine ' Redundancy for when jobsafari fails if InStr(1,xmlURL,"jobsafari.se",1) > 0 then boolJobsafariFailed = True end if Set xmlDoc = Nothing Set xmlHTTP = Nothing Exit Function End If For Each i In xmlDoc.selectSingleNode("//channel").childNodes if counter < itemLimit then If boolDisplayChannelInfo Then if i.nodeName = "title" then strChannel_Title = i.text end if if i.nodeName = "link" then strChannel_Link = i.text end if if i.nodeName = "description" then strChannel_Description = i.text 'str = str & "

" & _ 'str = str & "
Sökträffar från " & strChannel_Title & "" strChannelInfo = "
Sökträffar från " & strChannel_Title & "" end if if i.nodeName = "image" then For Each y In i.childNodes if y.nodeName = "url" then imgURL = y.text elseif y.nodeName = "link" then imgLink = y.text elseif y.nodeName = "title" then imgTitle = y.text elseif y.nodeName = "description" then imgDescription = y.text end if Next strChannelImage = "
" & vbNewLine end if End If if i.nodeName = "item" then For Each x In i.childNodes 'strOther = "" 'strPlace = "" 'strDate = "" 'strCompany = "" if x.nodeName = "title" then RSStitle = x.text elseif x.nodeName = "link" then RSSlink = x.text elseif x.nodeName = "description" then strDescription = x.text & "
" elseif x.nodeName = "date" then strDate = x.text & "
" elseif x.nodeName = "pubDate" then ' === NEW BINERO === strPubDate = Left(x.text, 20) & "
" aDate = Split(x.text," ") if IsArray(aDate) then if UBound(aDate) > 2 then if IsDate(aDate(1) & " " & aDate(2) & " " & aDate(3)) then dDate = CDate(aDate(1) & " " & aDate(2) & " " & aDate(3)) strPubDate = FormatDateTime( dDate ,2) & "
" 'strPubDate = x.text & "
" end if end if end if elseif x.nodeName = "place" then strPlace = x.text elseif x.nodeName = "company" then strCompany = x.text elseif x.nodeName = "guid" then ' Do nothing elseif len(x.text) > 3 and len(x.text) < 100 then strOther = x.text & "
" end if next ' Workey.se fix due to the RSS will have 1 hit with "no found" message if no hits.. If RSStitle = "No jobs found" Then Exit For End If ' now check filter arrKeywords = Split(strKeyword," ") For intX = 0 to UBound(arrKeywords) If InStr(1,RSStitle,"stagepool",1)=0 and InStr(1,strDescription,"stagepool",1)=0 and ((boolUseKeywordInURL = True and InStr(1,xmlURL,"offentligajobb.se",1) = 0) or (InStr(1,RSStitle,arrKeywords(intX),1)>0) or (InStr(1,strDescription,arrKeywords(intX),1)>0)) Then If counter = 0 Then If boolFullDesc = True Then str = str & "
" End If str = str & "
" & strChannelImage & strChannelInfo & "

" End If counter = counter + 1 if counter mod 2 = 0 then str = str & "
" else str = str & "
" end if str = str & "" & RSStitle & "
" if Len(strDescription) > 8 and (boolFullDesc = True or len(strDescription) < 90) then str = str & strDescription strCity = findCity(RSStitle) If Len(strCity) = 0 Then strCity = findCity(strDescription) End If If Not strCity = "" and boolFullDesc = True Then str = str & "Trolig placering: " & strCity & "   » visa på karta
" End If end if if Len(strPlace) > 2 then str = str & strPlace end if if Len(strCompany) > 2 then if Len(strPlace) > 8 then str = str & ", " else str = str & "
" end if str = str & strCompany end if if Len(strOther) > 8 and not Left(strOther,4) = "http" then str = str & strOther end if if Len(strDate) > 8 and boolFullDesc = True then str = str & "" & strDate & "" 'strDate_fixed = DateValue(strDate) 'str = str & strDate_fixed end if if Len(strPubDate) > 8 and boolFullDesc = True then str = str & "" & strPubDate & "" 'strPubDate_fixed = Left(strPubDate,16) 'str = str & strPubDate_fixed end if 'If boolFullDesc = True Then 'str = str & "

" 'End If str = str & "
" & vbNewLine Exit For End If Next end if end if Next END IF If counter = 0 Then 'RSS = "Inga träffar på "" & strKeyword & "".
" & vbNewLine RSS = "" Else If boolFullDesc = True Then str = str & "

" End If RSS = "
" & str & "


" boolRSS_SearchResultsFound = True End If End If Set xmlDoc = Nothing Set xmlHTTP = Nothing on error Goto 0 End Function Function IsBlank(byref TempVar) Dim tmpType IsBlank = False select Case VarType(TempVar) 'Empty & Null case 0,1 IsBlank = true 'Strings case 8 if Len(TempVar) = 0 Then IsBlank = True end If 'Object case 9 tmpType = TypeName(TempVar) If (tmpType = "Nothing") Or (tmpType = "Empty") Then IsBlank = True End If 'Arrays case 8192, 8204, 8209 'does it have any dimensions? if UBound(TempVar) = -1 Then IsBlank = True end If 'Anything else case Else IsBlank = False end Select End Function Function URLEncodeUnicode(strIn) Dim strOut : strOut = Server.URLEncode(strIn) strOut = Replace(strOut, "%E5","%C3%A5") 'å %E5 strOut = Replace(strOut, "%C5","%C3%A8") 'Å %C5 strOut = Replace(strOut, "%E4","%C3%A4") 'ä %E4 strOut = Replace(strOut, "%C4","%C3%84") 'Ä %C4 strOut = Replace(strOut, "%F6","%C3%B6") 'ö %F6 strOut = Replace(strOut, "%D6","%C3%96") 'Ö %D6 strOut = Replace(strOut, "%E9","%C3%A9") 'é %E9 URLEncodeUnicode = strOut End Function function safeString(sInput) Dim sOutput sOutput = Trim(sInput) sOutput = Replace(sOutput, Chr(34), "'") 'single quote: Chr(39) - double: Chr(34) sOutput = Replace(sOutput, ",", " ") 'single quote: Chr(39) - double: Chr(34) safeString = sOutput end function Dim strKeyword Dim intKeywordLength intKeywordLength = Len(Request.Querystring("keyword")) If intKeywordLength > 0 AND intKeywordLength < 36 Then strKeyword = safeString(Request.Querystring("keyword")) updateLatestSearches(strKeyword) Else strKeyword = "" End If Dim strRegion If Len(Request.Querystring("region")) > 0 Then strRegion = Request.Querystring("region") Else strRegion = "" End If Dim boolShowDesc If Request.Querystring("showdesc") = "1" Then boolShowDesc = true Else boolShowDesc = false End If Function listRecommendedLinks(strKeyword) If Len(strKeyword) = 0 Then Exit Function End If Dim boolRecommendedLinks : boolRecommendedLinks = False Dim i Dim aryModelljobb : aryModelljobb = array("modell","agentur","makeup","mode","fashion","stylist","mannekäng","manekäng","reklam") Dim boolModelljobb : boolModelljobb = False For i = 0 To Ubound(aryModelljobb) If InStr(1,strKeyword,aryModelljobb(i),1) Then boolModelljobb = True boolRecommendedLinks = True End If Next Dim aryStatist : aryStatist = array("stylist","reklam","statist","skådespel","film","teater","fotograf","sångare") Dim boolStatist : boolStatist = False For i = 0 To Ubound(aryStatist) If InStr(1,strKeyword,aryStatist(i),1) Then boolStatist = True boolRecommendedLinks = True End If Next ' Exception for search "statisti.." - NOTE! CANNOT BE MOVED AROUND IN THE SCRIPT! If InStr(1,strKeyword,"statisti",1) Then boolModelljobb = False boolStatist = False boolRecommendedLinks = False End If Dim arySkoljobb : arySkoljobb = array("skol","lärar","gymnasi","utbildning","universitet","rektor","lektor","vaktmästare","föreläsare","kurator","syo") Dim boolSkoljobb : boolSkoljobb = False For i = 0 To Ubound(arySkoljobb) If InStr(1,strKeyword,arySkoljobb(i),1) Then boolSkoljobb = True boolRecommendedLinks = True End If Next Dim aryMedrek : aryMedrek = array("vård","bioteknik","psykiat","sjuk","läkar","läke","sköterska","skötare","apotek","läkemedel","hälsa","hälso","ortoped","kardio") Dim boolMedrek : boolMedrek = False For i = 0 To Ubound(aryMedrek) If InStr(1,strKeyword,aryMedrek(i),1) Then boolMedrek = True boolRecommendedLinks = True End If Next Dim aryTolk : aryTolk = array("tolk","språk","översätt") Dim boolTolk : boolTolk = False For i = 0 To Ubound(aryTolk) If InStr(1,strKeyword,aryTolk(i),1) Then boolTolk = True boolRecommendedLinks = True End If Next Dim aryPedagog : aryPedagog = array("pedagog","forska","forskning","doktor","professor","lektor") Dim boolPedagog : boolPedagog = False For i = 0 To Ubound(aryPedagog) If InStr(1,strKeyword,aryPedagog(i),1) Then boolPedagog = True boolRecommendedLinks = True End If Next Dim aryFilm : aryFilm = array("film","blogg","skådespel","teater","ljudtekniker") Dim boolFilm : boolFilm = False For i = 0 To Ubound(aryFilm) If InStr(1,strKeyword,aryFilm(i),1) Then boolFilm = True boolRecommendedLinks = True End If Next Dim aryChef : aryChef = array("vd","ceo","chef","ledare","direktör","cto") Dim boolChef : boolChef = False For i = 0 To Ubound(aryChef) If InStr(1,strKeyword,aryChef(i),1) Then boolChef = True boolRecommendedLinks = True End If Next Dim aryITorget : aryITorget = array("ingenjör","mekanik","vvs","elektronik","industri","bygg") Dim boolITorget : boolITorget = False For i = 0 To Ubound(aryITorget) If InStr(1,strKeyword,aryITorget(i),1) Then boolITorget = True boolRecommendedLinks = True End If Next Dim arySalj : arySalj = array("sälj","sales","account","försäljning","butik") Dim boolSalj : boolSalj = False For i = 0 To Ubound(arySalj) If InStr(1,strKeyword,arySalj(i),1) Then boolSalj = True boolRecommendedLinks = True End If Next Dim aryK2 : aryK2 = array("chef","specialist","ledare","säljar","försälj") Dim boolK2 : boolK2 = False For i = 0 To Ubound(aryK2) If InStr(1,strKeyword,aryK2(i),1) Then boolK2 = True boolRecommendedLinks = True End If Next Dim aryGotland : aryGotland = array("visby","gotland","öland","nynäshamn") Dim boolGotland : boolGotland = False For i = 0 To Ubound(aryGotland) If InStr(1,strKeyword,aryGotland(i),1) Then boolGotland = True boolRecommendedLinks = True End If Next Dim arySkog : arySkog = array("skog","träd","natur") Dim boolSkog : boolSkog = False For i = 0 To Ubound(arySkog) If InStr(1,strKeyword,arySkog(i),1) Then boolSkog = True boolRecommendedLinks = True End If Next Dim arySommar : arySommar = array("sommar","vikarie","extrajobb") Dim boolSommar : boolSommar = False For i = 0 To Ubound(arySommar) If InStr(1,strKeyword,arySommar(i),1) Then boolSommar = True boolRecommendedLinks = True End If Next Dim aryDjur : aryDjur = array("djur","hund","katt","veterinär","zoo") Dim boolDjur : boolDjur = False For i = 0 To Ubound(aryDjur) If InStr(1,strKeyword,aryDjur(i),1) Then boolDjur = True boolRecommendedLinks = True End If Next Dim aryMotor : aryMotor = array("motor","bilar","mekaniker","motorcykel","bilmeck") Dim boolMotor : boolMotor = False For i = 0 To Ubound(aryMotor) If InStr(1,strKeyword,aryMotor(i),1) Then boolMotor = True boolRecommendedLinks = True End If Next Dim arySMHI : arySMHI = array("oceanograf","hydrolog","forskare","meteorolog","klimat","biolog","väder") Dim boolSMHI : boolSMHI = False For i = 0 To Ubound(arySMHI) If InStr(1,strKeyword,arySMHI(i),1) Then boolSMHI = True boolRecommendedLinks = True End If Next Dim aryKyrkjobb : aryKyrkjobb = array("kyrk","präst","församling","nunna","vigsel") Dim boolKyrkjobb : boolKyrkjobb = False For i = 0 To Ubound(aryKyrkjobb) If InStr(1,strKeyword,aryKyrkjobb(i),1) Then boolKyrkjobb = True boolRecommendedLinks = True End If Next Dim aryHushall : aryHushall = array("hushåll","tjänstefolk","barnpass","barnvakt","barnsköt","barnflicka","städning","städare","städhjälp","lokalvård","trädgård","gräsklipp") Dim boolHushall : boolHushall = False For i = 0 To Ubound(aryHushall) If InStr(1,strKeyword,aryHushall(i),1) Then boolHushall = True boolRecommendedLinks = True End If Next Dim aryKrogjobb : aryKrogjobb = array("bartender","krog","kock","kallskänk","restaurang","resturang","restaurant","hovmästare","souschef","pizza","kökschef","köksmäst","servit","servis","diskare","croupier","hovmästare","barrista") Dim boolKrogjobb : boolKrogjobb = False For i = 0 To Ubound(aryKrogjobb) If InStr(1,strKeyword,aryKrogjobb(i),1) Then boolKrogjobb = True boolRecommendedLinks = True End If Next Dim aryAupairjobb : aryAupairjobb = array("au-pair","aupair","au pair","pair") Dim boolAupairjobb : boolAupairjobb = False For i = 0 To Ubound(aryAupairjobb) If InStr(1,strKeyword,aryAupairjobb(i),1) Then boolAupairjobb = True boolRecommendedLinks = True End If Next If boolRecommendedLinks = True Then Response.Write("
Vi rekommenderar dig att även prova följande jobbsajter som passar in på "" & strKeyword & "":
") End If If boolKrogjobb = True Then Response.Write("» KrogPersonal.se
") End If If boolStatist = True Then Response.Write("» Stagepool.se
") Response.Write("» Statist.se
") End If If boolFilm = True Then Response.Write("» Filmcafe.nu
") Response.Write("» Filmservice.se
") End If If boolModelljobb = True Then Response.Write("» Modelljobb.se
") End If If boolSkoljobb = True Then Response.Write("» Skoljobb.se
") Response.Write("» Förskolejobb.se
") Response.Write("» Skolporten
") End If If boolMedrek = True Then Response.Write("» Medrek.se
") 'Response.Write("» Ronden.se
") Response.Write("» Läkarjobb.se
") Response.Write("» SskWebben.se
") End If If boolTolk = True Then Response.Write("» TÖI - Tolk och översättarinstitutet
") End If If boolPedagog = True Then Response.Write("» Pedagogjobb.se
") End If If boolChef = True Then Response.Write("» Chefjobb.se
") 'Response.Write("» Chefsjobb.se
") - already use their rss End If If boolSalj = True Then Response.Write("» SäljJobb.se
") End If If boolK2 = True Then Response.Write("» K2search
") End If If boolGotland = True Then Response.Write("» Gotland.se
") End If If boolSkog = True Then Response.Write("» Skogsjobb.se
") End If If boolSommar = True Then Response.Write("» LO - Hjälptelefon för frågor om sommarjobb: 020-56 00 56
") Response.Write("» Arbetsförmedlingen Sommarjobb
") End If If boolDjur = True Then Response.Write("» Lediga tjänster hos Sveriges Veterinärförbund
") End If If boolMotor = True Then Response.Write("» Motorjobb hos Autorekrytering
") End If If boolSMHI = True Then Response.Write("» Lediga tjänster hos SMHI
") End If If boolKyrkjobb = True Then Response.Write("» Kyrkjobb.se
") End If If boolHushall = True Then Response.Write("» Tjänstefolk.se
") End If If boolAupairjobb = True Then Response.Write("» AupairGuiden.se
") End If If boolITorget = True Then Response.Write("» Ingenjörstorget
") End If End Function Function GetCustomResults(strKeyword, strRegion) Dim strCustomResults : strCustomResults = "" Dim strCustomResultsHeader : strCustomResultsHeader = "
Sökträffar

" Dim intCustomCounter : intCustomCounter = 0 ' Custom sommarjobb 'Dim arySommarjobb : arySommarjobb = array("sommarjobb","sommar","extrajobb","helgjobb","kvällsjobb") 'Dim boolSommarjobb : boolSommarjobb = False 'For i = 0 To Ubound(arySommarjobb) ' If InStr(1,strKeyword,arySommarjobb(i),1) Then ' boolSommarjobb = True ' End If 'Next ' Custom kemist - inlagd 2012-01-27 Dim aryChemist : aryChemist = array("kemi","reach","clp","vasco","fjällbacka") Dim boolChemist : boolChemist = False For i = 0 To Ubound(aryChemist) If InStr(1,strKeyword,aryChemist(i),1) Then boolChemist = True End If Next ' Custom Jörgen Haglund : markarbetare / grävmaskinister / schaktbilschaufför / grovarbetare / hjullastar chaufförer Dim aryTruckers : aryTruckers = array("lastbil","chaufför","chafför","chufför","schafför","schaufför","truck","förare","markarbetare","grävmaskin","schaktbil","grovarbet","") Dim boolTruckers : boolTruckers = False For i = 0 To Ubound(aryTruckers) If InStr(1,strKeyword,aryTruckers(i),1) and (strRegion = "stockholm" or strRegion = "") Then boolTruckers = True End If Next ' Is the following reco site still active? ' If (boolSommarjobb) Then ' strCustomResults = "
" ' intCustomCounter = intCustomCounter + 1 ' End If If (boolTruckers) Then strCustomResults = "
Hulk Transport söker markarbetare, grävmaskinister, schaktbilschaufför, grovarbetare, hjullastar chaufförer
Hulk Transport AB är ett relativt ungt men mycket expansivt bemanningsföretag inom transport och anläggning.
Vi söker nu för kunds räkning erfarna anläggningsarbetare med kunskap ifrån rörläggning, ritningsläsning och laser. Kunden kräver svensktalande personal, då arbetet inte får brista i kommunikation.
Vi ser gärna unga med rätt utbildning och viljan att få erfarenhet, likväl som äldre med mycket erfarenhet. Känner du att du är den vi söker så hör av dig, för hos oss finns chansen att utvecklas.
Ansökan skickas till: hulktransport.ab@gmail.com
" intCustomCounter = intCustomCounter + 1 End If If (boolChemist) Then strCustomResults = "
Vasco AB i Fjällbacka söker en kemist
Ett utvecklande, varierande, stimulerande kemijobb på ett mångsidigt familjeägt kemiföretag.
" intCustomCounter = intCustomCounter + 1 End If If (Len(strCustomResults) > 0) Then Response.Write(strCustomResultsHeader & strCustomResults & "

") 'Ending div from strCustomResultsHeader boolRSS_SearchResultsFound = True End If End Function %> <% if len(strKeyword) > 0 then response.write(strKeyword & " jobb - LetaJobb.com") else response.write("LetaJobb.com - Leta jobb i Sverige") end if %> <% if len(strKeyword) = 0 then %> <% end if %>
<% If Len(strKeyword) = 0 Then ' ======== SHOW STARTPAGE ======== %>





<% ' 'Nyhet! Nu erbjuder vi gratis offert för utbildningar och kurser - Vi hjälper dig hitta de bästa utbildningarna till de bästa priserna.

'
%>

Sveriges enklaste jobbsök

  • Här kan du snabbt och enkelt hitta lediga jobb genom att söka på ett enda nyckelord.
  • En gemensam sökning görs på flera av Sveriges jobbsajter och du får resultat direkt.
  • Jobbsökaren rekommenderar dessutom andra webbplatser baserat på ditt sökord.

Så här söker du efter lediga jobb

  • Fyll i ett eller flera ord i sökrutan som passar dig eller ditt yrke, välj sedan län.
  • Om du fyller i flera ord i fältet visas alla lediga tjänster som innehåller något av sökorden.
  • För att söka på en exakt sökfras kan du använda citationstecken, tex "Au pair".
Senaste sökord: <% listLatestSearches() %>
Exempel på sökord för jobbsökning:
Projektledare, Ekonom, Säljare, Lärare, Undervisning, Skola, Bygg, Restaurang, Café, Redaktör, Illustratör, Analys, Strateg, Skribent, Journalist, Tolk, Läkare, Läkemedel, Medicin, Farmaceut, Sjukgymnast, Logistik, Undersköterska, Sjuksköterska, Ambulans, Fotograf, Psykiatri, VD, Chef, Direktör, Ledning, Manager, Forskare, Marknadsföring, Marketing, Utvecklare, Systemutvecklare, Webbutvecklare, Programmerare, Teknik, Java, .Net, Databas, Flash, Nätverkstekniker, Konsult, Data, Unix, Linux, Stordator, SAP, Account manager, Key account manager, Testledare, Support, Drift, IT, Ansvarig, Utbildare, Arkitekt, Snickare, Målare, Smed, Transport, Ortoped, Pilot, Skådespelare, Film, Reklam, Modell, People modell, Statist, Sminkör, Sminkös, Makeup, Teater, Producent, Ingenjör, CAD, Lokalvårdare, Städare, Chaufför, Budbil, Taxi, Biolog, Handläggare, Sekreterare, Receptionist, Specialist, Utbildning, Skötare, Förskola, Apotek, Rektor, Industri, Kultur, Media, Pedagogik, Natur, Socialtjänst, Hotell, Vård, Vårdbiträde, Administration, Juridik, Florist, Butik, Butikssäljare, Kassa, Kassör, Turism, Lager, Trafik, Förare, Lastbilsförare, Tidningsdistributör, Frisör, Massör, Terapeut, Arkeolog, Copywriter, Originalare, Designer, Art director, Sjukvårdare, Optiker, Tandteknik, Veterinär, Polis, Brandman, Psykolog, Naprapat, Kiropraktor, Logoped, Urolog, Dietist, Barnmorska, Svets, Motor, Slaktare, Mekaniker, Miljö, Tvätt, Idrott, Oceanograf, Geolog, Meteorolog, Fysiker, Kemist, El, Elektriker, Montör, Tulltjänst, Väktare, Inredning, Kallskänka, Servitör, Värd, Värdinna, Hovmästare, Köksmästare, Kock, Croupier, Bartender, Murare, Golvläggare, Kranförare, Byggnad, Betong, VVS, Jurist, Advokat, Mäklare, Logistik, Statistik, Åklagare, Revisor, Marknadsförsäljare, Telefonförsäljare, Telefonist, Skräddare, Skomakare, Tapetserare, Urmakare, Konditor, Glasmästare, Fiskare, Agronom, Djurskötare, Webmaster, Kurator, Personlig assistent, Fritidsledare, Barnskötare, Barnflicka, Barnvakt, Au pair, Präst, Begravningsentrepeneur, Inspektör, Socionom, Livräddare, Badvärd, Badvakt, Sommarjobb, Sommarjobb 2011, Exjobb, Extrajobb, Hygien, Integratör, Informatör, Musik, Astronomi, Ergonom, Rörmokare, Plåtslagare, Stenograf, Rekrytering, Rekryterare, Kontorist, Assistent, Byggare, Konstruktör, Förvaltare, Bagare, Pizzabagare, Strateg, Krog, Diskare, Administratör, Professor, Doktorand, Säkerhet, Försäljning, Inköpare, Controller, Redovisning, Hemtjänst, Gymnasie, Upphandlare, Kommunikatör, Marknadsassistent, Kravställare, Installatör, Översättare, Sanerare, Asfalterare, Borrare, Butiksäljare, Underwriter, Grafiker, Arkivarie, Bibliotekarie
<% Else ' ======== SHOW SEARCHRESULT PAGE ======== %>
Lediga jobb på LetaJobb.com - Jobbsökning i Sverige
     
    
Visar lediga jobb för sökning på

<% = strKeyword %>


Rekommenderade länkar
· LinkedIn.com
· CV-online
· AllaStudier.se
· Teknikjobb
· Ework IT uppdrag
· Hälsojobb

Sök på hitta.se
Vad söker du?
Var?



<% ' ================= RSS SEARCH ============== ' Parameters to RSS: xmlURL,RSSversion,itemLimit,boolDisplayChannelInfo,strKeyword, strRegion, byRef boolRSS_SearchResultsFound, boolUseKeywordInURL, boolFullDesc Response.write(getStagePoolJobs(strKeyword, strRegion, 100, boolShowDesc)) Response.write("
") Response.write(getToppjobbetJobs(strKeyword, strRegion, 100, boolShowDesc)) Response.write("
") If Len(strRegion) > 0 Then Call GetCustomResults(strKeyword, strRegion) If strRegion = "stockholm" Then ' Response.Write RSS("http://www.offentligajobb.se/ojcustomer2/default.aspx?accountid=144&rss=1",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) Response.Write RSS("http://www.pts.se/sv/Nyheter/Prenumerera/PTS---Lediga-jobb/",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, True) 'Response.Write RSS("http://www.smittskyddsinstitutet.se/rss/lediga-jobb--smittskyddsinstitutet/",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'This was empty for a while.. check again: Response.Write RSS("http://www.hsv.se/rss/jobb",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'Cant read this correctly by HTTP request of some reason! : Response.Write RSS("http://www.staffrec.se/rss.php?i=&lang=&secret=",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.sigtuna.se/templates/RssProviderExternalUrl____23511.aspx",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) End If If strRegion = "jonkoping" Then 'Response.Write RSS("http://www.hj.se/rss/lediga_anstallningar/",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.lernia.se/jobads/RssFeed.aspx?Fritext=" & URLEncodeUnicode(strKeyword) & "&Ort=J%c3%b6nk%c3%b6ping",2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) End If If strRegion = "skane" Then Response.Write RSS("http://www.hassleholm.se/news.rss?meta=1604&listNumber=30",2,50,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.hkr.se/templates/RssProvider____4616.aspx",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'Response.Write RSS("http://www.eslov.se/4.6c8603cb107de19ee7a800016198/12.3456b88a11951ec5b7a800025446.portlet?state=rss&sv.contenttype=text/xml;charset=UTF-8",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) ' PersonalDirekt probably temporary due to them planning to include Sthlm in 2008 Response.Write RSS("http://www.personaldirekt.se/rss/rss.php",1,50,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.trelleborg.se/Aktuellt/RSS/RSS-Platsannonser/",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, True) Response.Write RSS("http://www.lernia.se/jobads/RssFeed.aspx?Fritext=" & URLEncodeUnicode(strKeyword) & "&Ort=Malm%c3%b6",2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) Else Response.Write RSS("http://www.lernia.se/jobads/RssFeed.aspx?Fritext=" & URLEncodeUnicode(strKeyword) & "&Ort=" & strRegion,2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) End If ' Arvika.se tog bort sina jobb på RSS! 'If strRegion = "varmland" Then ' Response.Write RSS("http://www.arvika.se/aktuellt/jobblediga_jobb_rss.php",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'End If If strRegion = "kalmar" Then Response.Write RSS("http://www.hultsfred.se/templates/RssProvider____5369.aspx",2,30,False, strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) End If If strRegion = "vastragotaland" Then Response.Write RSS("http://www.boras.se/4.7243a9a4125d5ad4db1800018230/12.63fbc1fa126f45b1ad7800059532.portlet?state=rss&sv.contenttype=text/xml;charset=UTF-8",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) End If If strRegion = "gavleborg" then Response.Write RSS("http://www.sandviken.se/4.1ac5f13ff6eeee2657fff1157/12.1ac5f13ff6eeee2657fff1171.portlet?state=rss&contentType=text/xml;charset=UTF-8",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) End If If strRegion = "ostergotland" then Response.Write RSS("http://www.liu.se/rss/liu-jobs-sv.rss",1,50,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) End If If strRegion = "halland" then ' Response.Write RSS("http://www.offentligajobb.se/ojcustomer2/default.aspx?accountid=263&RSS=1",2,40,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) End If Response.Write RSS("http://jobbsok.cs.idg.se/jobs/results/keyword/" & strKeyword & "?location=" & strRegion & "&radius=30&sort=ModifiedDate+desc&format=rss",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) Response.Write RSS("http://www.careerjet.se/search/rss.html?s=" & URLEncodeUnicode(strKeyword) & "&l=" & strRegion & "&sb_lang=&lid=" & getCJ_area_id(strRegion) ,2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) ' Response.Write RSS("http://www.careerjet.com/search/rss.html?s=" & URLEncodeUnicode(strKeyword) & "&l=" & strRegion & "&sb_lang=&lid=" & getCJ_area_id(strRegion) ,2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) Response.Write RSS("http://www.jobsafari.se/cgi/jobsearch.cgi?xml=true&output=rss&q=" & Server.URLEncode(strKeyword) & "®ion=" & strRegion,2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) 'If boolJobsafariFailed = True Then ' Response.Write RSS("http://jobb.eniro.se/cgi/jobsearch.cgi?xml=true&output=rss&q=" & Server.URLEncode(strKeyword) & "&subid=®ion=" & strRegion,2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) 'End If Response.Write RSS("http://www.workey.se/rss.php?_qstr=" & strKeyword & "&_reg=" & getWORKEY_area_id(strRegion),2,100,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) Else Call GetCustomResults(strKeyword, strRegion) 'Response.Write RSS("http://www.toppjobbet.se/feed/",2,40,False, strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.chefsjobb.se/rss.php",2,40,False, strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://sskwebben.se/sjukskoterskejobb/rss/all",2,40,True, strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.hultsfred.se/templates/RssProvider____5369.aspx",2,20,False, strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'Response.Write RSS("http://www.hj.se/rss/lediga_anstallningar/",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'Response.Write RSS("http://www.arvika.se/aktuellt/jobblediga_jobb_rss.php",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'Response.Write RSS("http://www.raddningsverket.se/templates/RssProvider____13821.aspx",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'Response.Write RSS("http://www.eslov.se/4.6c8603cb107de19ee7a800016198/12.3456b88a11951ec5b7a800025446.portlet?state=rss&sv.contenttype=text/xml;charset=UTF-8",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.boras.se/4.7243a9a4125d5ad4db1800018230/12.63fbc1fa126f45b1ad7800059532.portlet?state=rss&sv.contenttype=text/xml;charset=UTF-8",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.sandviken.se/4.1ac5f13ff6eeee2657fff1157/12.1ac5f13ff6eeee2657fff1171.portlet?state=rss&contentType=text/xml;charset=UTF-8",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'This was empty for a while.. check again: Response.Write RSS("http://www.hsv.se/rss/jobb",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.personaldirekt.se/rss/rss.php",1,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.trelleborg.se/Aktuellt/RSS/RSS-Platsannonser/",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, True) Response.Write RSS("http://www.pts.se/sv/Nyheter/Prenumerera/PTS---Lediga-jobb/",2,10,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, True) Response.Write RSS("http://www.lantmateriet.se/templates/RssJobProvider.aspx?id=12850",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.lernia.se/jobads/RssFeed.aspx?Fritext=" & URLEncodeUnicode(strKeyword),2,40,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) Response.Write RSS("http://www.safemind.se/feeds/jobb",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.liu.se/rss/liu-jobs-sv.rss",1,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.hkr.se/templates/RssProvider____4616.aspx",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.hassleholm.se/news.rss?meta=1604&listNumber=30",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'Response.Write RSS("http://www.smittskyddsinstitutet.se/rss/lediga-jobb--smittskyddsinstitutet/",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) ' Response.Write RSS("http://www.offentligajobb.se/ojcustomer2/default.aspx?accountid=144&rss=1",2,20,True,strKeyword, "stockholm", boolRSS_SearchResultsFound, True, boolShowDesc) ' Response.Write RSS("http://www.offentligajobb.se/ojcustomer2/default.aspx?accountid=263&RSS=1",2,20,True,strKeyword, "halland", boolRSS_SearchResultsFound, True, boolShowDesc) Response.Write RSS("http://www.vikarien.se/feeds/ledigaJobb.php",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) 'GAMMAL!! -> Response.Write RSS("http://what.se/rss-what-job.asp",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://jobbsok.cs.idg.se/jobs/results/keyword/" & strKeyword & "?radius=0&sort=ModifiedDate+desc&format=rss",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) Response.Write RSS("http://www.academicwork.se/jobblistan.rss",2,30,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.careerjet.se/search/rss.html?s=" & URLEncodeUnicode(strKeyword) & "&l=Sverige&sb_lang=&lid=171809",2,200,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) ' Response.Write RSS("http://www.careerjet.com/search/rss.html?s=" & URLEncodeUnicode(strKeyword) & "&l=Sweden&sb_lang=&lid=171809",2,200,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) ' TOO OLD! Response.Write RSS("http://syo.webblogg.se/index.rss",2,20,True,strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) Response.Write RSS("http://www.jobsafari.se/cgi/jobsearch.cgi?xml=true&output=rss&q=" & Server.URLEncode(strKeyword) & "®ion=sverige",2,200,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) 'If boolJobsafariFailed = True Then ' Response.Write RSS("http://jobb.eniro.se/cgi/jobsearch.cgi?xml=true&output=rss&q=" & Server.URLEncode(strKeyword) & "&subid=®ion=sverige",2,200,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) 'End If Response.Write RSS("http://www.workey.se/rss.php?_qstr=" & strKeyword & "&_reg=0",2,200,True,strKeyword, strRegion, boolRSS_SearchResultsFound, True, boolShowDesc) 'Response.Write RSS("http://ronden.se/jobb/rss/all",2,40,True, strKeyword, strRegion, boolRSS_SearchResultsFound, False, boolShowDesc) End If ' Response.write(getStepstoneJobs(strKeyword, strRegion, 100, boolShowDesc)) ' Response.Write "" If boolRSS_SearchResultsFound = False Then Response.Write "

Tyvärr hittades för tillfället inga sökträffar på "" & strKeyword & """ If Len(strRegion) > 0 Then Response.Write " i det valda länet.
Prova en sökning i hela Sverige för att vara säker på att inte gå miste om några lediga tjänster!
" Response.Write "» Visa sökresultat i hela Sverige" Else Response.Write "." End if Response.Write "



" End If ' =============================================== %>
Annonser:
<% If boolRSS_SearchResultsFound = True Then Response.Write "
^ Topp" End If %>
<% End If %>