Untitled Document

<%@LANGUAGE="VBSCRIPT" %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("Kayit_no") <> "") Then Recordset1__MMColParam = Request.QueryString("Kayit_no") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_data_STRING Recordset1_cmd.CommandText = "SELECT * FROM tablo WHERE Kayit_no = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> Untitled Document

Görmek istediğiniz resmin üzerine tıklayınız

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