<%@LANGUAGE="VBSCRIPT"%> <% 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 %> <% If (CStr(Request("MM_insert")) = "feedback") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_connMartinWarnerFeedback_STRING MM_editCmd.CommandText = "INSERT INTO feedback (feedFirstName, feedLastName, feedEmail, feedComments) VALUES (?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("firstName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("lastName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 203, 1, 1073741823, Request.Form("comments")) ' adLongVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close End If End If %> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "feedback@martinwarner.com" MailSubject = "Feedback from MartinWarner.com" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "Name: " MailBody = MailBody & cStr(Request.Form("firstName")) MailBody = MailBody & " " MailBody = MailBody & cStr(Request.Form("lastName")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Comments: " MailBody = MailBody & cStr(Request.Form("comments")) MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((cStr(Request.Form("submit")) <> "")) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("me@martinwarner.com") 'Send Mail All Entries if ("thanks.asp?name=" & cStr(cStr(Request.Form("firstName"))) & ""<>"") then Response.Redirect("thanks.asp?name=" & cStr(cStr(Request.Form("firstName"))) & "") end if end if %> ::: Martin Warner :::

To get in contact with Martin, please complete the form below, or email me@martinwarner.com

First Name
Last Name
Email
Comments
 

Alternatively, you can get in touch via:

Office of Martin Warner
Managing Director
Nuevo Entertainment Limited
2 Sheraton Street
Soho
London
W1F 8BH

t: +44 (0) 207 851 4577
f: +44 (0) 131 556 4467

Content copyright ©2008 Martin Warner