% @LANGUAGE = VBScript %> <% Option Explicit %> <% Dim strBody, strNavn, strEmail, strKommentar strNavn = Trim(Request.Form("Navn")) strEmail = Trim(Request.Form("Email")) strKommentar = Trim(Request.Form("Kommentar")) If (strNavn <> "" And strEmail <> "") Then Dim objMail, aRecipients Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = strEmail objMail.To = "redaktion@dpt.dk" objMail.Subject = "Nyhedsmail: " & strNavn strBody = "Nyhedsmail :" & vbcrlf strBody = strBody & "Navn : " & strNavn & vbcrlf strBody = strBody & "E-mail : " & strEmail & vbcrlf strBody = strBody & "Kommentar : " & strKommentar objMail.Body = strBody objMail.Send Set objMail = Nothing Response.Redirect ("http://www.dpt.dk/kvittering.htm") Response.End Else %>
|
|
Brug DpT i undervisningenDu har mulighed for at modtage orientering om kommende numre af DpT med præsentation af indhold og en introduktion til nummerets tema, så snart det går i trykken. Vi håber med denne mailservice at inspirere til en mere målrettet anvendelse af DpT i undervisningen på professionshøjskoler, universiteter og andre uddannelsessteder. Enkeltnumre og artikler kan rekvireres her. Du er velkommen til at sende os ideer til kommende temaer og forslag til artikler i DpT. Ros og ris modtages med glæde.
|
|