Invalid use of Null

[Gio&Ste]

Microsoft VBScript runtime error '800a005e'

Invalid use of Null

newsletter.asp, line 36

la linera 36 è la seguente:

&amp;anno=<%=RecSet.Fields("anno")%>"><%=MonthName(RecSet("mese")) %><%=RecSet("anno")%><span class="evidenza"><% =RecSet("numArt") %></span>

[optime]

per evitare l'errore, quando fai riferimento a un campo aggiungi sempre "", tipo

Response.Write (rs("nomecampo") & "")

[Gio&Ste]

Ho trovato, il problema è generato da un record inserito senza data!!!

Mi sono dimenticato di mettergli un controllo

[Gio&Ste]

Qualcosa ancora non funziona, posto un pò di codice:

			<%
				Set objConn = Server.CreateObject("ADODB.Connection")
				objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/db.mdb")
				Dim Visa
				Set RecSet = Server.CreateObject("ADODB.Recordset")
				Visa = "select Count(News_Data) AS numArt, Year(News_Data) as anno, Month(News_Data) as mese from infogio group by Year(News_Data), Month(News_Data) order by Year(News_Data) DESC, Month(News_Data) DESC" 
				RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic
				do Until RecSet.EOF %>
<a href="newsletter.asp?strdata=<%=RecSet.Fields("mese") & ""%>
&amp;anno=<%=RecSet.Fields("anno")& ""%>">
<%=MonthName(RecSet("mese"))& ""%> 
<%=RecSet("anno")& ""%></a>
<span class="evidenza"><% =RecSet("numArt") %></span>

l'errore è:
Errore di run-time di Microsoft VBScript (0x800A005E)
Utilizzo non valido di Null
/newsletter.asp, line 38

la linea 38 è quella rossa

[optime]

<%=MonthName(RecSet("mese")& "")%>

[Gio&Ste]

Corretto quell'errore mi viene fuori quest'altro messaggio:

Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: ""]'
newsletter.asp, line 38

la linea è sempre quella: devo togliere & ""???

[optime]

se lo togli torni ad avere il problema di prima, no?

prova con

<%=MonthName(CInt(RecSet("mese")& ""))%>

[Gio&Ste]

Ho modificato il codice in questo modo:

<a href="newsletter.asp?strdata=<%=RecSet.Fields("mese") & ""%>
&amp;anno=<%=RecSet.Fields("anno")%>">
<%Response.Write((mese)&"")%>
<%=RecSet("anno")%></a>
<span class="evidenza"><% =RecSet("numArt") %></span>

produce qualche risultato anche se non è del tutto corretto:
la stringa è corretta nella barra di stato ad esempio leggo: stradata=12&anno=2004, ma a video leggo: 2004 2

[Gio&Ste]

un'altra piccola modifica ed il risultato è il seguente:

12 2004 2
9 2004 7
6 2004 3
5 2004 4
4 2004 1
12 2003 2
11 2003 2
0
il codice ora è così:

			<%
				Set objConn = Server.CreateObject("ADODB.Connection")
				objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/db.mdb")
				Dim Visa
				Set RecSet = Server.CreateObject("ADODB.Recordset")
				Visa = "select Count(News_data) AS numArt, Year(News_data) as anno, Month(News_data) as mese from infogio group by Year(News_data), Month(News_data) order by Year(News_data) DESC, Month(News_data) DESC" 
				RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic
				do Until RecSet.EOF %>
<a href="newsletter.asp?strdata=<%=RecSet.Fields("mese") & ""%>
&amp;anno=<%=RecSet.Fields("anno")%>">
<%Response.Write(RecSet("mese")&"")%>
<%=RecSet("anno")%></a>
<span class="evidenza"><% =RecSet("numArt") %></span>