<% dim action,toadress action = request("action") select case action case "send" select case request.form("toemail") case "Erfinder" toadress = "erfinder@photovista.ch" case "Photograph" toadress = "photograph@photovista.ch" case "Webmaster" toadress = "webmaster@photovista.ch" end select Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = toadress objCDO.From = "contact@photovista.ch" objCDO.Value("Reply-To") = request.form("fromemail") objCDO.Subject = "PhotoVista.ch - Kontaktformular: " & request.form("fromemail") thebody = "Hallo " & request.form("toemail") & " von Photovista.ch!" & vbCRLF & vbCRLF thebody = thebody & "Du hast folgende Message bekommen:" & vbCRLF thebody = thebody & "------------------------------------------------------" & vbCRLF thebody = thebody & request.form("toname") & vbCRLF & vbCRLF thebody = thebody & request.form("mes") & vbCRLF & vbCRLF thebody = thebody & request.form("fromname") & ", " & request.form("fromemail") objCDO.Body = thebody objCDO.Send set objCDO = nothing response.write "" 'response.write "" response.end end select %> Online Kontaktformular

Online Kontaktformular
Schreib uns doch deine Meinung zu Photovista.ch. Wir sind froh um jeden Input, Ideen zum Weiterausbau und zur Optimierung sowie Vorschläge zu darauf basierenden Businessideen.

An:

Von (Email):


Begrüssung:

Grusstext:

Absender:

Nette Emails werden sofort nach Erhalt beantwortet, weniger nette nach Möglichkeit und schlimme nur nach Handlungsbedarf.
Philipp Blatter, phipx@bluewin.ch