Today is
LOCATOR / ROUTEMAP
   
Upcoming Program Books
Home Business Model Value Model Team Books Programs Modules Activities Articles Photo Gallery Press
Reach Us
 
 

intellects program


Intellects Biz
Aparna Sarovar, Block H - 104,
Kancha Gachibowli, Serilingampally Mandal,
Gopanapally Post
Hyderabad - 500 046
Phone: 040-65458185
Email: reachus@intellects.biz
Web: www.intellects.biz

Moid Siddiqui
Managing Director
Mobile: +91 9848049944
Email: moidsiddiqui@gmail.com




<% 'Declaring Variables Dim uname,company,phone,fax,email,designation Dim subject,otherdetails,action,IsError ' Grabbing variables from the form post Uname = Request("uname") Company = Request("company") Phone = Request("phone") Fax = Request("fax") Email = Request("from") OtherDetails = Request("otherdetails") Action = Request("action") 'Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> <% ' ***** Email Content Starts ***** %> <% If Action = "SendEmail" Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If Uname = "" Then IsError = "Yes" Response.Write("You did not enter your ""Name"".
") End If If Phone = "" Then IsError = "Yes" Response.Write("You did not enter your ""Company"" name.
") End If If Phone = "" Then IsError = "Yes" Response.Write("You did not enter your ""Phone"".
") End If If IsValidEmail(Email) = "False" Then IsError = "Yes" Response.Write("You did not enter a valid ""Email"" ID.
") End If 'If designation = "" Then 'IsError = "Yes" 'Response.Write("You did not enter ""designation"".
") 'End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "" & "Contact Us Form submitted at : " & "" & Now() & vbCrLf & "

" 'strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" 'strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" strBody = strBody & "" & "Name" & " : " & "" & " " & Replace(Uname,vbCr,"
") & "
" strBody = strBody & "" & "Company" & " : " & "" & " " & Replace(Company,vbCr,"
") & "
" strBody = strBody & "" & "Phone" & " : " & "" & " " & Replace(Phone,vbCr,"
") & "
" strBody = strBody & "" & "Fax" & " : " & "" & " " & Replace(Fax,vbCr,"
") & "
" strBody = strBody & "" & "Email" & " : " & "" & " " & Replace(Email,vbCr,"
") & "
" strBody = strBody & "" & "Purpose / Sugessions" & " : " & "" & " " & Replace(OtherDetails,vbCr,"
") & "
" strBody = strBody & "
" Dim objEmail Set objEmail = CreateObject("CDO.Message") objEmail.From = "enquiries@intellects.biz" objEmail.To = "enquiries@intellects.biz" objEmail.Subject = "Intellects Biz ""Contact Us"" Enquiry" 'ObjEmail.TextBody = strBody 'objEmail.TextBody = "This is a test message." objEmail.HTMLBody = strBody 'objEmail.HTMLBody = "How r u ?" With objEmail.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "sendmail4.brinkster.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "enquiries@intellects.biz" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "3nquiri3s" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With objEmail.Send Set objEmail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %>

Your request has been sent successfully. Thank You !!

Go Back

 

 

<% Else %>

Please fill the form and submit it. (Feilds marked with * are mandatory)

Name:  *
Company  *  
Phone:  *
Fax:
Email:  *
Purpose / Sugessions:
   
 
<% End If %> <% ' ***** Email Content Ends ***** %>
 
 
 

press conference



Corporate Soul - Top of the best seller list under the non-fiction category

KS Raju, Chairman Nagarjuna Group speaks high about Moid Siddiqui and his Corporate Soul during a press conference, organized by Response Books(Sage)... More
 

New Book "The Acrobatics of Change" Released - For more Details Click Here !!

"The Acrobatics of Change" - Book Review, Business Line (The Hindu) - For more details Click Here !!

9th book "Smart Crow Never Goes Thirsty" Released - For more Details Click Here !!

Moid Siddiqui's Interview (The Hindu Newspaper) on his book "Corporate Soul"- For more details Click Here !!

 
Powered by VEMAX INFOTECH
Intellects Biz - Your Business Shubchintak