fatto ma ora genera questo errore
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id =2 target='.

/virusalert/scheda.asp, line 86


sulla riga stessa riga
rs.Open "select * from virus where id ="&id1, conn

anche se l'errore fa riferimento ad una riga di una funzione inclusa
Function StampaVirus(byRef Conn)
Dim rs
Set Rs = Conn.Execute("select TOP 1 * ,Link from virus order by id DESC")
Do while NOT RS.EOF
Response.Write "" & rs("link") & "
"
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
End Function