'sostituzione degli apici singoli nelle query SQL
function sostituiscisql(text)
if len(text) > 0 then
sostituiscisql=replace(text, "'", "''", 1, -1, 1)
end if
end function

Sql = "SELECT * FROM italiano WHERE Sezione = '" & sostituiscisql(Request.QueryString("nome")) & "'"