<%@LANGUAGE="VBSCRIPT" %> <% ' --------------- recuperem l'idioma idioma="CAT" ' conecta cnn %>

| <%=mostraEtiqueta(cnn,"capsalera0_2",obreT("taula"),"wwwTaules")%> | <% ' envia un mail segons els elements que es demanin qElements = Request ("pElements") 'response.write(qElements) idDesti=Request("pDesti") 'response.write(qDesti) ' -- Alex -- qDesti=previMail(cnn,idDesti,"taula1") select case qElements case "A" mailA case "B" mailB case "C" mailC case else MailA end select sub mailA ' només permet escriure el cos qRao=Request("pRao") %> Escriu la teva adreça de email : Assumpte del correu (Subject) : <%response.write(qRao)%> Cos del missatge <% end sub sub mailB ' només permet escriure el cos i adjuntar un fitxer qRao=Request("pRao") %> Escriu la teva adreça de email : Assumpte del correu (Subject) : <%response.write(qRao)%> Cos del missatge Adjuntar un arxiu: <% end sub sub mailC ' només permet escriure un cos i l'assumpte %> Escriu la teva adreça de email : Assumpte del correu (Subject) : Cos del missatge <% end sub %>