 |
Antwort ___________________________ |
|
<%
Dim Absender, Empfaenger, Subject, Body
set DB=Server.CreateObject("ADODB.Connection")
DB.Open("DSN=WP021E1135")
Vorname=Request.Form("Vorname")
Nachname=Request.Form("Nachname")
Strasse=Request.Form("Strasse")
If Strasse = "" Then
Strasse = "-"
End If
PLZ=Request.Form("PLZ")
Ort=Request.Form("Ort")
eMail=Request.Form("eMail")
Betreff=Request.Form("Betreff")
Anderes=Request.Form("Anderes")
If Anderes = "" Then
Anderes = "-"
End If
Bemerkungen=Request.Form("Bemerkungen")
If Bemerkungen = "" Then
Bemerkungen = "-"
End If
Set EMail = DB.Execute("INSERT INTO Kontakt (Vorname, Nachname, Strasse, PLZ, Ort, eMail, Betreff, Anderes, Bemerkungen) VALUES ('" & Vorname & "', '" & Nachname & "', '" & Strasse & "', '" & PLZ & "', '" & Ort & "', '" & eMail & "', '" & Betreff & "', '" & Anderes & "', '" & Bemerkungen & "')")
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Absender = "regula.todesco@bluewin.ch"
Empfaenger = "regula.todesco@bluewin.ch"
Subject = "Anfrage von der Vision Inc. Website"
Body = "Name: " & Vorname & " " & Nachname & vbCrLf
Body = Body & "Strasse: " & Strasse & vbCrLf
Body = Body & "PLZ/Ort: " & PLZ & " " & Ort & vbCrLf
Body = Body & "Betreff: " & Betreff & vbCrLf
Body = Body & "Anderes: " & Anderes & vbCrLf
Body = Body & "Bemerkungen: " & Bemerkungen
On Error Resume Next
Mailer.Send Absender, Empfaenger, Subject, Body
If Err.Number = 0 Then
Response.Write(" " & Vorname & " " & Nachname & "
Vielen Dank für Ihre Mitteilung.
Wir werden Sie kontaktieren. ") & vbCrLf
Else
Response.Write("Es ist ein Fehler aufgetreten
")
Response.Write(Err.Description)
Err.Clear
End If
Set Mailer = Nothing
Set Feedback=Nothing
Set DB=Nothing
%>
|
|
|