We
believe that our press release distribution service offers unbeatable
value for money. livepresswire
is not a free service, but our extremely attractive rates compare very
favourably with our competitors.
<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & " ")
end sub
%>
<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
'The following variable assignments are not required
'they are just here to make interpretation of the
'myCDONTSMail.Send line easier. You could put the
'Request.Form statements in the .Send line to cut down
'on the amount of code in the file.
strTo = "releases@livepresswire.com"
strFrom = Request.Form("Email")
strSubject = "Livepresswire - Press Release"
strBody = strBody & "First Name:" & Request.Form("First Name") & vbNewLine
strBody = strBody & "Surname:" & Request.Form("Surname") & vbNewLine
strBody = strBody & "Company:" & Request.Form("Company") & vbNewLine
strBody = strBody & "Address1:" & Request.Form("Address1") & vbNewLine
strBody = strBody & "Address2:" & Request.Form("Address2") & vbNewLine
strBody = strBody & "City:" & Request.Form("City") & vbNewLine
strBody = strBody & "Postcode:" & Request.Form("Postcode") & vbNewLine
strBody = strBody & "Country:" & Request.Form("Country") & vbNewLine
strBody = strBody & "Email:" & Request.Form("Email") & vbNewLine
strBody = strBody & "Telephone:" & Request.Form("Telephone") & vbNewLine
strBody = strBody & "Fax:" & Request.Form("Fax") & vbNewLine
strBody = strBody & "Release:" & Request.Form("Release") & vbNewLine
strBody = strBody & "Media Sector:" & Request.Form("Media Sector") & vbNewLine
strBody = strBody & "Distribute to:" & Request.Form("Distribute to") & vbNewLine
strBody = strBody & "Logo Required:" & Request.Form("Logo Required") & vbNewLine
strBody = strBody & "Special Requirements:" & Request.Form("Special Requirements") & vbNewLine
strBody = strBody & "Acceptance:" & Request.Form("Acceptance") & vbNewLine
'The following four lines of code are just here for test
'purposes to see what variables have been pulled in from the
'HTM form.
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail = Nothing
%>
Special
Offers
For
clients who want wide distribution across an unusually large number
of media sectors or countries we can offer special discounted rates.
To
find out more please get in touch by e-mailing us on releases@livepresswire.com
or telephoning +44(0)20 7630 8953.
BESPOKE
LISTS
Customised
for you
Preparing
lists that are even more customised than our already very defined lists
is something we do for a number of our clients.
If
you have a niche-specific list you would like prepared don't hesitate
to ask. E-mail us on releases@livepresswire.com
or telephone us on +44(0)20 7630 8554 to discuss your requirements.
RELEASES
WRITTEN TO ORDER
livepresswire
staff are highly trained communications professionals with a wealth
of journalistic experience. If you want us to help you with writing
your press releases our experienced journalists will help.
Contact
us with your requirements and we will let you know immediately what
the cost will be.