CONTACT US

<%'/**************************copied %> <% Function titleCase(strValue) strSplit = Split(strValue, " ") If Ubound(strSplit) > 1 Then For strCount = 0 To Ubound(strSplit) strSplit(strCount) = UCase(Left(strSplit(strCount), 1)) & Right(strSplit(strCount), Len(strSplit(strCount)) - 1) Next titleCase = Join(strSplit, " ") Else titleCase = UCase(Left(strValue, 1)) & Right(strValue, Len(strValue) - 1) End If End Function %> <% frmAction=Trim(Request("frmAction")) Name=Trim(Request("Name")) Email=Trim(Request("Email")) mailstatus = Request("mailstatus") Contactaddress=Trim(Request("Contact address")) Telephone=Trim(Request("Telephone")) Fax=Trim(Request("Fax")) Comments=Trim(Request("Comments & suggestions")) If frmAction="yes" Then ' *******************************Start of Copied functions ' General Purpose EMail generator mailServer = "CDO" mailString = "" mail_recipient = Request.Form("mail_recipient") mail_subject = Request.Form("mail_subject") mail_sortorder = Request.Form("mail_sortorder") mail_returnurl = Request.Form("mail_returnurl") email = Request.Form("email") itemList = Split(mail_sortorder, ",") For itemCount = 0 To Ubound(itemList) formElement = Trim(itemList(itemCount)) formValue = Request(formElement) formCaption =titleCase(formElement) if itemCount < Ubound(itemList) then mailString = mailString & formCaption & ": " & formValue & ","& VbCrLf ' "

"' else mailString = mailString & formCaption & ": " & formValue & VbCrLf end if Next If mailServer = "CDONTS" Then Set mailobj = Server.CreateObject("CDONTS.NewMail") mailobj.to = mail_recipient mailobj.from = Name & " <" & Trim(email) & ">" mailobj.subject = mail_subject mailobj.body = mailString mailobj.send Set mailobj = Nothing ElseIf mailServer = "CDO" Then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "127.0.0.1" .update End With Set cdoMessage = Server.CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Name & " <" & Trim(email) & ">" .To = mail_recipient .Subject = mail_subject .TextBody = mailString .Send End With mailstatus = 1 Set cdoMessage = Nothing Set cdoConfig = Nothing End If Response.Redirect(mail_returnurl & "?mailstatus=" & mailstatus) ' ********************************************End of copied functions Else %> <% If Len(mailstatus) > 0 Then %>



Your comments have been successfully sent to the website administrator.

Thank you for your interest in us.


<% Else %>
For appointments and queries, please contact us.

SCMS South Kalamassery Campus,
South Kalamassery,
Kochi– 682033, Kerala, India.

Tel:
  +91 484 2556315, 2558502

Fax : +91 484 2540482

E-mail : nsipads@scmsgroup.org



If you have any queries regarding our organization or about our services, please use this form.


Entries in the fields marked with * are mandatory <% end if %> <% If Len(mailstatus) <= 0 Then %>
* Name 
* Email 
Contact address 
Telephone 
Fax 
Queries, Comments & Suggestions 

          
<%' ***************************end of copy%> <% End If End If %>