<% Response.Buffer = true Function BuildUpload(RequestBin) 'Get the boundary PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) boundaryPos = InstrB(1,RequestBin,boundary) 'Get all data inside the boundaries Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) 'Members variable of objects are put in a dictionary object Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") 'Get an object name Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition")) Pos = InstrB(Pos,RequestBin,getByteString("name=")) PosBeg = Pos+6 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename=")) PosBound = InstrB(PosEnd,RequestBin,boundary) 'Test if object is of file type If PosFile<>0 AND (PosFile "" Then contentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) FolderName = UploadRequest.Item("where").Item("Value") 'Response.Write "FolderName: " & FolderName & "
" Path = Mid(Request.ServerVariables("PATH_TRANSLATED"), 1, Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(Request.ServerVariables("PATH_INFO"))) & "\" 'Response.Write "Path:" & Path & "
" ToFolder = Path & "\" & FolderName value = UploadRequest.Item("blob").Item("Value") filename = ToFolder & "\" & filename Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = MyFileObject.CreateTextFile(filename) 'Response.Write "Saved Path: " & filename For i = 1 to LenB(value) objFile.Write chr(AscB(MidB(value,i,1))) Next objFile.Close Set objFile = Nothing Set MyFileObject = Nothing End If MyText = "Name : " &UploadRequest.Item("name").Item("Value") & "
" MyText = MyText & "Email : " &UploadRequest.Item("email").Item("Value") & "
" MyText = MyText & "Address1 : " &UploadRequest.Item("address1").Item("Value") & "
" MyText = MyText & "Address2 : " &UploadRequest.Item("address2").Item("Value") & "
" MyText = MyText & "City : " &UploadRequest.Item("city").Item("Value") & "
" MyText = MyText & "Pin Code : " &UploadRequest.Item("pin").Item("Value") & "
" MyText = MyText & "Country : " &UploadRequest.Item("country").Item("Value") & "
" MyText = MyText & "Phone No : " &UploadRequest.Item("telephone").Item("Value") & "
" MyText = MyText & "Mobile : " &UploadRequest.Item("mobile").Item("Value") & "
" MyText = MyText & "Availability : " &UploadRequest.Item("availability").Item("Value") & "
" MyText = MyText & "Source Language : " &UploadRequest.Item("sl").Item("Value") & "
" MyText = MyText & "Target language : " &UploadRequest.Item("tl").Item("Value") & "
" MyText = MyText & "Average translated output in words per day: " &UploadRequest.Item("perday").Item("Value") & "
" MyText = MyText & "Additional language: " &UploadRequest.Item("addlan").Item("Value") & "
" MyText = MyText & "-------------------------------" & "
" MyText = MyText & "Comments : " & vbcrlf &UploadRequest.Item("comment").Item("Value") & "
" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.languagelocalist.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = UploadRequest.Item("email").Item("Value") objCDOSYSMail.To = "translators@languagelocalist.net" objCDOSYSMail.Subject = "Mail from Translator-"&UploadRequest.Item("name").Item("Value") objCDOSYSMail.HTMLBody = MyText On Error Resume Next objCDOSYSMail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing 'MySubject = "Mail from Translator-"&UploadRequest.Item("name").Item("Value") 'MyTo = "translators@languagelocalist.net" 'MyFrom = UploadRequest.Item("email").Item("Value") ' ' 'Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'ObjCDOMail.From = MyFrom 'ObjCDOMail.To = MyTo 'ObjCDOMail.BodyFormat = 0 'ObjCDOmail.Mailformat = 0 'ObjCDOMail.Subject = MySubject 'ObjCDOMail.Body = MyText ' 'ObjCDOMail.Send 'Set ObjCDOMail = Nothing %> <% Dim db Dim Con Dim RSHimanshu Dim SQL db = Server.MapPath("language.mdb") Set Con = Server.CreateObject("ADODB.Connection") Set RSHimanshu = Server.CreateObject("ADODB.Recordset") Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&db SQL = "Select * from tran" RSHimanshu.Open SQL,Con,1,2 RSHimanshu.addnew RSHimanshu("name")=UploadRequest.Item("name").Item("Value") RSHimanshu("email")=UploadRequest.Item("email").Item("Value") RSHimanshu("address1")=UploadRequest.Item("address1").Item("Value") RSHimanshu("address2")=UploadRequest.Item("address2").Item("Value") RSHimanshu("city")=UploadRequest.Item("city").Item("Value") RSHimanshu("pin")=UploadRequest.Item("pin").Item("Value") RSHimanshu("country")=UploadRequest.Item("country").Item("Value") RSHimanshu("telephone")=UploadRequest.Item("telephone").Item("Value") RSHimanshu("mobile")=UploadRequest.Item("mobile").Item("Value") RSHimanshu("availability")=UploadRequest.Item("availability").Item("Value") RSHimanshu("sl")=UploadRequest.Item("sl").Item("Value") RSHimanshu("tl")=UploadRequest.Item("tl").Item("Value") RSHimanshu("perday")=UploadRequest.Item("perday").Item("Value") RSHimanshu("addlan")=UploadRequest.Item("addlan").Item("Value") RSHimanshu("comment")=UploadRequest.Item("comment").Item("Value") RSHimanshu.update RSHimanshu.close Con.close email = UploadRequest.Item("email").Item("Value") Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ObjCDOMail.From = "translators@languagelocalist.net" ObjCDOMail.To = email ObjCDOMail.BodyFormat = 0 ObjCDOmail.Mailformat = 0 ObjCDOMail.Subject = "Thanks for submitting your profile with Language Localist" ObjCDOMail.Body = "Thanks for mail" ObjCDOMail.Send Set ObjCDOMail = Nothing response.Clear() response.Redirect("http://www.languagelocalist.com/quote1.asp") end if %> :: Language Localist :: language translation - all Indian, Islamic, European langauges, multilingual dtp


 
 
 
 
 
 
 
 
 


Language Localist
SF-42, Ansal Fortune Arcade
Sector-18
Noida - 201301, India
Tel.: +91 120 4312176
Fax: +91 120 4312176
Mob: +91 98107 31000
Email: info@languagelocalist.com
 
HomeJoin Us
 

 
JOIN US: TRANSLATORS
 
We need Good Quality professional translators and proofreaders/editors in all languages.

If you are a fully qualified, experienced, professional freelance translator,
then we are pleased to hear from you.

Interested? Please complete this online form. Fill out as much as you can; the more information you give us, the easier it will be for us to consider you quickly for freelance assignments. We guarantee that the information you provide will remain strictly confidential.

Please note that all fields marked by an asterisk must be filled in.

1. Contact Details
 
* Your Name: 
* E-mail: 
Address 1:
Address 2:
City
Postal Code:
* Country: 
Telephone:
Mobile:
Availability
 
2. Areas of Expertise
 
Language(s):
* Source Language(s): 
* Target Language(s):
* Average translated output in words
per day:
List your additional language capabilities    and hardware & software skills here:
Upload your resume here:
 
3. Comments
 
Please add any additional comments here: