<%@ Language=VBScript %> <%Option Explicit%> <% ' Variable for the form elements dim strContactBus dim strFileNumber dim strLastName dim strFirstName dim strAddress dim strSuite dim strCity dim strProvince dim strPostalCode dim strCountry dim strHomePhone dim strCellPhone dim strWorkPhone dim strFax dim strEmail dim strCompany dim strCContact dim strCTitle dim strCAddress dim strCSuite dim strCCity dim strCProvince dim strCPostalCode dim strCCountry dim strCPhone dim strCCell dim strCFax dim strCEmail dim strCollector dim strDescGoods dim strDateSupply dim strGoodsVal dim strAmountDep dim strPayMethod dim strContract dim strConcern dim strResolve dim strInfoSource dim strAgree dim ErrMessage dim newLink 'variables for confirmation page dim strEmailTemplate 'stores the template file we will email dim strDisplayTemplate 'stores the template we will display to the user dim boolResult 'stores true/false from the mail delivery dim strNow 'the submission date/time in yyyy/mm/dd hh:mm:ss PM format dim strDate 'the date of submission 'variable to load our templates dim absPath 'variable for mail server dim serverHostName 'server's host name, DNS alias dim emailAddress 'email address to send form to '-------------------------------------------------------------------------------------- ' Main Logic '-------------------------------------------------------------------------------------- serverHostName = LCase (Request.ServerVariables ("SERVER_NAME")) 'Response.Write "SERVER NAME = " + serverHostName ' if Request.ServerVariables("HTTPS") = "on" then if Request.ServerVariables("HTTPS") = "off" then newLink = "https://" + serverHostName + Request.ServerVariables("URL") Response.Redirect newLink else if Request.Form("PageSubmittedFlag") = "true" then Call CheckError If ErrMessage = "" then call Confirm else Call SetFormData Call BuildForm end if else Call BuildForm end if end if '************************************************************************************* ' ' Page Specific Functions and Subs ' '************************************************************************************* '-------------------------------------------------------------------------------------- Sub BuildForm '-------------------------------------------------------------------------------------- Call BuildHeader %>
Formule de plainte
Le ministère des Services aux consommateurs essaie de résoudre les différends entre les consommateurs et les entreprises.  Vous devez écrire une lettre de plainte à l’entreprise pour voir si elle peut résoudre le problème avant de nous transmettre votre plainte.  Vos préoccupations ne seront pas traitées tant que vous n’aurez pas communiqué directement avec l’entreprise.

Si vous avez déjà écrit à l'entreprise, vous pouvez nous transmettre une plainte en ligne en remplissant ce formulaire.  Dans les 15 jours suivant le dépôt de votre plainte, vous devrez fournir au Ministère tous les documents que vous possédez à l’appui de votre cas (p. ex., contrat, factures, preuve de paiement, correspondance, avis d’annulation).  Vous pouvez envoyer les documents d’appoint par la poste, par messager, par télécopieur ou par courrier électronique avec pièces jointes.  Si ces documents ne parviennent pas au Ministère dans ce délai de 15 jours, nous présumerons que vous avez résolu vos préoccupations et nous fermerons votre dossier.

Veuillez envoyer les documents d’appoint à :
    Ministère des Services aux consommateurs
    Direction de la protection du consommateur
    5775 rue Yonge, bureau 1500
    Toronto ON  M7A 2E5
    Télécopieur : 416 326-8665
    Courriel : consumer@ontario.ca

<% If len(ErrMessage) > 0 then Response.Write ("

" + ErrMessage + "

") End if %>
Veuillez répondre aux questions une à 13 de cette formule.
1
Adresse postale du consommateur
2
Information nécessaire pour répondre au consommateur
3
Objet de la plainte














4
5
6 a) $
b) $
7
Mode de paiement des biens ou des services :
       checked <% end if%>>       checked <% end if%>>       checked <% end if%>>       checked <% end if%>>       checked <% end if%>>       checked <% end if%>>
