Larsen & Toubro

	Registered Office
	Headquarters
	Holck-Larsen Centre
	Engineering Design & Research Centre
	Regional Offices
	Works
	International Offices

Alumni

Fostering lifelong connections with the global L&T community and building relationships and promoting fellowships.
This will enable L&T Alumnus to be connected with the company. Designed with YOU in mind, we want you to be informed, involved and inspired on L&T’s developments.

Register your details.

<% 'Sample file Form-Email.asp ' Let's you send one an email with one or more attachments. 'Global declarations. 'Get temporary folder Dim ResultHTML 'Create upload form 'Using Huge-ASP file upload 'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm") 'Using Pure-ASP file upload Dim Form: Set Form = New ASPForm %> <%=ResultHTML%> <% Server.ScriptTimeout = 1000 'Do not upload data greater than 10MB. Form.SizeLimit = &HA00000 'Progress bar window will receive the same ID. Form.UploadID = Request.QueryString("UploadID")'{/b} Const fsCompletted = 0 If Form.State = fsCompletted Then 'Completted ResultHTML = ProcessForm ElseIf Form.State > 10 then Const fsSizeLimit = &HD Select case Form.State case fsSizeLimit: ResultHTML = "
Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)
" case else ResultHTML = "
Some form error.
" end Select End If if request.QueryString("Action") = "Cancel" then ResultHTML = "
Upload was cancelled" end if Function TempFolder() Dim FS Set FS = CreateObject("Scripting.FileSystemObject") 'Get temporary folder TempFolder = FS.GetSpecialFolder(2) & "\emailtemp" End Function Sub DeleteFile(FileName) Dim FS Set FS = CreateObject("Scripting.FileSystemObject") FS.DeleteFile FileName End Sub Function ProcessForm Dim eFrom, eTo, Subject, Message 'get source form fields - From, To, Subject and Message firstName=Form("firstName") lastName=Form("lastName") dob=Form("dob") joiningyear=Form("joiningyear") dept=Form("dept") psno=Form("psno") cur_emp=Form("cur_emp") industry=Form("industry") other=Form("other") jobprofile=Form("jobprofile") txtAddress1=Form("txtAddress1") txtCountry=Form("txtCountry") txtPhone=Form("txtPhone") txtFax=Form("txtFax") txtaddress2=Form("txtaddress2") city=Form("city") areacode=Form("areacode") countryres=Form("countryres") phoneres=Form("phoneres") txtEmail=Form("txtEmail") information=Form("information") eFrom = firstName eTo = "ks@lntecc.com" Subject= "Alumni Details from "&firstName 'Message= det '--------------------------------------------- Dim Flds set objMessage = CreateObject("CDO.Message") set objConfig = CreateObject("CDO.Configuration") 'Setting the SMTP ServerSet Set Flds = objConfig.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.lntecc.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With bodystr="" bodystr=bodystr&"

" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"" bodystr=bodystr&"

First Name: "& firstName &".

Last Name : "& LastName &".

Date Of Birth : "& dob &".

Year of Joining L&T : "& joiningyear &".

Department in L&T: "& dept &".

P.S.No. : "& psno &".

Currently employed at : "& cur_emp &".

Industry : "& industry &".

Other : "& other &".

Job Profile : "& jobprofile &".

Address(Office) : "& txtAddress1 &".

Country : "& txtCountry &".

Tel.No.(Office) : "& txtPhone &".

Fax : "& txtfax &".

Contact Information.

Address(Res) : "& txtaddress2 &".

City/Town : "& city &".

Area Code/Post code : "& areacode &".

country :"& countryres &".

Tel.No.(Res) : "& phoneres &".

Email ID: "& txtEmail &".

Information : "& information &".

" Set objMessage.Configuration = objConfig objMessage.To = "klakshmipriya07@gmail.com" objMessage.From = eFrom objMessage.Subject = Subject objMessage.HTMLBody = bodystr '--------- Attach the files ----------- For Each File In Form.Files.Items 'If source file is specified. If Len(File.FileName) > 0 Then FileName = TempFolder & "\" & File.FileName File.SaveAs FileName objMessage.AddAttachment(FileName) End If Next objMessage.fields.update objMessage.Send set objMessage = nothing set objConfig = nothing 'delete temporary files For Each File In Form.Files.Items If Len(File.FileName) > 0 Then response.Write(FileName) FileName = TempFolder & "\" & File.FileName on error resume next DeleteFile FileName End If Next 'ProcessForm = HTML 'response.Redirect("message.asp") End Function Dim UploadID, PostURL UploadID = Form.NewUploadID 'Send this ID as a UploadID QueryString parameter to this script. PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID&"&id="&id %>

The following details will be added to your contact information.
	Name	:
	Date of Birth (dd/mm/yyyy)	:
	Year of joining L&T	:
	Department in L&T	:
	P. S. No.	:
	Currently Employed at	:
	Industry	:
	Other	:
	Job Profile	:
	Address (Office)	:
	Country	:
	Tel. No. (Office)	:
	Fax	:
	Address (Res)	:
	City / Town	:
	Area Code / Post code	:
	Country	:
	Tel. No. (Res)	:
	Contact E-mail	:
	Upload Photo	:
	Information Sought	: