%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" LCID=1043 %> <% Dim CONTENT Dim CONTENT_cmd Dim CONTENT_numRows Set CONTENT_cmd = Server.CreateObject ("ADODB.Command") CONTENT_cmd.ActiveConnection = MM_cnnct_STRING CONTENT_cmd.CommandText = "SELECT * FROM CONTENT WHERE ID_CONTENT= " & REQUEST.QUERYSTRING("id") CONTENT_cmd.Prepared = true Set CONTENT = CONTENT_cmd.Execute CONTENT_numRows = 0 %> <% Dim CONTENT2 Dim CONTENT2_cmd Dim CONTENT2_numRows Set CONTENT2_cmd = Server.CreateObject ("ADODB.Command") CONTENT2_cmd.ActiveConnection = MM_cnnct_STRING CONTENT2_cmd.CommandText = "SELECT * FROM CONTENT WHERE ID_CONTENT= 7" CONTENT2_cmd.Prepared = true Set CONTENT2 = CONTENT2_cmd.Execute CONTENT2_numRows = 0 %> <% If (CStr(Request("MM_insert")) = "MIXFORM") Then If (Not MM_abortEdit) Then ' execute the insert Dim objCDOConf1, Header1 Set objCDOConf1 = Server.CreateObject ("CDO.Configuration") Set Mailer1 = Server.CreateObject("CDO.Message") With Mailer1 Set Header1 = .Fields With Header1 .Item("urn:schemas:mailheader:X-Instance-ID") = Request.ServerVariables("INSTANCE_ID") .Update End With End With MailTo = "info@mixdietisten.nl" MailCc = Request("MEEL") MailFrom = Request("MEEL") Subject = "MIX diëtisten - webformulier - " Message = "------ Webformulier verstuurd vanaf de Mix website -------" & vbcrlf & vbcrlf Message = Message & "Naam :" + Request("NAAM") &vbcrlf Message = Message & "Email :" + Request("MEEL") &vbcrlf Message = Message & "Telnr :" + Request("TELNR") &vbcrlf Message = Message & "Mobielnr :" + Request("MOBIELNR") &vbcrlf &vbcrlf Message = Message & "Vraag/opmerking :" &vbcrlf Message = Message & Request("VRAAG") &vbcrlf &vbcrlf Mailer1.Fields("urn:schemas:httpmail:importance").Value = 2 Mailer1.Fields.Update() Mailer1.From = MailFrom Mailer1.To = MailTo Mailer1.Cc = MailCc Mailer1.Subject = Subject Mailer1.TextBody = Message Mailer1.Send Set objCDOConf1 = Nothing Set Mailer1 = nothing ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "content.asp?id=7&stat=mix" 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 %>