| |
Kontakt
Akademie zur Förderung der Manuellen Medizin
Dr. Michael Pommer & Partner
Schrottenbachgasse 24c
A-8042 Graz
Tel. +43 (0)316 46 35 40
Fax +43 (0)316 46 35 40-12
Mail: office@manuelle-medizin.co.at
Kursanmeldung
<%
if request("Action")="Insert" then
Dim strFrom, strTo, strBCC, strSubject, txtbody
Dim objMessage, objConfig
strFrom = "office@manuelle-medizin.co.at"
'strTo = "hzus@global.co.at"
strTo = "office@manuelle-medizin.co.at"
strBCC = "hadrian.zus@global.co.at"
strSubject = "Kontaktanfrage von der Homepage - Manuelle Medizin"
txtbody = txtbody & "Folgende Anfrage wurde über www.manuelle-medizin.co.at übermittelt:" & chr(10) & chr (13)
if request("anrede") = 1 then
anrede = "Herr"
else
anrede = "Frau"
end if
txtbody = txtbody & "Anrede: "& anrede & chr(10) & chr (13)
txtbody = txtbody & "Titel: "& request("titel") & chr(10) & chr (13)
txtbody = txtbody & "Name: "& request("name") & chr(10) & chr (13)
txtbody = txtbody & "Vorname: "& request("vorname") & chr(10) & chr (13)
txtbody = txtbody & "Adresse: "& request("strasse") & chr(10) & chr (13)
txtbody = txtbody & "PLZ/Ort: "& request("plz_ort") & chr(10) & chr (13)
txtbody = txtbody & "Land: "& request("land") & chr(10) & chr (13)
txtbody = txtbody & "Telefon: "& request("telefon") & chr(10) & chr (13)
txtbody = txtbody & "Fax: "& request("fax") & chr(10) & chr (13)
txtbody = txtbody & "Mobiltelefon: "& request("mobil") & chr(10) & chr (13)
txtbody = txtbody & "email: "& request("email") & chr(10) & chr (13)
txtbody = txtbody & "_________________________________________"& chr(10) & chr (13)
txtbody = txtbody & "Fachrichtung: "& request("fachrichtung") & chr(10) & chr (13)
if request("niedergelassen") = 1 then
niedergelassen = "ja"
else
niedergelassen = "nein"
end if
txtbody = txtbody & "Niedergelassen: "& niedergelassen & chr(10) & chr (13)
txtbody = txtbody & "Lezter Kurs: "& request("l_kurs_dat") & chr(10) & chr (13)
txtbody = txtbody & "Lezter Kurs in: "& request("l_kurs_ort") & chr(10) & chr (13)
txtbody = txtbody & "_________________________________________"& chr(10) & chr (13)
txtbody = txtbody & "Anmeldung zu: "& request("kurs") & chr(10) & chr (13)
txtbody = txtbody & "Kursort: "& request("kursort") & chr(10) & chr (13)
txtbody = txtbody & "_________________________________________"& chr(10) & chr (13)
if request("mitglied") = 1 then
mitglied ="VFMM"
end if
if request("mitglied") = 2 then
mitglied ="ÖAMM"
end if
if request("mitglied") = 3 then
mitglied ="MWE"
end if
if request("mitglied") = 4 then
mitglied ="Sonstige"
end if
txtbody = txtbody & "Ich bin Mitglied bei: " & mitglied & chr(10) & chr (13)
if mitglied ="Sonstige" then
txtbody = txtbody & request("mitglied_sonst") & chr(10) & chr (13)
end if
txtbody = txtbody & "_________________________________________"& chr(10) & chr (13)
txtbody = txtbody & "Anmeldung am: "& date() & ", um " & time() & chr(10) & chr (13)
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "mailrelay.global.co.at"
objConfig.Fields(cdoSMTPServerPort) = 25
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic
objConfig.Fields(cdoSendUserName) = "forward@global.co.at"
objConfig.Fields(cdoSendPassword) = "forward"
objConfig.Fields.Update
Set objMessage.Configuration = objConfig
objMessage.To = strTo
objMessage.BCC = strBCC
objMessage.From = strFrom
objMessage.Subject = strSubject
objMessage.TextBody = txtbody
objMessage.Send
set objMessage = nothing
%>
|
Ihre Anmeldung wurde erfolgreich übermittelt.
Sollten Sie Fragen haben stehen wir Ihnen gerne zur
Verfügung.
|
<%else%>
<%end if%>
|
|
|
