Dove sbaglio?

[mmaria]

Ciao sono Maria e lavoro in Asp
ecco l'errore:
Errore di run-time di Microsoft VBScript errore "800a000d'

Tipo non corrispondente: '[string: ""]'

Ed ecco lo script:

Set Conn=Server.CreateObject("ADODB.Connection") 
      strConn="driver={Microsoft Access Driver (*.mdb)}; " 
      strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad.mdb") 
      strConn=strConn & ";pwd=training" 
      Conn.Open strConn 
      sql="SELECT TOP 8 * FROM articoli  ORDER BY ad_ID DESC" 
      Set rs = Server.CreateObject("ADODB.Recordset") 
      rs.Open sql, conn ,3,3 
      if not rs.eof then 
      Do While Not rs.EOF 
      
      
      if (rs("campo5")) = 1 then 
      response.write "
Buon giorno"
      response.write mid(rs("AD_DESCRIPTION"),1,150) 
      end if
      if (rs("campo5")) = 2 then
      response.write "
Buona notte"
      response.write mid(rs("AD_DESCRIPTION"),1,150) 
      end if
      if (rs("campo5")) = 3 then
      response.write "
Buona notte"
      response.write mid(rs("AD_DESCRIPTION"),1,150)
      end if
      if (rs("campo5")) = 4 then
      response.write "
Buona notte"
      response.write mid(rs("AD_DESCRIPTION"),1,150)
      end if

      


     
      
      rs("ad_viewed")=rs("ad_viewed")+1 
      rs.update 
      rs.MoveNext 
      Loop 
      end if

L'errore mi è segnalato per la riga in grassetto...
sono proprio una sbadata e non so cosa scrivere

Grazie amici...

[maximum]

Se "(rs("campo5"))" è di tipo stringa devi fare:

if cstr(rs("campo5")) = cstr("1") then...

[Daisyland]

O anche, senza cstr,

if rs("campo5") = "1" then...

cioè col valore a cui viene comparato messo tra virgolette in quanto stringa.

[mmaria]

Sei grande...
se fossi accanto a me... ti riempieri di baci..
Problema risolto...
Ti voglio bene
Maria