<%@LANGUAGE="VBSCRIPT"%> <% Dim News Dim News_numRows Set News = Server.CreateObject("ADODB.Recordset") News.ActiveConnection = MM_eroti_STRING News.Source = "SELECT * FROM news" News.CursorType = 0 News.CursorLocation = 2 News.LockType = 1 News.Open() News_numRows = 0 %> <% Dim Contact Dim Contact_numRows Set Contact = Server.CreateObject("ADODB.Recordset") Contact.ActiveConnection = MM_eroti_STRING Contact.Source = "SELECT * FROM contact" Contact.CursorType = 0 Contact.CursorLocation = 2 Contact.LockType = 1 Contact.Open() Contact_numRows = 0 %> <% Dim About Dim About_numRows Set About = Server.CreateObject("ADODB.Recordset") About.ActiveConnection = MM_eroti_STRING About.Source = "SELECT * FROM about" About.CursorType = 0 About.CursorLocation = 2 About.LockType = 1 About.Open() About_numRows = 0 %> <% Dim Proj Dim Proj_numRows Set Proj = Server.CreateObject("ADODB.Recordset") Proj.ActiveConnection = MM_eroti_STRING Proj.Source = "SELECT * FROM proj" Proj.CursorType = 0 Proj.CursorLocation = 2 Proj.LockType = 1 Proj.Open() Proj_numRows = 0 %> <% Dim Stor Dim Stor_numRows Set Stor = Server.CreateObject("ADODB.Recordset") Stor.ActiveConnection = MM_eroti_STRING Stor.Source = "SELECT * FROM stor" Stor.CursorType = 0 Stor.CursorLocation = 2 Stor.LockType = 1 Stor.Open() Stor_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Book1_numRows = Book1_numRows + Repeat1__numRows %> :: Rasoul Mollagholipour
 
 
 
 
About Me
Weblog
Stories
Projects
Guest Book
Contact Me
 
Copyright © 2006 Rasoul Mollagholipour Inc. All rights reserved | Best View With 1024*768
<% News.Close() Set News = Nothing %> <% Contact.Close() Set Contact = Nothing %> <% About.Close() Set About = Nothing %> <% Proj.Close() Set Proj = Nothing %> <% Stor.Close() Set Stor = Nothing %>