8
Comment avez-vous conclu votre convention ?  Par :
       checked <% end if%>>     checked <% end if%>>     checked <% end if%>>     checked <% end if%>>     checked <% end if%>>     checked <% end if%>>
9
10
11
12
Avez-vous écrit à l’entreprise concernant ce problème ?
       checked <% end if%>>     checked <% end if%>>    
13

Avis important

Les renseignements personnels recueillis sur ce formulaire et sur toutes les soumissions subséquentes sont traités en conformité avec le paragraphe 38(2) de la Loi sur l’accès à l’information et la protection de la vie privée, L.R.O. 1990, chap. F.31 et la Loi de 2002 sur la protection du consommateur, L.O. 2002, chap. 30, ann. A, telles que modifiées.

Votre nom ne sera placé sur aucune liste d’envoi.  Les renseignements personnels que vous fournissez ne seront utilisés qu’aux fins de médiation de plainte et/ou d’enquête sur les pratiques d’affaires de cette entreprise.  En soumettant ce formulaire, vous déclarez que les renseignements fournis sont vrais et exacts.  Vous consentez également à ce que les renseignements que vous fournissez soient communiqués à l’entreprise en cause, à tout ministère gouvernemental (fédéral ou provincial), agence, bureau ou commission, à tout organisme ou association d’autoréglementation et à tout organisme d’application de la loi.

checked <%end if%>>     

  

