<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_iis_STRING MM_editCmd.CommandText = "INSERT INTO Termin (Name1, Vorname, Geburtsdatum, strasse, plz, ort, telefon, email, wunschtag, wunschmonat, bestaetigung, art, nachricht, eingetragen) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("name1")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("vorname")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("geburtsdatum")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("strasse")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("plz")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("ort")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("telefon")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("e mail")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 5, 1, -1, MM_IIF(Request.Form("wunschtag"), Request.Form("wunschtag"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("monat")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 255, Request.Form("benachrichtigung")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 255, Request.Form("art")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 255, Request.Form("nachricht")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 135, 1, 255, MM_IIF(Request.Form("hiddenField"), Request.Form("hiddenField"), null)) ' adDBTimeStamp MM_editCmd.Execute MM_editCmd.ActiveConnection.Close sto = "anmeldung@mallner.at" sFrom = "anmeldung@mallner.at" sSubject = "ONLINE-TERMIN" sMailServer = "127.0.0.1" sBody = "Hallo!" & chr(10) sbody = sbody & "Name: " & Request.Form("name1")& chr(10) sbody = sbody & "Vorname: " & Request.Form("vorname")& chr(10) sbody = sbody & "Geburtsdatum: " & Request.Form("geburtsdatum")& chr(10) sbody = sbody & "Strasse: " & Request.Form("strasse")& chr(10) sbody = sbody & "PLZ/Ort: " & Request.Form("plz") & " " & Request.Form("ort")& chr(10) sbody = sbody & "Telefon: " & Request.Form("telefon")& chr(10) sbody = sbody & "e-Mail: " & Request.Form("e mail")& chr(10) sbody = sbody & "Termin: " & Request.Form("wunschtag") & " " & Request.Form("monat")& chr(10) sbody = sbody & "Benachrichtigung: " & Request.Form("benachrichtigung")& chr(10) sbody = sbody & "ich bin " & Request.Form("art")& chr(10) sbody = sbody & "Nachricht:" & Request.Form("nachricht")& chr(10) Sbody= sbody & "Freundliche Grüße" & chr(10) set objmail = server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody End With objMail.Send set objfields = nothing set objconf = nothing set objmail = nothing ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "termindanke.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> Unbenanntes Dokument

Terminvereinbarung
  Werte Patienten,
das Team ist stets bemüht, die Wartezeiten so gering wie möglich zu halten.
Aus diesem Grund, möchten wir Sie um eine Terminvereinbarung bitten.
  Unsere Ordinationszeiten sind:
  Montag 7:30 - 12:30 13:30 - 15:00
  Dienstag 7:30 - 12:30      
  Mittwoch 7:30 - 12:30      
  Donnerstag 7:30 - 12:30      
  Freitag nur nach Vereinbarung      

Vereinbaren Sie ihren Termin gleich hier:
  Name
  Vorname
  Geburtsdatum
  Straße / Nr.
  PLZ / Ort
  Telefon
  e Mail
  Wunschtermin
  Terminbestätigung per
  Ich bin 
  Nachricht an das Team