In diesem Beispiel wird der Besucher ein Formular ausfüllen. Beim Absenden des Formulars wird das Script aspmailer.asp aufgerufen und alle Formulardaten übergeben. Das Script überprüft die Daten und zeigt entweder eine Webseite mit einem Fehler oder sendet das Email und zeigt eine Webseite mit einer Erfolgsmeldung.
Das Formular
<html>
<head>
<Title>Mail Beispiel mit ASP</title>
</head>
<body>
<font face="Arial">
<b>Mail Beispiel mit ASP</b>
<form action="aspmailer.asp" method="POST">
<!-- Reihenfolge der Anzeige -->
<input type="hidden" name="TGorder" value="name,vorname,email">
<!-- Betreff der Nachricht -->
<input type="hidden" name="TGsubject" value="Test Formular">
Name:
<input type="text" name="name" size="20">
<p>
Vorname:
<input type="text" name="vorname" size="20">
<p>
E-Mail Adresse:
<input type="text" name="email" size="20">
<p>
<input type="submit" value="senden">
</font>
</form>
</body>
</html>
Das Script
<%
Response.Buffer = True
Set objFM = CreateObject("Scripting.Dictionary")
Set objMailx = CreateObject("CDO.Message")
Set objMailx = Nothing
%>
<%
'Empfänger Adresse
strRcpt = "empfaenger@dein-name.ch"
'Absender Adresse
strDefFrom = "absender@dein-name.ch"
%>
<%
'Einlesen der Formulardaten
ParseForm
strOutX = SeqForm
If Len(strOutX) < 1 Then
strOutX = FormToString
End If
strSubject = strDefSubject
If objFM.Exists("TGsubject") Then
strSubject = objFM.Item("TGsubject")
End If
strFrom = strDefFrom
If Len(strFromVar) > 0 Then
If objFM.Exists(strFromVar) Then strFrom = objFM.Item(strFromVar)
End If
SendMail strFrom,strRcpt,strSubject,strOutX
If Len(strRedirect) > 0 Then
Response.redirect(strRedirect)
Response.End
End If
If objFM.Exists("TGredirect") = True Then
If Len(objFM.Item("TGredirect")) > 0 Then
Response.redirect(objFM.Item("TGredirect"))
Response.End
End If
End If
%>
<!-- Antwort, dass das Formular erfolgreich gesendet wurde -->
<font face="Arial">
<p>Formular gesendet!</p>
<%
Function IsValidEmail(Email)
Dim Temp,Temp2
End Function
%>
<%
'Deklarieren der Funktion SendMail
Function SendMail(From,Rcpt,Subject,Body)
Trim(From)
Set objMailer = CreateObject("CDO.Message")
objMailer.From = From
objMailer.To = Rcpt
objMailer.Subject = Subject
objMailer.TextBody = Body
objMailer.Send
Set objMailer = Nothing
End Function
%>
<%
'Deklarieren der Funktion ParseForm
Function ParseForm()
For Each Item in Request.Form
If objFM.Exists(Item) Then
objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
Else
objFM.Add Item,Request.Form(Item)
End If
Next
For Each Item in Request.QueryString
If objFM.Exists(Item) Then
objFM.Item(Item) = objFM.Item(Item) & "," & Request.QueryString(Item)
Else
objFM.Add Item,Request.QueryString(Item)
End If
Next
End Function
%>
<%
Function SeqForm()
Dim Temp,strTmp,strOrder,strOut
If objFM.Exists("TGorder") = False Then
Exit Function
ElseIf isEmpty(objFM.Item("TGorder")) Then
Exit Function
End If
strOrder = objFM.Item("TGorder")
Temp = Split(strOrder,",",-1,1)
For Each strTmp in Temp
If objFM.Exists(strTmp) Then
strOut = strOut & strTmp & "=" & objFM.Item(strTmp) & Chr(10)
End If
Next
SeqForm = strOut
End Function
%>
<%
Function FormToString()
Dim strOut
strKeys = objFM.Keys
strValues = objFM.Items
For intCnt = 0 To objFM.Count -1
strOut = strOut & strKeys(intCnt) & "=" & strValues(intCnt) & Chr(10)
Next
FormToString = strOut
End Function
%>
<%
Function ReportError(strMess)
Response.Clear
%>
<%
Credit
Response.End
End Function
%>
<%Function Credit%>
<%End Function%>
|
