<% 'Auslesen des templates aus der HTML Vorlage function get_template(template) templcode = "" Set objTemplate = Server.CreateObject("Scripting.FileSystemObject") Set objText = objTemplate.OpenTextFile(Server.MapPath(template),1,false) templcode = templcode & objText.ReadAll objText.Close Set objText = Nothing Set objTemplate = Nothing get_template = templcode END FUNCTION IF Request.Form.Count > 0 THEN IF (CSTR(Session("RND")) <> CSTR(Request.Form("_code"))) OR (CSTR(Session("RND")&"") = "") THEN ResponseTo = "/index.asp?topic_id=80" ELSE Template = get_template("/mod_jajah/mail.html") 'Pfad zur Datei mit der Vorlage MessageText = "" MailTo = "parcon@parcon.ch" MailFrom = Request.Form("Email") MailFromName = Request.Form("Nachname") & " " & Request.Form("Vorname") MailSubject = "Anrufversuch über die Website" ResponseTo = "/index.asp?topic_id=79" '**************************************************************************************** For i=1 To request.form.count if not left(request.form.key(i),1) = "_" AND request.form.key(i) <> "submit" then MessageText = MessageText & request.form.key(i) & ": " & request.form.item(i) & "
" & vbCrLf If request.form.key(i) = "Nachname" then sNachname = request.form.item(i) If request.form.key(i) = "Vorname" then sVorname = request.form.item(i) Next '**************************************************************************************** Set objMail = Server.CreateObject("Persits.MailSender") objMail.Host = "localhost" objMail.From = MailFrom objMail.FromName = MailFromName objMail.Subject = MailSubject arrMailTo = SPLIT(MailTo,";") FOR EACH mail2 in arrMailTo objMail.AddAddress mail2, mail2 NEXT arrMailFrom = SPLIT(MailFrom,";") FOR EACH mail in arrMailFrom objMail.AddCC mail, mail NEXT sCode = Template sCode = Replace(sCode,"##message##",MessageText) sCode = Replace(sCode,"##nachname##",sNachname) sCode = Replace(sCode,"##vorname##",sVorname) objMail.Body = sCode objMail.IsHTML = True objMail.Send Set objMail = nothing End If Response.redirect ResponseTo END IF %>