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") { %>

DSL News Articles

Please complete the following information for your free subscription to DSLNews:

First Name:
Last Name:
Street Address:
City
State	AK AL AR AZ CA CO CT DE FL GA HI ID IL IN IA KS KY LA MD ME MA MI MN MS MO MT NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA WV WI WY DC VI GU PR AP AA AE AS FM PW MH MP
Zip:
Phone:
Your email address:

copyright 1999 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 %>