JAMCél: Envoyer une cyberlettre

<%@ LANGUAGE="VBSCRIPT" %> <% DIM Main %> JAMCél: Envoyer une cyberlettre

Journal de l'Association médicale canadienne

Page d'accueil

Table des matières gratuit
Les cyberlettres
Le journal
Renseignements aux auteurs

PubMed

Envoyer une cyberlettre

<% If Request.Form("title") <> "" Then %>

<%= Request.Form("title") %> <% If Request.Form("preview") <> "true" And Request.Form("preview") <> "send" Then %>

"> ">

Un rédacteur du JAMC filtrera les lettres électroniques. Nous voulons afficher, au plus tard le jour ouvrable suivant, la correspondance qui apporte une contribution importante au sujet de la discussion. Les auteurs doivent fournir leur nom, leur affiliation et leur adresse électronique, mais ils peuvent demander qu'on ne publie pas celle-ci. Nous demandons aux auteurs de déclarer tout intérêt concurrent. On envisagera de publier les lettres électroniques dans le JAMC.

En cas de difficulté, veuillez envoyer un message électronique à pubs@cma.ca, y inclus tous les renseignements demandés dans le formulaire.

Nom :

Affiliation :

Adresse électronique :

Pouvons-nous imprimer votre adresse électronique avec votre réponse?    Oui    Non

Titre suggéré :

Vos commentaires :

<% else %> <% If Request.Form("preview") <> "send" Then %> <% Main = Request.Form("main") Main = Replace(Main, """", "'") Main = Replace(Main, Chr(13), "%0A") Main = Replace(Main, Chr(10), "%0D") %> <% else Main = Request.Form("main") Main = Replace(Main, "%0A%0D", VbCrLf) Main = Replace(Main, "%0D%0A", VbCrLf) Main = Replace(Main, "%0A", VbCrLf) Main = Replace(Main, "%0D", VbCrLf) Main = "Titre suggéré : " & Request.Form("suggesttitle") & VbCrLf & VbCrLf & Main Main = "Imprimer le message : " & Request.Form("viewemail") & VbCrLf & Main Main = "Adresse électronique : " & Request.Form("email") & VbCrLf & Main Main = "Affiliation : " & Request.Form("affiliation") & VbCrLf & Main Main = "Author: " & Request.Form("name") & VbCrLf & Main Main = "COMMENTS:" & VbCrLf & Main Main = "Location: " & Request.Form("file") & VbCrLf & VbCrLf & Main Main = "Titre: " & Request.Form("title") & VbCrLf & Main Main = "ARTICLE:" & VbCrLf & Main Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.Form("nom") Mailer.FromAddress = Request.Form("email") Mailer.RemoteHost = "192.168.2.1" Mailer.AddRecipient "eLetters Service", "my2cents@cma.ca" Mailer.Subject = "Your Comments submission" Mailer.BodyText = Main if Mailer.SendMail then Response.Write "

" & VbCrLf & "Vos commentaires ont été acheminés." else Response.Write "

" & VbCrLf & "Votre message n'a pas été envoyé. L'erreur est " & Mailer.Response end if %> <% end if %> <% end if %> <% else %>

Vous devez accéder à ce formulaire par la page d'un article du JAMCél. Si vous croyez que ce message est erroné, prière de nous en avertir en envoyant un mot à l'adresse cmaonline@cma.ca. <% end if %>