<% '************************************************************************ '* AUTHOR NAME : AJAY.S '* CLIENT : ANUKRITI.NET '************************************************************************ %> <% Dim submit submit=Request.QueryString("typ") %> <% If submit="" Then%>
Submit Information On Translations Along The Following Lines

E-Mail :
Source Language :
Target Language :
Translator :
Category : Literary Scientific/Technical
Law and administration
Any Other 
Extent of Translation : Partial Complete
Date of Publication :
Availability :
Publisher :
Which of the above mentioned translations has been reviewed :
Title of the Review :
Name of the Reviewer :
Where has the review been Published :
Date of Publication :
The Language in which it has been Published :
Latest Published Translation Works :
Events Related to Translation (General or across any Specific Language Pair) : Workshop Seminar/Colloqium
Awards Presented to Translators/Translated works(In Any Language or General) : Translator Name        
Translated Work Title 
Publisher                  
Date                         
   
<% Else Dim from,slang,tlang,translator,literary,scientific,law,other,extent,dat,availability,publisher Dim review,titlerev,namerev,whererev,datepub1,langpub,transworks,workshop,semcolo,awardname1,awardtitle1,awardpubl1,awarddate1 Dim myMail,strBody from = request("from") slang = request("slang") tlang = request("tlang") translator = request("translator") literary = request("literary") scientific = request("scientific") law = request("law") other = request("other") extent = request("extent") dat = request("dat") availability = request("availability") publisher = request("publisher") review = request("review") titlerev = request("titlerev") namerev = request("namerev") whererev = request("whererev") datepub1 = request("datepub1") langpub = request("langpub") transworks = request("transworks") workshop = request("workshop") semcolo = request("semcolo") awardname1 = request("awardname1") awardtitle1 = request("awardtitle1") awardpubl1 = request("awardpubl1") awarddate1 = request("awarddate1") strBody = strBody & "E-Mail :" & from & vbCrLf strBody = strBOdy & "Source Language :" & slang & vbCrLf strBody = strBody & "Target Language :" & tlang & vbCrLf strBody = strBody & "Translator :" & translator & vbCrLf strBody = strBody & "Category :" & literary & scientific & law & other & vbCrLf strBody = strBody & "Extent of Translation :" & extent & vbCrLf strBody = strBody & "Date of Publication :" & dat & vbCrLf strBody = strBody & "Availability :" & availability & vbCrLf strBody = strBody & "Publisher :" & publisher & vbCrLf strBody = strBody & "Above translations reviewed :" & review & vbCrLf strBody = strBody & "Title of the Review :" & titlerev & vbCrLf strBody = strBody & "Name of Reviewer :" & namerev & vbCrLf strBody = strBody & "Where Published :" & whererev & vbCrLf strBody = strBody & "Date of Publication :" & datepub1 & vbCrLf strBody = strBody & "Language Published :" & langpub & vbCrLf strBody = strBody & "Published translation :" & transworks & vbCrLf strBody = strBody & "Events related to translation :" & workshop & semcolo & vbCrLf strBody = strBody & "Awards Presented :" & awardname1 & awardtitle1 & awardpubl1 & awarddate1 & vbCrLf Set myMail = Server.CreateObject("CDONTS.NewMail") 'myMail.To = "bhasha@ciil.stpmy.soft.net" myMail.To = "utcsmys@softhome.net" myMail.From = from myMail.Subject = "Anukriti.Net - Information on Translations" myMail.Body = strBody myMail.Send Set myMail = Nothing Response.Write("
Thankyou for submitting the comments
") End If %>

Back