<% Call BuildFooter End Sub '-------------------------------------------------------------------------------------- Sub Confirm '-------------------------------------------------------------------------------------- absPath = Server.MapPath ("/compform/template.txt") strEmailTemplate = ReadTextFile (absPath) absPath = Server.MapPath ("/compform/Francais/template_prt.txt") strDisplayTemplate = ReadTextFile (absPath) 'store the submission date so we can keep the same date on 'the email and the form we will display to the user strDate = now () 'populate the template to mail it with submission date in english strNow = Year(strDate)& "/" & Month(strDate) & "/" & Day(strDate) & " " & Time strEmailTemplate = PopulateTemplate (strEmailTemplate, "Y") 'send mail to different email address based on the server name Select Case serverHostName Case "wwwdev.consumerbeware.ebc.gov.on.ca" 'DEVELOPMENT emailAddress = "winnie.kwong@ontario.ca" Case "stage.consumerbeware.mgs.gov.on.ca" 'UAT emailAddress = "kenny.fernandes@ontario.ca" Case "www.consumerbeware.mgs.gov.on.ca" 'PRODUCTION emailAddress = "consumer@ontario.ca" End Select boolResult = SendTheMail ("complaint@internet.com", emailAddress, "E-Complaint", strEmailTemplate, true) 'If boolResult = true then ' To check error message has to set status to OK If boolResult = false then call BuildHeader call SendError call BuildFooter else 'now prepare the display page with date in french for complaintant confirmation strNow = Day(strDate)& "/" & Month(strDate) & "/" & Year(strDate) & " à " & hour(Time) & " h " & minute(Time) strDisplayTemplate = PopulateTemplate (strDisplayTemplate, "N") Response.Write (strDisplayTemplate) end if End Sub '-------------------------------------------------------------------------------------- Function ReadTextFile (strPath) '-------------------------------------------------------------------------------------- dim objFso dim objFile dim strText dim strCode strCode = "Sorry the source code could not be accessed." Set objFso = Server.CreateObject ("Scripting.FileSystemObject") if objFso.FileExists (strPath) then Set objFile = objFso.OpenTextFile (strPath) strText = objFile.ReadAll() Set objFile = Nothing end if Set objFso = Nothing 'return ReadTextFile = strText End Function '-------------------------------------------------------------------------------------- Function PopulateTemplate (strTemplate, strEmail) '-------------------------------------------------------------------------------------- dim i 'loop counter dim strFieldName 'stores the current field marker while in the collection dim strFormValue 'stores the form value 'set our counter i = 1 'add the date info strTemplate = Replace (strTemplate, ":FieldDateTime:", strNow) 'add the rest of the form data into our template do while i <= Request.Form.Count strFieldName = ":Field" & Request.Form.Key (i) & ":" strFormValue = Request.Form (CStr (Request.Form.Key (i))) 'convert radio button from french to english for e-mail if strEmail = "Y" and ( i = 33 or i = 34 or i=38 ) then strFormValue = FixFrench (strFormValue) end if 'replace null with a space to keep the table border right if len (trim (strFormValue)) = 0 then strFormValue = " " strTemplate = Replace (strTemplate, strFieldName, strFormValue) i = i + 1 loop 'return the result PopulateTemplate = strTemplate End Function '---------------------------------------------------------------------------- Function SendTheMail (strFrom, strTo, strSubject, strMessage, boolHTML) '-------------------------------------------------------------------------------------- Dim MyMail Dim MyMailConfig Dim MyMailServer Set MyMail = Server.CreateObject("CDO.Message") Set MyMailConfig = Server.CreateObject ("CDO.Configuration") With MyMailConfig.Fields .ITEM("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .ITEM("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Get mail server name Select Case serverHostName Case "wwwdev.consumerbeware.ebc.gov.on.ca" 'DEVELOPMENT MyMailServer = "suesmtp.ebc.gov.on.ca" Case "stage.consumerbeware.mgs.gov.on.ca" 'UAT MyMailServer = "eesuatrelay.gov.on.ca" Case "www.consumerbeware.mgs.gov.on.ca" 'PRODUCTION MyMailServer = "eesrelay.gov.on.ca" End Select .ITEM("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MyMailServer .UPDATE End With Set MyMail.Configuration = MyMailConfig MyMail.From = strFrom MyMail.To = strTo MyMail.Subject = strSubject MyMail.HTMLBody = strMessage On error resume next MyMail.Send() Set MyMail = Nothing if Err.Number = 0 then SendTheMail = true else SendTheMail = false end if End Function '-------------------------------------------------------------------------------------- Function FixFrench (strTest) '-------------------------------------------------------------------------------------- dim strRet Select Case strTest case "Comptant" strRet = "Cash" case "Chèque" strRet = "Cheque" case "Carte bancaire" strRet = "Debit Card" case "Carte de crédit" strRet = "Credit Card" case "Mandat" strRet = "Money Order" case "Courrier" strRet = "Mail" case "Porte-à-porte" strRet = "Door-to-door" case "Au comptoir" strRet = "Over the Counter" case "Commerce électronique" strRet = "E-commerce" case "Téléphone" strRet = "Telephone" case "S/O" strRet = "N/A" case "Oui" strRet = "Yes" case "Non" strRet = "No" case else strRet = strTest End Select FixFrench = strRet End Function '-------------------------------------------------------------------------------------- Sub SendError '-------------------------------------------------------------------------------------- %>

Votre formulaire de plainte ne peut être acheminé en ce moment à cause de difficultés techniques.  Veuillez essayer de nouveau plus tard.  Pour communiquer directement avec nous, composez le 1 800 889-9768.

<% if Request.Form("JSEnabledFlag") = "Yes" then %>
  
<% end if %>

<% End Sub '-------------------------------------------------------------------------------------- Sub CheckError '-------------------------------------------------------------------------------------- ErrMessage = "" if len(trim(Request.Form("LastName")))= 0 then ErrMessage = "Veuillez inscrire votre nom." end if if len(trim(Request.Form("FirstName")))= 0 then ErrMessage = ErrMessage + "
" + "Veuillez inscrire votre prénom." end if if len(trim(Request.Form("Address")))= 0 then ErrMessage = ErrMessage + "
" + "Veuillez inscrire votre adresse." end if if len(trim(Request.Form("InfoSource")))= 0 then ErrMessage = ErrMessage + "
" + "Veuillez répondre à la question numéro onze « Où avez-vous entendu parler de nous ? »." end if if len(trim(Request.Form("Agree")))= 0 then ErrMessage = ErrMessage + "
" + "Veuillez cocher la case « Je suis d'accord dans la Question treize." end if if len(trim(Request.Form("Collector")))> 40000 then 'Response.Write len(trim(Request.Form("Collector"))) ErrMessage = ErrMessage + "
" + "Vous avez dépassé le nombre maximum de caractères permis dans la dernière section de la Question trois. Révisez SVP." end if if len(trim(Request.Form("DescGoods")))> 40000 then ErrMessage = ErrMessage + "
" + "Vous avez dépassé le nombre maximum de caractères permis dans la Question quatre. Révisez SVP." end if if len(trim(Request.Form("Concern")))> 40000 then ErrMessage = ErrMessage + "
" + "Vous avez dépassé le nombre maximum de caractères permis dans la Question neuf. Révisez SVP." end if if len(trim(Request.Form("Resolve")))> 40000 then ErrMessage = ErrMessage + "
" + "Vous avez dépassé le nombre maximum de caractères permis dans la Question dix. Révisez SVP." end if End Sub '-------------------------------------------------------------------------------------- Sub SetFormData '-------------------------------------------------------------------------------------- strFileNumber = Request.Form ("FileNumber") strLastName = Request.Form ("LastName") strFirstName = Request.Form ("FirstName") strAddress = Request.Form ("Address") strSuite = Request.Form ("Suite") strCity = Request.Form ("City") strProvince = Request.Form ("Province") strPostalCode = Request.Form ("PostalCode") strCountry = Request.Form ("Country") strHomePhone = Request.Form ("HomePhone") strCellPhone = Request.Form ("CellPhone") strWorkPhone = Request.Form ("WorkPhone") strFax = Request.Form ("Fax") strEmail = Request.Form ("Email") strCompany = Request.Form ("Company") strCContact = Request.Form ("CContact") strCTitle = Request.Form ("CTitle") strCAddress = Request.Form ("CAddress") strCSuite = Request.Form ("CSuite") strCCity = Request.Form ("CCity") strCProvince = Request.Form ("CProvince") strCPostalCode = Request.Form ("CPostalCode") strCCountry = Request.Form ("CCountry") strCPhone = Request.Form ("CPhone") strCCell = Request.Form ("CCell") strCFax = Request.Form ("CFax") strCEmail = Request.Form ("CEmail") if len(trim(Request.Form("Collector")))> 40000 then strCollector = mid(Request.Form ("Collector"),1,40000) else strCollector = Request.Form ("Collector") end if if len(trim(Request.Form("DescGoods")))> 40000 then strDescGoods = mid(Request.Form ("DescGoods"),1,40000) else strDescGoods = Request.Form ("DescGoods") end if strDateSupply = Request.Form ("DateSupply") strGoodsVal = Request.Form ("GoodsVal") strAmountDep = Request.Form ("AmountDep") strPayMethod = Request.Form ("PayMethod") strContract = Request.Form ("Contract") if len(trim(Request.Form ("Concern")))> 40000 then strConcern = mid(Request.Form ("Concern"),1,40000) else strConcern = Request.Form ("Concern") end if if len(trim(Request.Form("Resolve")))> 40000 then strResolve = mid(Request.Form ("Resolve"),1,40000) else strResolve = Request.Form ("Resolve") end if StrInfoSource = Request.Form ("InfoSource") strContactBus = Request.Form ("ContactBus") StrAgree = Request.Form ("Agree") End Sub '-------------------------------------------------------------------------------------- Sub BuildHeader '-------------------------------------------------------------------------------------- %> Formule de plainte
<% End Sub '-------------------------------------------------------------------------------------- Sub BuildFooter '-------------------------------------------------------------------------------------- %>
<% End Sub %>