Lettura dati DB e interazione con IF RS

[FaBi0nE]

Ciao ragazzi,
un piccolissimo aiuto
Ho questo semplicissimo codice

<%
  Set Conn = Server.CreateObject("adodb.connection")
  Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/database.mdb")
  Sql = "SELECT * FROM tabella WHERE ID=" & session("id")
  Set Rs = Conn.Execute(Sql)
  
  if rs("cognome") = "bianchi" then 
  response.write ("Selezionato correttamente il cognome")
   else
  response.write ("MI SPIACE RIPROVA")
   end if
  
  Conn.close
  Set Conn = nothing
  %>

che ovviamente funziona perfettamente.
Sulla riga - if rs("cognome") = "bianchi" then - devo andare a sostituire cognome con anno (e fino a qui non c'è problema) ma dove c'è bianchi ci devo mettere una parte della data perché sul DB la data è salvata come 15/01/2015 e a me interessa solo sapere se fa parte o no del 2015
Come faccio a fare questa modifica?
if rs("anno") = "????????" then


Spero di essere stato abbastanza chiaro nella spiegazione...
Grazie ragazzi

[marino51]

se la colonna del db che contiene la data è definita "datetime" puoi far ricorso alla funzione "datepart"
che trovi descritta qui
https://msdn.microsoft.com/it-it/library/ms174420.aspx
se è una stringa, credo che funzionino bene le "right" e "left" in vb

[FaBi0nE]

Innanzitutto grazie per la risposta.
La data è effettivamente definita come "datetime"

Ho provato a fare cosi

DATEPART(year, rs("data"))
if rs("data") = "2015" then

Ovviamente non va

[Daisyland]

Hai letto male come va utilizzata Datepart nel link che ti è stato dato.
Comunque così funziona:

If Right(rs("DATA"),4) = "2015" Then
     response.write "OK"
End If

[optime]

if year(rs("data"))=2015 then