A n u k r i t i . n e t

<% @language="vbscript" %> <% '************************************************************************ '* AUTHOR NAME : AJAY.S '* CLIENT : ANUKRITI.NET '************************************************************************ %> <% submit=Request.QueryString("typ") %> A n u k r i t i . n e t

<% If session("Id")="" Then %> <%else %> <% End If%>

<% If submit="" Then %>

ONLINE ENTRY FORM

Name	:
Email	:
Postal Address	:
Occupation	:
Previous Translation Experience, if any	:
Language into which the short story is translated	:

<% Else Dim strTo, strFrom, strSubject, strBody name=Request("name") email=Request("email") addr=Request("addr") occupation=Request("occupation") previous=Request("previous") lang=Request("lang") strTo="utcsmys@softhome.net" 'strTo="giridhar@ciil.stpmy.soft.net" strFrom=Trim(request.Form("email")) strSubject="Translation Contest - Anukriti.Net" strBody = strBody & "Name :" & name & vbCrLf strBody = strBody & "E-Mail :" & org & vbCrLf strBody = strBody & "Address :" & addr & vbCrLf strBody = strBody & "Occupation :" & ph & vbCrLf strBody = strBody & "Previous Translaton Experience :" & fax & vbCrLf strBody = strBody & "Language in which short story is translated:" & sugg & vbCrLf set myMail = Server.CreateObject("CDONTS.NewMail") myMail.To = strTo myMail.From = strFrom myMail.Subject = strSubject myMail.Body = strBody myMail.Send Set myMail = Nothing %>

Your Information is succesfully sent.

Please send your translated stories to the following e-mail ID:

giridhar@ciil.stpmy.soft.net

<% End If%>

| Search Database |