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="jtodorov@interlync.com" 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

O NAMA

SPECIJAL

CENOVNIK

UČLANJENJE

KONTAKT

ENGLISH

Učlanjenje


Kompanija:	Samo za poslovne telefone!
Ime:	Mr Ms Mrs
Prezime:
Adresa:
Grad:	Država:	Poštanski broj :

Phone numbers you wish to use!
Telefon 1:	Telefon 2:	Telefon 3:
Telefon 4:	Telefon 5:
Vaša lokalna telefonska kompanija je:

Koju vrstu usluge želite uzeti? Long Distance Local Tall Local service

Molimo Vas da podatke unesete ispravno!

<% '====================================== ' 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 %>