Hallo rac
in einer site verwende ich ein mailer.asp meines providers, das aus dem Jahr 2001 stammt:
<%
For i=1 To request.querystring.count
if not left(request.querystring.key(i),1) = "_" then Daten = Daten & request.querystring.key(i) & ": " & request.querystring.item(i) & vbCrLf
Next
' Lade Die Vorlage von der Harddisk
Set FileStreamObject = CreateObject("Scripting.FileSystemObject")
Set ReadStream = FileStreamObject.OpenTextFile (Server.MapPath("/webscripts/vorlage.txt"),1)
Vorlage = ReadStream.ReadAll
Set FileStreamObject = Nothing
Set ReadStream = Nothing
' Ersetze die Platzhalter
Vorlage = replace(Vorlage,"<!!DATEN!!>",Daten)
Vorlage = replace(Vorlage,"<!!IP!!>",Request.ServerVariables("REMOTE_ADDR"))
Vorlage = replace(Vorlage,"<!!DATE!!>",date)
Vorlage = replace(Vorlage,"<!!TIME!!>",time)
' Sende das Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = request.querystring("_Host")
Mail.From = request.querystring("_MailFrom")
Mail.FromName = request.querystring("_MailFromName")
Mail.Subject = request.querystring("_MailSubject")
Mail.AddAddress request.querystring("_EMail")
Mail.Body = Vorlage
On Error Resume Next
Mail.Send
If Err = 0 Then
Response.redirect request.querystring("_DankePage")
else
Response.redirect request.querystring("_FehlerPage")
End If
%>
Ich denke, dieses prüft gar nichts. Ich frage mich, ob es schon helfen würde, alles was in versteckten Feldern des Forms übermittelt wird gleich ins ASP-File zu integrieren (fragt sich dann nur, wie).
Herzliche Grüsse
Urs
Member und Premiummember sichern HilfDirSelbst.ch die Zukunft:
https://www.hilfdirselbst.ch/...?do=membership;t=new MacBook 16" M1 2021 Retina 64GBRAM, macOS Monterey, Adobe CC 2022