Home
Special Promotions
DSL
Web Hosting
Dial Up
Dedicated Access
Web Page Design
Feedback
Navigation
Prices
Our History
Online Forms
Help
Search Page
Email Us
Back

DSL Newsletter

<% # function Compose if($function eq "Compose") { %>

April 1999 - Distance Limits of DSL
May 1999 - What's in an IP Address
July 1999 - Setting up a LAN
October 1999 - ADSL vs. Cable Modem
December 1999 - What if I Move?
March 2000 - Security Basics
April 2000 - DSL Growth
June 2000 - G.Lite

 

copyright 2000  MM Internet, Inc.

<% } # end of function Compose %> <% # function Send if($function eq "Send") { %> <% $from = $Request->Form->{"From"}->item; $to = $Request->Form->{"To"}->item; $subject = $Request->Form->{"Subject"}->item; $message = $Request->Form->{"Message"}->item; $firstname = $Request->Form->{"FirstName"}->item; $lastname = $Request->Form->{"LastName"}->item; $streetaddress = $Request->Form->{"StreetAddress"}->item; $city = $Request->Form->{"City"}->item; $state = $Request->Form->{"State"}->item; $zip = $Request->Form->{"ZipCode"}->item; $phone = $Request->Form->{"PhoneNumber"}->item; $list = $Request->Form->{"list"}->item; if($from eq "") { $Response->Write("Error: you need to specify a From address"); quit(); } elsif($to eq "") { $Response->Write("Error: you need to specify a To address"); quit(); } elsif($firstname eq "") { $Response->Write("Error: you need to specify a first name"); quit(); } elsif($lastname eq "") { $Response->Write("Error: you need to specify a last name"); quit(); } elsif($streetaddress eq "") { $Response->Write("Error: you need to specify a street address"); quit(); } elsif($city eq "") { $Response->Write("Error: you need to specify a city"); quit(); } elsif($state eq "") { $Response->Write("Error: you need to specify a state"); quit(); } elsif($zip eq "") { $Response->Write("Error: you need to specify a zipcode"); quit(); } $msg = "From: $from To: bcohen\@mminternet.com Subject: New list subscriber $firstname $lastname $streetaddress $city, $state $zip $phone"; $response = MMInternet::sendmail($from, $to, $msg); $msg = "From: $from To: $to Subject: $subject $message"; $response = MMInternet::sendmail($from, $to, $msg); if($response eq "OK") { $Response->Write("Thank you for subscribing to the $list list!"); } else { $Response->Write($response); } %> <% } # end of function Send %>