muhammet MUSTAFA öztürk

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("isimkodu") <> "") Then Recordset1__MMColParam = Request.QueryString("isimkodu") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_sino_STRING Recordset1.Source = "SELECT * FROM isim WHERE isimkodu = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim rsisimsearch__varIsim rsisimsearch__varIsim = "%" If (Request.Form("tfisim") <> "") Then rsisimsearch__varIsim = Request.Form("tfisim") End If %> <% Dim rsisimsearch Dim rsisimsearch_numRows Set rsisimsearch = Server.CreateObject("ADODB.Recordset") rsisimsearch.ActiveConnection = MM_sino_STRING rsisimsearch.Source = "SELECT * FROM isim WHERE isim LIKE '%" + Replace(rsisimsearch__varIsim, "'", "''") + "%'" rsisimsearch.CursorType = 0 rsisimsearch.CursorLocation = 2 rsisimsearch.LockType = 1 rsisimsearch.Open() rsisimsearch_numRows = 0 %> <% Dim rsisim Dim rsisim_numRows Set rsisim = Server.CreateObject("ADODB.Recordset") rsisim.ActiveConnection = MM_sino_STRING rsisim.Source = "SELECT * FROM isim" rsisim.CursorType = 0 rsisim.CursorLocation = 2 rsisim.LockType = 1 rsisim.Open() rsisim_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 rsisim_numRows = rsisim_numRows + Repeat1__numRows %> Çin Eğitim Hizmetleri - İsimler

İsimler yeni sitemize taşınmıştır. Lütfen tıklayınız...

<% Recordset1.Close() Set Recordset1 = Nothing %> <% rsisimsearch.Close() Set rsisimsearch = Nothing %> <% rsisim.Close() Set rsisim = Nothing %>