JST Global Communications

<%@LANGUAGE="VBSCRIPT"%> <% Dim MailerPath Dim FromEmail Dim ToEmail Dim FromName Dim Subject Dim fieldName Dim fieldValue Dim Message Dim mailRedirect Dim mailComp MailerPath = "" FromEmail = "webmaster@jstglobal.com" ToEmail="jstglobal@comcast.net" FromName="Your Site" Subject="New subscriber from your site" For i = 1 to Request.Form.Count fieldName = Request.Form.Key(i) fieldValue = Request.Form.Item(i) Message = Message & fieldName & ": " & fieldValue & VbCrLf Next mailRedirect="../thankyou.html" mailComp=1 If (cStr(Request("Submit")) <> "") Then Select case mailComp case 1 call CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) case 2 call ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) case 3 call ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) case 4 call JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) case 5 call ASPEMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) case 6 call SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) case else Response.Write("We are sorry, the system has encountered an error") End Select end if %> JST Global Communications

HOME

ABOUT US

SPECIAL

RATES

SERBIAN


Company:		Only necessary for business use!
First Name:		Mr Ms Mrs
Last Name:
Address:
City:		State: ZIP Code :

Phone numbers you wish to use!
Phone 1:	Phone 2:	Phone 3:
Phone 4:	Phone 5:
Your local phone company is:

What kind of service would you like to use? Long Distance Local Tall Local service

Fill the data carefully please!

<% '====================================== ' Sends an email with CDONTS function CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) Dim Mailer Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.To = ToEmail Mailer.From = FromEmail Mailer.Subject = Subject Mailer.Body = Message Mailer.MailFormat = 1 Mailer.BodyFormat = 1 Mailer.Send Set Mailer = Nothing CDONTS_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with ASPMail function ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = MailerPath Mailer.ContentType = "text/plain" Mailer.FromName = FromName Mailer.FromAddress = FromEmail Mailer.AddRecipient ToName, ToEmail Mailer.Subject = Subject Mailer.BodyText = Message Mailer.SendMail Set Mailer = Nothing ASPMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with ASPQMail function ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = MailerPath Mailer.ContentType = "test/plain" Mailer.FromName = FromName Mailer.FromAddress = FromEmail Mailer.AddRecipient ToName, ToEmail Mailer.Subject = Subject Mailer.BodyText = Message Mailer.QMessage = true Mailer.SendMail Set Mailer = Nothing ASPQMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with SASmtpMail function SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.RemoteHost = MailerPath Mailer.contenttype = "text/plain" Mailer.AddRecipient ToName, ToEmail Mailer.FromName = FromName Mailer.FromAddress = FromEmail Mailer.Subject = Subject Mailer.BodyText = Message Mailer.SendMail Set Mailer = Nothing SASmtpMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with JMail function JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("JMail.SMTPMail") Mailer.ServerAddress = MailerPath & ":" & MailerPort Mailer.contenttype = "text/plain" Mailer.AddRecipient ToEmail Mailer.Sender = FromEmail Mailer.Subject = Subject Mailer.Body = Message Mailer.Execute Set Mailer = Nothing JMail_Mailer = true Response.Redirect(mailRedirect) end function '====================================== ' Sends an email with ASPEmail function ASPEmail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect) on error resume next Dim Mailer Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = MailerPath Mailer.Port = MailerPort Mailer.From = FromEmail Mailer.FromName = FromName Mailer.AddAddress ToName, ToEmail Mailer.Subject = Subject Mailer.Body = Message Mailer.Send Set Mailer = Nothing ASPEmail_Mailer = true Response.Redirect(mailRedirect) end function %>