<% @ Language="VBScript" LCID = 1031 %><% Option Explicit Response.Buffer = true Session.LCID = 1031 Dim Email,rs, strPfadDB, SQL, Schritt, Nachname, Vorname Schritt = Request("Schritt") Email = Request("Email") Nachname = Request("Nachname") Vorname = Request("Vorname") %> Pat Seifried - Homepage Events <% Select Case Schritt Case 2 Call Schritt2 Case 3 Call Schritt3 Case Else Call Formular End Select %> <% Public Sub Formular() %>

german | english


Email Check ::..
Name:
Vorname:
eMail:
<% end sub Public Sub Schritt3() %>

german | english




Dankeschön ::..!!


=> zu den choreos
<% End Sub Public Sub Schritt2() Call SendMail(Email, Nachname, Vorname) Response.Redirect("checkMail.asp?Schritt=3") End sub Function SendMail(ByVal Email,ByVal Nachname,ByVal Vorname) Dim Sender, Subject, Body, Recipient, Hostname Sender = Email 'Empfänger: Wohin soll die Mail gesandt werden? Adresse noch angeben! Recipient = "pat@patseifried.com" Subject=" Nachricht: Choreographie Donwload auf patseifried.com vom " & Date() & " von " & Nachname & " " & Vorname& ", Email: " & Email Body = "Hallo Pat: Choreographie Donwload von:" & vbcrlf & Nachname &" " & Vorname & vbcrlf &vbcrlf Body = Body & "Email-Adresse: " & Email & vbcrlf &vbcrlf Hostname = "pop3.genotec.ch" 'Oder per IP: "192.168.109.236:25" %><% Dim CDOSYSMail, CDOSYSConfig Set CDOSYSMail = Server.CreateObject("CDO.Message") Set CDOSYSConfig = Server.CreateObject("CDO.Configuration") CDOSYSConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort CDOSYSConfig.Fields(cdoSMTPServer) = Hostname CDOSYSConfig.Fields(cdoSMTPServerPort) = 25 CDOSYSConfig.Fields(cdoSMTPAuthenticate) = cdoAnonymous CDOSYSConfig.Fields.Update Set CDOSYSMail.Configuration = CDOSYSConfig CDOSYSMail.To = "pat@patseifried.com" CDOSYSMail.From = Email CDOSYSMail.Subject = subject CDOSYSMail.TextBody = Body CDOSYSMail.Send SendMail = "null" End Function %>