if Not rs.EOF Or Not rs.BOF Then...

[naps]

Questa è la tua mi porta sempre a scrivi.asp in tutti e due i casi :

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If rs.EOF Or rs.BOF Then 
response.Redirect("scrivi.asp")

else
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")

End if

anche la prima che avevo postato e corretto con la riga che mi segnalavi tu...:

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If Not rs.EOF Or Not rs.BOF Then 
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")
else if rs.EOF And rs.BOF Then 
response.Redirect("scrivi.asp")
End if
End if

in tutti e due i casi mi portano a scrivi.asp