Recordset con query

<%


Function FixSQL(stringa)
stringa = Replace(stringa, "'", "''")
stringa = Replace(stringa, "%", "[%]")
stringa = Replace(stringa, "[", "[[]")
stringa = Replace(stringa, "]", "[]]")
stringa = Replace(stringa, "_", "[_]")
stringa = Replace(stringa, "#", "[#]")
FixSQL = stringa
End function




dim sql
nomeform = FixSQL(nomeform)

Set rs2 = Server.CreateObject("ADODB.Recordset")

sql = "SELECT DISTINCT PagineConta.* FROM PagineConta WHERE (((PagineConta.Pagina)='" & nomeform & "'))"

'rs2.ActiveConnection = Cn

rs2.CursorLocation = 3 'adUseClient
rs2.CursorType = 1 ' adOpenKeyset
rs2.LockType = 3 'adLockOptimistic
' r2s.Source = "SELECT DISTINCT PagineConta.* FROM PagineConta ORDER Pagina" ' WHERE (((PagineConta.Pagina)='" & nomeform & "'))"

'rs2.open
set rs2 = cn.execute(sql,RecordsAffected)



%>