Torna al Thread
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/bibl.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.Form("Titolo") <> "") Then
Recordset1__MMColParam = Request.Form("Titolo")
else Recordset1__MMColParam="xjtgxdjk"
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_bibl_STRING
Recordset1_cmd.CommandText = "SELECT AUT.Nome,Titolo,Genere,Argomento,Anno FROM Biblio,(SELECT Id_Biblio,Id_Autore FROM AutBiblio WHERE Id_Autore=?) AS BIB,(SELECT Autore.Nome FROM Autore WHERE Autore.Id_Autore=?) AS AUT WHERE Biblio.Id=BIB.Id_Biblio"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 250, "%" + Recordset1__MMColParam + "%") ' adVarChar
Set Recordset1 = Recordset1_cmd.Execute