<%@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 %> <% If (CStr(Request("MM_insert")) = "infoForm") 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 info (infoFirstName, infoLastName, infoJobTitle, infoCompanyName, infoEmail, infoTelephone, infoMobile, infoConferenceName, infoConferenceDate, infoConferenceLength, infoInterest, infoConferenceComment) 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("JobTitle")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("company")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("telephone")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("mobile")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("conference")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("conferenceDate")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("presTime")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 255, Request.Form("interestArea")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 203, 1, 1073741823, Request.Form("comment")) ' 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 = "Conference Request Details" '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,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "::: Martin Warner :::" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "
First Name:
" MailBody = MailBody & cStr(Request.Form("firstName")) MailBody = MailBody & "
Last Name
" MailBody = MailBody & cStr(Request.Form("lastName")) MailBody = MailBody & "
Job Title
" MailBody = MailBody & cStr(Request.Form("JobTitle")) MailBody = MailBody & "
Company
" MailBody = MailBody & cStr(Request.Form("company")) MailBody = MailBody & "
Email
" MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "
Telephone
" MailBody = MailBody & cStr(Request.Form("telephone")) MailBody = MailBody & "
Mobile
" MailBody = MailBody & cStr(Request.Form("mobile")) MailBody = MailBody & "
Name of Conference/Seminar
" MailBody = MailBody & cStr(Request.Form("conference")) MailBody = MailBody & "
Date of Conference
" MailBody = MailBody & cStr(Request.Form("conferenceDate")) MailBody = MailBody & "
Length of Presentation Time:
" MailBody = MailBody & cStr(Request.Form("presTime")) MailBody = MailBody & "
Area of Interest
" MailBody = MailBody & cStr(Request.Form("interestArea")) MailBody = MailBody & "
Comment - Describe more about the conference if possible
" MailBody = MailBody & cStr(Request.Form("comment")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" '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 ((Request.ServerVariables("Request_Method") = "POST") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("martinwarner@nuevoentertainment.com") 'Send Mail All Entries if ("thanksInfo.asp?firstName=" & cStr(cStr(Request.Form("firstName"))) & ""<>"") then Response.Redirect("thanksInfo.asp?firstName=" & cStr(cStr(Request.Form("firstName"))) & "") end if end if %> ::: Martin Warner :::
Please fill in the form below. We will be in touch shortly to discuss your details.
First Name:
Last Name
Job Title
Company
Email
Telephone
Mobile
Name of Conference/Seminar
Date of Conference
Length of Presentation Time:
Area of Interest
Comment - Describe more about the conference if possible