<%@ Language=VBScript %> <% 'File for sending email to the client if Request.Form("subs") = "reg" then 'response.Write("---------------") 'response.End() strTitle = Request.Form("title") strEngTitle = Request.Form("engtitle") strLanguage = Request.Form("language") strCountry = Request.Form("country") strFilmYear = Request.Form("filmyear") strPrintValue = Request.Form("printvalue") 'strPrintValueCurrency = Request.Form("printvaluecurrency") strFilmLength = Request.Form("filmlength") strFilmLengthUnit = Request.Form("filmlengthunit") strFilmRunningTimeHours = Request.Form("filmrunningtimehours") strFilmRunningTimeMins = Request.Form("filmrunningtimemins") strFilmFormat = Request.Form("filmformat") strReels = Request.Form("reels") strFilmTint = Request.Form("filmtint") strFilmSound = Request.Form("filmsound") strAspectRatio = Request.Form("aspectratio") strSynopsis = Request.Form("synopsis") strFilmBody = "
DETAILS OF FILM
" strFilmBody = strFilmBody & "Original Title: " & strTitle & "
English Title: " & strEngTitle & "" strFilmBody = strFilmBody & "
Language: "&strLanguage&"
Year: "&strFilmYear& "
Country: "&strCountry strFilmBody = strFilmBody & "

Print Value: "&strPrintValue &"
Length: "&strFilmLength&" "&strFilmLengthUnit&"
Running Time: "&strFilmRunningTimeHours& " hrs "&strFilmRunningTimeMins&" mins" strFilmBody = strFilmBody & "
Format: "&strFilmFormat &"
Reels: "&strReels&"
Tint: "&strFilmTint& "
" strFilmBody = strFilmBody & "Sound: "&strFilmSound&"
Aspect Ratio: "&strAspectRatio&"
" strFilmBody = strFilmBody & "Synopsis:
"&strSynopsis 'Institute Information strProdName = Request.Form("pname") strProdMail = Request.Form("pmail") strProdAddress = Request.Form("padd") strProdFax = Request.Form("pfax") strProdTele = Request.Form("ptele") strProdBody = "

DETAILS OF INSTITUTE" strProdBody = strProdBody & "
"&strProdName& "
" &strProdAddress&"
Phone: "&strProdTele &"
Fax: "&strProdFax&"
" strProdBody = strProdBody & "Email: "&strProdMail 'Director Details strDirName = Request.Form("dirname") strDirMail = Request.Form("dirmail") strDirAddress = Request.Form("diradd") strDirFax = Request.Form("dirfax") strDirTele = Request.Form("dirtel") strDirectorBody = "

DETAILS OF DIRECTOR" strDirectorBody = strDirectorBody & "
"&strDirName& "
" &strDirAddress&"
Phone: "&strDirTele &"
Fax: "&strDirFax&"
" strDirectorBody = strDirectorBody & "Email: "&strDirMail 'Senders Details strSenderName = Request.Form("senname") strSenderMail = Request.Form("senmail") strSenderAddress = Request.Form("senadd") strSenderFax = Request.Form("senfax") strSenderTele = Request.Form("sentel") strSenderDetailsBody = "

DETAILS OF CONTACT PERSON" strSenderDetailsBody = strSenderDetailsBody & "
"&strSenderName& "
" &strSenderAddress&"
Phone: "&strSenderTele &"
Fax: "&strSenderFax strSenderDetailsBody = strSenderDetailsBody & "
Email: "&strSenderMail strBody = "REGISTERATION DETAILS
" strBody = strBody & strFilmBody strBody = strBody & strProdBody strBody = strBody & strDirectorBody strBody = strBody & strSenderDetailsBody strTo = "info@affmumbai.com" 'strTo = "gnarwekar@yahoo.com" strSubject = "Registration for Competition of Diploma Films in Asian Film School 2005" Dim objCDO Set objCDO = Server.CreateObject("Persits.MailSender") objCDO.Host = "localhost" objCDO.UserName = "admin@affmumbai.com" objCDO.Password = "admin" 'objCDO.Port = 25 objCDO.From = strSenderMail objCDO.FromName = strSenderName objCDO.AddAddress strTo objCDO.AddCC "gnarwekar@yahoo.com" objCDO.Subject = strSubject objCDO.IsHTML = True objCDO.Body = strBody 'response.Write(objCDO.fromname) 'response.Write("
strbody:
" & strBody) on error resume next 'objCDO.MailFormat = 0 objCDO.Send If Err <> 0 Then Response.Write "
Error encountered while sending email. Please try again after a while." Response.redirect("registererror.php") End If Set objCDO = nothing 'response.Write("hiiiiiiiiii") Response.redirect("recieved.php") end if %> <% PageID = 2%>

Online Application Form new Rules and Regulations Only film schools recognized by the Government and reputed university of the country would be eligible to participate. Other institutes teaching cinema, but not completely devoted to film making are not eligible to participate. The diploma films mean a short feature film made by student to get the final diploma in direction. The entry should be sent by the Head/ Director/ Principal of the School/ Institute. Each School/ Institute can send 3 short features in English or subtitled in English diploma films of duration between 15 to 30 min. The Festival can make exceptions for duration. Entry form will not be accepted from students but Festival Director can make exception for any short feature made by Asian student from the country where there is no film school and student studying cinema outside Asia. 3 Member International Jury will give the Award for the Best Diploma Film. Cash award of Rs. 1,00,000/- (Approx. US$ 2,000) to the student plus trophy to the film school. The decision of the jury will be final. Preview tapes VCD/ VHS Pal should be submitted by the film schools at their expense; along with the entry forms by 30th August 2005. The final prints in 35 mm / DVD should reach us by 10th Oct. 2005. I have read the above mentioned rules and regulations and my application is in agreement of the same. Details of Film Original Title English Title Language Country Production Year Format <%for yr = 2004 to 2005%> <%=yr%> <%next%> 35 mm 70 mm VHS DVD Length Number of Reels meter ft <%for i = 1 to 24%> <%=i%> <%next%> Running Time <%for k = 0 to 10%> <%=k%> <%next%> hr <%for p = 0 to 59%> <%=p%> <%next%> min Value of Print in USD($) Tint Aspect Ratio Black & White Colour 1:1.33 1:1.66 1:1.85 1:2.33 Sound Mono Dolby A Dolby SRD Digital Optical Magnetic Brief Synopsis Top of Page Details of Institute Name Address Telephone Fax Email Top of Page Details of Director Name Telephone Fax Address Email Top of Page Details of Contact Person Name Address Telephone Fax Email    Top of Page