<%option explicit%> <% dim sql dim krs dim kname dim kvorname dim kstr dim kplz dim detailtext dim kmail dim kfax dim kfrau dim kmann dim kort dim ktitel dim ktextemail dim ktextfax dim knoanswer dim anrede dim sender dim subject dim receiver dim mailmessage dim missing, missing2, missing3, missing4, missing5 dim errortext missing = false missing2 = false missing3 = false missing4 = false missing5 = false if request("Senden") <> "" then ktitel = request("ktitel") kname = request("kname") kvorname = request("kvorname") kstr = request("kstr") kplz = request("kplz") kort = request("kort") detailtext = request("detailtext") kmail = request("kmail") ktextemail = request("ktextemail") kfax = request("kfax") ktextfax = request("ktextfax") kfrau = request("kfrau") kmann = request("kmann") knoanswer = request("knoanswer") if isempty(kname) or kname = "" then missing = true errortext = "Sie haben vergessen die Nachnamen einzugeben!" end if if isempty(kvorname) or kvorname = "" then missing = true errortext = "Sie haben vergessen den Vornamen einzugeben!" end if if isempty(kstr) or kstr = "" then missing = true errortext = "Sie haben vergessen die Straße einzugeben!" end if if isempty(kplz) or kplz = "" then missing = true errortext = "Sie haben vergessen die Postleitzahl einzugeben!" end if if isempty(detailtext) or detailtext = "" then missing = true errortext = "Sie haben vergessen eine Nachricht einzugeben!" end if if isempty(kort) or kort = "" then missing = true errortext = "Sie haben vergessen einen Ort einzugeben!" end if if kmail then if isempty(ktextemail) or ktextemail = "" then missing = true errortext = "Sie haben vergessen eine Mail Adresse anzugeben!" end if end if if isempty(kfrau) or kfrau = "" then missing2 = true kfrau = false end if if isempty(kmann) or kmann = "" then missing3 = true kmann = false end if if isempty(ktextfax) or ktextfax = "" then missing4 = true kfax = false end if if isempty(knoanswer) or knoanswer = "" then missing5 = true knoanswer = false else knoanswer = true end if If missing2 = missing3 then missing = true errortext = "Sie haben vergessen Ihr Geschlecht anzugeben!" end if If missing4 = missing5 then if kfax then missing = true errortext = "Sie haben vergessen Faxnummer anzugeben!" end if end if if kmail = false then if kfax = false then if knoanswer = false then missing = true errortext = "Sie haben vergessen wie sie eine Antwort erhalten möchten anzugeben!" end if end if end if if not missing then sql = "INSERT INTO Kontakt (kname, kvorname, ktitel, kplz, kstr, kort, detailtext, kmail, kfax, kmann, kfrau, knoanswer) VALUES " &_ "('" & kname & "','" & kvorname & "','" & ktitel & "'," & kplz & ",'" & kstr & "','" & kort & "','" & detailtext & "','" & ktextemail & "','" & ktextfax & "'," & kmann & "," & kfrau & "," & knoanswer & ")" ExecuteSQL(sql) if kfrau then anrede ="Frau" end if if kmann then anrede ="Herr" end if receiver = "buchhandlung@korb.at" subject = "Kontaktformular auf www.korb.at" sender = "office@btab.at" mailmessage = "Ausgefüllte Daten des Formulars:" & _ vbcrlf & _ "Anrede: " & anrede & vbcrlf & _ "Titel: " & ktitel & vbcrlf & _ "Name: " & kname & " " & kvorname & vbcrlf & _ "Strasse: " & kstr & vbcrlf & _ "PLZ: " & kplz & vbcrlf & _ "Ort: " & kort & vbcrlf & _ "Nachricht: " & detailtext & vbcrlf & vbcrlf if kfax then mailmessage = mailmessage & "Antwort bitte per Fax: " & ktextfax & vbcrlf if kmail then mailmessage = mailmessage & "Antwort bitte per mail: " & ktextemail & vbcrlf mailto mailmessage,receiver,sender,subject Response.Redirect("ok.htm") end if end if %> Buchhandlung Heinrich Korb
<%if not missing then%> Haben Sie Fragen,
Wünsche oder Anregungen?
Schreiben sie uns!

<%else%> <%Response.Write(errortext)%>
<%end if%>
 
    Frau:checked<%end if%>>Herr: checked<%end if%>>
Titel:  
Vorname:  
Familienname:  
Straße:  
Plz:  
Ort:  
 
Ihre Nachricht:

Antwort erwartet:
checked<%end if%>>per Email:  
checked<%end if%>>per Fax:  
checked<%end if%>>Keine Antwort nötig.