onload="window.alert('Tack för att du tog dig tid att svara på våra frågor!')" <%END IF%>>

Hjälp oss att bli bättre

Betygsätt och ge dina synpunkter på oss så vi får ett underlag att vidareutveckla oss ifrån.
Du kan välja att vara anonymt men vi kan då inte besvara eller bemöta svaren.
Fyll i valfria "boxar" och avsluta gärna med egen kommentar.
Bakgrund
Ditt namn: Företag:
Befattning:

Typ av arbetsplats:
Arbetets art:
Hur togs kontakten:
Anlitad förare från oss:             
 
Betygsätt...
... samarbetet/kontakten med föraren från oss
… samarbetet/kontakten med övriga förare från oss
… samarbetet/kontakten med kontoret
… utförandet/kvalitén/slutresultatet
… din nytta av en samordnad Schaktgrupp
… ditt framtida behov av Schaktgruppen
… de rekommendationer du ger om Schaktgruppen
 
Egna kommentarer:
<% IF Request("action")="send" THEN Set CDONTSObj = Server.CreateObject("CDONTS.NewMail") CDONTSObj.To = "info@schaktgruppen.se" CDONTSObj.From = "Hemsidan" MessageBody = "Namn: " & Request.form("namn") + chr(10) MessageBody = MessageBody & "Företag: " & Request.form("foretag") + chr(10) MessageBody = MessageBody & "Befattning: " & Request.form("befattning") + chr(10) MessageBody = MessageBody & "Arbetsplats: " & Request.form("arbetsplats") + chr(10) MessageBody = MessageBody & "Arbetets art: " & Request.form("arbetets") + chr(10) MessageBody = MessageBody & "Kontakten: " & Request.form("kontakten") + chr(10) MessageBody = MessageBody & "Förare: " & Request.form("Forare") + chr(10) MessageBody = MessageBody & "kontakt/föraren: " & Request.form("1") + chr(10) MessageBody = MessageBody & "kontakt/övriga: " & Request.form("2") + chr(10) MessageBody = MessageBody & "kontakt/kontoret: " & Request.form("3") + chr(10) MessageBody = MessageBody & "Utförandet: " & Request.form("4") + chr(10) MessageBody = MessageBody & "Samordnad SG: " & Request.form("5") + chr(10) MessageBody = MessageBody & "Behov av SG: " & Request.form("6") + chr(10) MessageBody = MessageBody & "Rekommendationer: " & Request.form("7") + chr(10) MessageBody = MessageBody & "Kommentar: " & Request.form("kommentarer") + chr(10) CDONTSObj.Subject = "Enkät från hemsidan" CDONTSObj.Body = MessageBody CDONTSObj.Send Set CDONTSObj = nothing END IF %>