<% Session.lcid = 1053 Response.Buffer = FALSE 'Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 function safeString(sInput) Dim sOutput sOutput = Trim(sInput) sOutput = Replace(sOutput, Chr(34), "'") 'single quote: Chr(39) - double: Chr(34) safeString = sOutput end function %> Utbildningar och kurser - Hitta rätt utbildning / kurs för dig - LetaJobb.com
Lediga jobb på LetaJobb.com - Jobbsökning i Sverige
     
    

Hitta kurs / utbildning som passar dig

 - Från olika utbildningsföretag

Utbildning
· Utbildningar & Kurser

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

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


<% Dim formSubmit, objMail, strBody, requestItem, boolBotCheckPassed formSubmit = safeString(Request.Form("sendbutton")) ' Extra check for BOT protection boolBotCheckPassed = true If Len(formSubmit) > 0 Then if Request.Form("Kategori") = "Välj" then boolBotCheckPassed = false end if if Request.Form("Plats") = "Välj" then boolBotCheckPassed = false end if if Request.Form("Antal") = "Välj" then boolBotCheckPassed = false end if if Len(Request.Form("Namn")) < 8 then boolBotCheckPassed = false end if if Len(Request.Form("Foretag")) < 3 then boolBotCheckPassed = false end if if Len(Request.Form("Epost")) < 6 then boolBotCheckPassed = false end if if Len(Request.Form("Telefon")) < 6 then boolBotCheckPassed = false end if End If If Len(formSubmit) > 0 and boolBotCheckPassed Then strBody = "Detta är en automatisk offertförfrågan som skickats av en besökare på LetaJobb.com" & vbNewLine & vbNewLine & vbNewLine 'For Each requestItem In Request.Form ' if not requestItem = "sendbutton" then ' strBody = strBody & requestItem & ": " & Request.Form(requestItem) & vbNewLine & vbNewLine ' end if 'Next strBody = strBody & "Kategori: " & Request.Form("Kategori") & vbNewLine & vbNewLine strBody = strBody & "Rubrik: " & Request.Form("Rubrik") & vbNewLine & vbNewLine strBody = strBody & "Tidpunkt: " & Request.Form("Tidpunkt") & vbNewLine & vbNewLine strBody = strBody & "Plats: " & Request.Form("Plats") & vbNewLine & vbNewLine strBody = strBody & "Antal dagar: " & Request.Form("Dagar") & vbNewLine & vbNewLine strBody = strBody & "Antal personer: " & Request.Form("Antal") & vbNewLine & vbNewLine strBody = strBody & "Syfte: " & Request.Form("Syfte") & vbNewLine & vbNewLine strBody = strBody & "Deltagare: " & Request.Form("Deltagare") & vbNewLine & vbNewLine strBody = strBody & "Upplysningar: " & Request.Form("Upplysningar") & vbNewLine & vbNewLine strBody = strBody & "Namn: " & Request.Form("Namn") & vbNewLine & vbNewLine strBody = strBody & "Foretag: " & Request.Form("Foretag") & vbNewLine & vbNewLine strBody = strBody & "Epost: " & Request.Form("Epost") & vbNewLine & vbNewLine strBody = strBody & "Telefon: " & Request.Form("Telefon") & vbNewLine & vbNewLine ' http://www.w3schools.com/asp/asp_send_email.asp Set objMail = Server.CreateObject("CDO.Message") ' Set the properties of the object objMail.From = "info@letajobb.com" 'objMail.To = "bevakning@utbildning.nu" objMail.Cc = "info@letajobb.com" 'objMail.Bcc = "shahin.alborz@getupdated.com" objMail.Subject = "Offertförfrågan från LetaJobb.com" objMail.TextBody = strBody ' Some of the more useful ones I've included samples of here: 'objMail.Cc = "mailto:sschofield@aspfree.com;steve@aspfree.com" Notice this sending to more than one person! 'objMail.Bcc = "sschofield@aspfree.com;steve@aspfree.com" 'objMail.Importance = 1 'objMail.AttachFile "c:\path\filename.txt", "filename.txt" ' Send the message! 'objMail.Send Set objMail = Nothing %>

Din förfrågan har skickats!

Vi kommer nu att påbörja matchningen av ditt utbildningsbehov. Inom kort kommer du att bli kontaktad av 3-5 olika utbildningsföretag som önskar lämna offert på din utbildning. <% Else %>

Vi hjälper dig eller ditt företag att hitta rätt kurs!

Vi arbetar med att ta fram en tjänst för att hjälpa dig hitta de bästa kurserna till bästa pris.

Vi söker fortfarande efter en tillräckligt bra samarbetspartner för att ge er de. Tjänsten är planerad att införas under vår/sommar 2011. <% End If %>
<% '

' ' %>