<% Response.Buffer=True Dim MyConnection, TheUR ' Specifying the URL TheUR = "http://www.lockhaven.com/cached/header.html" Set MyConnection = Server.CreateObject("Microsoft.XMLHTTP") ' Connecting to the URL MyConnection.Open "GET", TheUR, False ' Sending and getting data MyConnection.Send TheData = MyConnection.responseText 'Set the appropriate content type Response.ContentType = MyConnection.getResponseHeader("Content-Type") Response.Write (TheData) Set MyConnection = Nothing %> The Express
Sending Ads Electronically

The Express is a fully paginated newspaper and requests your help in eliminating the receipt of ads as either veloxes or negatives. You may send us a file through FTP (file transfer protocol). To obtain a user id and password to our FTP server contact advertising.

We prefer to receive your ad as a PDF file with fonts embedded produced by Adobe Acrobat 4.0. Our second choice would be as an EPS file with embedded fonts. All files should be compressed using Stuffit or WinZip, both applications are available on the Internet.

We also accept CD's, 1.44 MB floppies in MAC or PC, or 100 MB Zip Disks. Send a hard copy of the ad along with the disk.

We can accept images as TIFF or JPEG. Save images at 170 resolution, 85 line screen for black & white and 100 line screen for full color. Save all full color work in CMYK as JPEG. RGB colors will need to be converted to CMYK.

On disks, send your ad produced in Multi-Ad Creator version 4.0 or older, or Quark Xpress version 4.0 or older. If fonts are not provided, we reserve the right to substitute any font.

If the file you are saving is produced in a word processing program, please be sure to save the text as ASCII plain text (PC) or text only(MAC). Bold type, italics, tabs, and other formatting styles will not convert, so please include a hard copy or proof of the file.

<% Response.Buffer=True Dim MyCo, TheU ' Specifying the URL TheU = "http://www.lockhaven.com/cached/footer.html" Set MyCo = Server.CreateObject("Microsoft.XMLHTTP") ' Connecting to the URL MyCo.Open "GET", TheU, False ' Sending and getting data MyCo.Send TheData = MyCo.responseText 'Set the appropriate content type Response.ContentType = MyCo.getResponseHeader("Content-Type") Response.Write (TheData) Set MyCo = Nothing %>