<% If (Request.Form.Count > 0) Then function db_encode(value) if(InStr(value, "'")) Then value = replace(value, "'", "''") end if db_encode = value end function dim email_address, fname, lname, company_type email_address = db_encode(Request("email")) fname=db_encode(Request("fname")) lname=db_encode(Request("lname")) if(email_address <> "" and fname <> "" and lname <> "") then email_message="Hello " & fname&" "&lname & "," & "

" email_message=email_message & "Thank you for requesting to download the Eyeblaster Research Note: Search & Display | 2010.

" email_message=email_message & "To download the PDF, please click here.


" email_message=email_message & "Thank you!

" email_message=email_message & "The Eyeblaster Team

" Set objMail = CreateObject("CDONTS.NewMail") objMail.From= "MediaMind.Insights@mediamind.com" 'objMail.To= "alon@axyoma.com" objMail.To = email_address obJMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Subject= "Download link for Eyeblaster Research Note: Search & Display | 2010" objMail.Body= email_message objMail.Send Set objMail = Nothing email_message2=email_message2 & "From: " & fname&" "&lname & ",
" email_message2=email_message2 & "Title: " & Request("title")& "
" email_message2=email_message2 & "Company: " & Request("comp")& "
" email_message2=email_message2 & "Country: " & Request("country")& "
" email_message2=email_message2 & "Company Type: " & Request("company_type")& "
" email_message2=email_message2 & "Email: " & email_address & "
" email_message2=email_message2 & "Phone: " & Request("phone")& "
" email_message2=email_message2 & "Question/Comments:
" & Request("comments")& "
" Set objMail = CreateObject("CDONTS.NewMail") objMail.From= "MediaMind.Insights@mediamind.com" objMail.To = "lianne.schneider@eyeblaster.com, Livia.Vadasz@eyeblaster.com" obJMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Subject= "Eyeblaster Research Note: Search & Display | 2010" objMail.Body= email_message2 objMail.Send Set objMail = Nothing Dim objMsg, strfirstName, strlastName, strtitle, strcompany, strcountry, strcompany_type, strphone, stremail, strcomments strfirstName = Trim(Request.Form("fname")) strlastName = Trim(Request.Form("lname")) strtitle = Trim(Request.Form("title")) strcompany = Trim(Request.Form("comp")) strcountry = Trim(Request.Form("country")) strcompany_type = Trim(Request("company_type")) strcountry = Trim(Request("country")) strphone = Trim(Request("phone")) strcomments = Trim(Request("comments")) stremail = Trim(Request("email")) Const OpenFileForAppending = 8 TheLogFolder = "F:/Site/PublicSite/Forms/search_display/" CurrentFileName = cstr("search_display_" & month(Date()) & "_" & year(Date()) & ".csv") Set objFSO = Server.createObject("Scripting.FileSystemObject") if (objFSO.FolderExists(TheLogFolder)) Then set ObjFolder = objFSO.GetFolder(TheLogFolder) Set ObjFiles = ObjFolder.Files FileExist = False If ObjFiles.Count <> 0 Then For Each File In ObjFiles If (File.Name = CurrentFileName) Then FileExist = True Exit For End If Next End If If (FileExist) Then Set objTstream = objFSO.OpenTextFile(TheLogFolder & CurrentFileName, OpenFileForAppending, False, 0) LineToWrite = chr(34) & strfirstName & chr(34) & chr(44) & chr(34) & strlastName & chr(34) & chr(44) & chr(34) & strtitle & chr(34) & chr(44) & chr(34) & strcompany & chr(34) & chr(44) & chr(34) & strcountry & chr(34) & chr(44) & chr(34) & strcompany_type & chr(34) & chr(44) & chr(34) & strcountry & chr(34) & chr(44) & chr(34) & strphone & chr(34) & chr(44) & chr(34) & stremail & chr(34) & chr(44) & chr(34) & strcomments & chr(34) ObjTstream.WriteLine LineToWrite ObjTstream.Close Else Set objTstream = objFSO.CreateTextFile(TheLogFolder & CurrentFileName, true, False) HeadLine = chr(34) & strfirstName & chr(34) & chr(44) & chr(34) & strlastName & chr(34) & chr(44) & chr(34) & strtitle & chr(34) & chr(44) & chr(34) & strcompany & chr(34) & chr(44) & chr(34) & strcountry & chr(34) & chr(44) & chr(34) & strcompany_type & chr(34) & chr(44) & chr(34) & strcountry & chr(34) & chr(44) & chr(34) & strphone & chr(34) & chr(44) & chr(34) & stremail & chr(34) & chr(44) & chr(34) & strcomments & chr(34) ObjTstream.WriteLine HeadLine LineToWrite = chr(34) & strfirstName & chr(34) & chr(44) & chr(34) & strlastName & chr(34) & chr(44) & chr(34) & strtitle & chr(34) & chr(44) & chr(34) & strcompany & chr(34) & chr(44) & chr(34) & strcountry & chr(34) & chr(44) & chr(34) & strcompany_type & chr(34) & chr(44) & chr(34) & strcountry & chr(34) & chr(44) & chr(34) & strphone & chr(34) & chr(44) & chr(34) & stremail & chr(34) & chr(44) & chr(34) & strcomments & chr(34) objTstream.WriteLine LineToWrite ObjTstream.Close End If end if End If Response.Cookies("EyeblasterForm")("fname") = Trim(Request.Form("fname")) Response.Cookies("EyeblasterForm")("lname") = Trim(Request.Form("lname")) Response.Cookies("EyeblasterForm")("comp") = Trim(Request.Form("comp")) Response.Cookies("EyeblasterForm")("country") = Trim(Request.Form("country")) Response.Cookies("EyeblasterForm")("company_type") = Trim(Request.Form("company_type")) Response.Cookies("EyeblasterForm")("country") = Trim(Request.Form("country")) Response.Cookies("EyeblasterForm")("phone") = Trim(Request.Form("phone")) Response.Cookies("EyeblasterForm")("email") = Trim(Request.Form("email")) response.redirect("http://www.eyeblaster.com/Marketing09/SearchAndDisplay_LandingPage.aspx?campid=CMP-01029-NT9510&email="& stremail&"&spid="& spId &"&phone="& strphone &"&comp="& strcompany &"&fname="& strfirstName &"&lname="& strlastName &"&ctype="& strcompany_type &"&cntry="& strcountry &"") End If %>

*First Name:

*Last Name:

Title:

*Email:

*Company:

Phone:

*Country

Company Type:
Advertiser
Agency/Media Buyer
Web Publisher
Creative Agency/Design Shop
I Reject Your Attempts To Define Me

Questions? Comments? Just want to share your feelings?

After submitting your details, a link to download the PDF will be sent to your email and you will be redirected to eyeblaster.com