ricerca nomi

[fosforo]

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_ciao_STRING
key = request.querystring("chiave")
sost = "%' and corpo like '%"
key2 = Replace(key, " ", sost)
Recordset1.Source = "SELECT * FROM DB WHERE ID LIKE '%"&key2&"%' ORDER BY ID ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>

[burruchaga]

MA IL TUO DATABASE HA UNA TABELLA CHE SI CHIAMA db CHE CONTIENE UN CAMPO ID DI TIPO TESTUALE?

[fosforo]

si

[burruchaga]

SCRIVI

Dim Recordset1 
Dim Recordset1_numRows 
Set Recordset1 = Server.CreateObject("ADODB.Recordset") 
Recordset1.ActiveConnection = MM_ciao_STRING 
key = request.querystring("chiave") 
sost = "%' and corpo like '%" 
key2 = Replace(key, " ", sost) 
RESPONSE.WRITE "SELECT * FROM DB WHERE ID LIKE '%"&key2&"%' ORDER BY ID ASC" 
RESPONSE.END()
Recordset1.Source = "SELECT * FROM DB WHERE ID LIKE '%"&key2&"%' ORDER BY ID ASC" 
Recordset1.CursorType = 0 
Recordset1.CursorLocation = 2 
Recordset1.LockType = 1 
Recordset1.Open() 
Recordset1_numRows = 0 
%>

E DICCI COSA TI STAMPA