<% 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 & "Job Title : " &UploadRequest.Item("title").Item("Value") & "
" MyText = MyText & "Company Name : " &UploadRequest.Item("company").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("tel").Item("Value") & "
" MyText = MyText & "Fax : " &UploadRequest.Item("fax").Item("Value") & "
" MyText = MyText & "Email : " &UploadRequest.Item("email").Item("Value") & "
" MyText = MyText & "Web Site : " &UploadRequest.Item("website").Item("Value") & "
" MyText = MyText & "Words : " &UploadRequest.Item("words").Item("Value") & "
" MyText = MyText & "Source Language : " &UploadRequest.Item("sl").Item("Value") & "
" MyText = MyText & "Target language : " &UploadRequest.Item("tl").Item("Value") & "
" MyText = MyText & "Date of Translation : " &UploadRequest.Item("tdate").Item("Value") & "
" MyText = MyText & "-------------------------------" & "
" MyText = MyText & "Comments : " & vbcrlf &UploadRequest.Item("req_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 = "quote@languagelocalist.net" objCDOSYSMail.Subject = "Request for a quote-"&UploadRequest.Item("company").Item("Value") objCDOSYSMail.HTMLBody = MyText On Error Resume Next objCDOSYSMail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If 'MySubject = "Request for a quote-"&UploadRequest.Item("company").Item("Value") 'MyTo = "quote@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 quote" RSHimanshu.Open SQL,Con,1,2 RSHimanshu.addnew RSHimanshu("name")=UploadRequest.Item("name").Item("Value") RSHimanshu("title")=UploadRequest.Item("title").Item("Value") RSHimanshu("company")=UploadRequest.Item("company").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("tel")=UploadRequest.Item("tel").Item("Value") RSHimanshu("fax")=UploadRequest.Item("fax").Item("Value") RSHimanshu("email")=UploadRequest.Item("email").Item("Value") RSHimanshu("website")=UploadRequest.Item("website").Item("Value") RSHimanshu("words")=UploadRequest.Item("words").Item("Value") RSHimanshu("sl")=UploadRequest.Item("sl").Item("Value") RSHimanshu("tl")=UploadRequest.Item("tl").Item("Value") RSHimanshu("tdate")=UploadRequest.Item("tdate").Item("Value") RSHimanshu("req_comment")=UploadRequest.Item("req_comment").Item("Value") RSHimanshu.update RSHimanshu.close Con.close email = UploadRequest.Item("email").Item("Value") Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.AttachURL "C:\Domains\languagelocalist.com\wwwroot\\images/logo.jpg", "logo.jpg" objCDOMail.AttachURL "C:\Domains\languagelocalist.com\wwwroot\\images/arrow.gif", "arrow.gif" HTML = "" HTML = HTML & "" HTML = HTML & "Language Localist :: A full service translation agency" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "  " HTML = HTML & "full-service translation agency
" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "
" HTML = HTML & "Thanks for contacting Language Localist, we will contact you shortly.
" HTML = HTML & "
" HTML = HTML & "" HTML = HTML & "

Other Services
 
" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & " " HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "Editing/Proofreading
Website Localization
Document Conversion
Website Development
Web Application Development
" HTML = HTML & "More Information
 

 

" HTML = HTML & "Language Localist
" HTML = HTML & "SF-42, Ansal Fortune Arcade
Sector-18
Noida-201301
Uttar Pradesh
India
" HTML = HTML & "Tel/Fax: + 91 120 4312176
Mobile: + 91 98107 31000
E-mail: info@languagelocalist.com
" HTML = HTML & "website: www.languagelocalist.com

 
" 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 = "quotes@languagelocalist.net" objCDOSYSMail.To = email objCDOSYSMail.Subject = "Thanks for approaching Language Localist" objCDOSYSMail.HTMLBody = HTML On Error Resume Next objCDOSYSMail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If 'ObjCDOMail.From = "quotes@languagelocalist.net" 'ObjCDOMail.To = email 'ObjCDOMail.BodyFormat = 0 'ObjCDOmail.Mailformat = 0 'ObjCDOMail.Subject = "Thanks for approaching Language Localist" 'ObjCDOMail.Body = HTML '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
 
HomeRequest a Quote
 

 
FREE QUOTE: dOCUMENT TRANSLATION
 
To obtain a quote on a translation or editing job, please complete the form below. You will receive a reply within a few hours.

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

1. Contact Details
 
* Your Name: 
Job Title:
* Company Name:
Address 1:
Address 2:
City
Postal Code:
* Country: 
Telephone:
Fax:
* E-mail: 
Company Website:
 
2. Translation Information
 
Total number of words:
* Source Language: 
* Target Language(s):
 
By when do you need the translation?
Select a file to send us here:
 
3. Comments
 
Please add any additional comments here:
(max 255 characters please, for anty detailed information please upload your file)