<% Sub Writetext Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fs, f, ts, s Set fs = CreateObject("Scripting.FileSystemObject") fs.CreateTextFile "d:\Inetpub\www.holtenau.at\Temp\mail.txt" 'Create a file Set f = fs.GetFile("d:\Inetpub\www.holtenau.at\Temp\mail.txt") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write "Anrede: " & request("Anrede") & chr(13) & chr(10) ts.Write "Vorname: " & request("Vorname") & chr(13) & chr(10) ts.Write "Nachname: " & request("Nachname") & chr(13) & chr(10) ts.Write "Telefonnummer: " & request("Telefonnummer") & chr(13) & chr(10) ts.Write "E-Mail: " & request("Mail") & chr(13) & chr(10) ts.Write chr(13) & chr(10) ts.Write "Kommentar: " & chr(13) & chr(10) ts.Write request("Kommentar") & chr(13) & chr(10) ts.Close End Sub Sub sendmail dim testactivex dim rc set testactivex=server.createobject("hhsmtp.activesend") call writetext rc=testactivex.smtpsend("useeliger@may.co.at","Webanfrage an Rudolf Holtenau","d:\Inetpub\www.holtenau.at\Temp\mail.txt","mail.may.co.at","webresponse@may.co.at") set testactivex=nothing End Sub Dim Eingabe Dim Fehler Eingabe = 0 Fehler = "" if request("Eingabe") = "Y" then if request("Vorname") = "" or request("Nachname") = "" or request("Telefonnummer") = "" then Eingabe = 1 Fehler = "

Bitte geben Sie Vorname, Nachname und Telefonnummer ein.

" end if else Eingabe = 1 end if if Eingabe = 1 then %> Kontakt
     
  Wenn Sie mehr Informationen benötigen, haben Sie hier die Möglichkeit diese anzufordern.  
     
 
Anrede:
Vorname: >
Nachname: >
Telefonnummer: >
E-Mail: >
Kommentar:
 
<% response.write(Fehler) %>
 
<% else call sendmail %>

 

Ihre Anforderung wurde gesendet.

<% end if %>