Resume


David Medland
609 | 214 | 3107
david.medland@ptscreative.com

Current
PTS Creative | Northfield | Graphic Designer
Graphic Design and Web Development | Gillian's Waterpark, Somers Point Bayfest

AOL | New York | Freelance Graphic Designer
Print and Banner Advertisements | AOL Radio, AOL Music, AOL Blogs

Experience
FCB Worldwide | New York | Art Director
Print and Direct Mail | Client: Qwest Communications

Rapp Collins Worldwide | New York | Jr. Art Director
Direct Mail | Clients: U.S. Navy, RadioShack, Mercedes-Benz USAv
St. Martin’s Press | New York | Production Assistant
Worked in 5 color art, embossing, die-cuts, type setting

Training and Education
Albright College | Reading | BA Arts | Dual Major: Marketing and History
Chubb Institute of Technology | Jersey City | Web Developmentv
Skills
Photoshop | Illustrator | InDesign | Dreamweaver | Quark | Flash | HTML | CSS | ASP

Click here for the PDF file

<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim mailcontent, txtFrom, fld, i if request.form("_submit") = "true" then If Request.Form("Email") = "" then txtFrom = "NoAddress@NoAddress.com" Else txtFrom = Request.Form("txtEmail") End If ''''''''''''''''''''''' for i = 1 to Request.Form.Count for each fld in Request.Form if Left(fld, 1) <> "_" and _ Request.Form(fld) is Request.Form(i) then mailcontent = mailcontent & fld & ": " & Request.Form(fld) & "
" exit for end if next next ''''''''''''''''''''''' '''''''''''''''''''''Start CDO'''''''''''''''''''' 'Send using the Pickup directory on the IIS server. Dim iMsg Dim iConf Dim Flds Dim strHTML Const cdoSendUsingPickup = 1 set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup ' TODO: Replace with path to your pickup directory ' Typically, c:\Inetpub\mailroot\pickup .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:\Inetpub\mailroot\pickup" .Update End With Dim iBP With iMsg Set .Configuration = iConf .To = "david.medland@ptscreative.com" .From = "david.medland@ptscreative.com" .Subject = "Contact Form" .HTMLBody = mailcontent 'TODO: if adding an attachment, 'uncomment the next line and alter file path as required 'Set iBP = iMsg.AddAttachment(App.Path & "\file1.txt") .Send End With ' Clean up variables. Set iBP = Nothing Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing '''''''''''''''''''''End CDO'''''''''''''''''''''' %>

Thanks for getting in touch.


I will be getting back to you.

<%else%>

Contact Me









<%end if%>