<%@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.
<%
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
%>
