<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_mehran_STRING news.Source = "SELECT * FROM news ORDER BY ID DESC" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> <% Dim works Dim works_numRows Set works = Server.CreateObject("ADODB.Recordset") works.ActiveConnection = MM_mehran_STRING works.Source = "SELECT * FROM works ORDER BY ID DESC" works.CursorType = 0 works.CursorLocation = 2 works.LockType = 1 works.Open() works_numRows = 0 %> <% Dim gallery Dim gallery_numRows Set gallery = Server.CreateObject("ADODB.Recordset") gallery.ActiveConnection = MM_mehran_STRING gallery.Source = "SELECT * FROM gallery ORDER BY ID DESC" gallery.CursorType = 0 gallery.CursorLocation = 2 gallery.LockType = 1 gallery.Open() gallery_numRows = 0 %> <% Dim download Dim download_numRows Set download = Server.CreateObject("ADODB.Recordset") download.ActiveConnection = MM_mehran_STRING download.Source = "SELECT * FROM download ORDER BY ID DESC" download.CursorType = 0 download.CursorLocation = 2 download.LockType = 1 download.Open() download_numRows = 0 %> <% Dim contact Dim contact_numRows Set contact = Server.CreateObject("ADODB.Recordset") contact.ActiveConnection = MM_mehran_STRING contact.Source = "SELECT * FROM contact ORDER BY ID DESC" contact.CursorType = 0 contact.CursorLocation = 2 contact.LockType = 1 contact.Open() contact_numRows = 0 %> <% Dim random Dim random_numRows Set random = Server.CreateObject("ADODB.Recordset") random.ActiveConnection = MM_mehran_STRING random.Source = "SELECT * FROM [random pic]" random.CursorType = 0 random.CursorLocation = 2 random.LockType = 1 random.Open() random_numRows = 0 %> <% Dim audio Dim audio_numRows Set audio = Server.CreateObject("ADODB.Recordset") audio.ActiveConnection = MM_mehran_STRING audio.Source = "SELECT * FROM audio ORDER BY ID DESC" audio.CursorType = 0 audio.CursorLocation = 2 audio.LockType = 1 audio.Open() audio_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 audio_numRows = audio_numRows + Repeat1__numRows %> The Official WebSite of Mehran Modiri | Iranian Director&Actor.
The Official WebSite of MEHRAN MODIRI an iranian director & Actor | ???? ??????? ????? ????? ? ???????? ? ??????
News | ?????
Works | ?????
Photo Gallery | ????? ?????
Download | ?????? ????
Contact | ???? ...
 
 
Best View With 1024x768 Display Resolution and IE 5 or Higher.
HOME
 
<% news.Close() Set news = Nothing %> <% works.Close() Set works = Nothing %> <% gallery.Close() Set gallery = Nothing %> <% download.Close() Set download = Nothing %> <% contact.Close() Set contact = Nothing %> <% random.Close() Set random = Nothing %> <% audio.Close() Set audio = Nothing %>