Personalizzazione database estrapolando singolarmente i campi...

[Trinità76]

Ecco ancora un'errore

Microsoft VBScript runtime error '800a01f9'
Invalid or unqualified reference
/mydatabase_inside.asp, line 63

Stavo cercando di personalizzare questo script trovato su aspcode.it, esattamente da qui.

Il problema è che nel tutorial (che ho provato e funziona), i dati vengono incorporati in degli array e poi visualizzati tramite un ciclo, mentre a me invece servirebbe estrapolarli singolarmente, e non so come fare.

Ad esempio ho provato a far visualizzare le prime immagini incorporate in un campo del database chiamato diconoimg, e scriptando questo codice:

<%
    If NOT .EOF Then
        If .Fields ("Diconoimg")="" OR IsNull(.Fields ("Diconoimg")) Then
            Response.Write ("")
            Else
            Response.Write ("[img]dati/diconoimg/" & .Fields ("Diconoimg") & " width=[/img]")
        End If
        .MoveNext
    End If
%> 

...ma il risultato è l'errore che ho riportato all'inizio. :master:

[ZeroCool981]

Ma prima del .fields di solito non ci va la var dove hai messo la select del recordset?

tipo: rs.fields("nomecampo")

[Alethesnake]

nel codice cui fa riferimento il link c'è il riferimento all'oggetto recordset utilizzato, mentre in quello sopra no

metti un

With nomeRecordsetCheHaiAperto  'prima di richamare i records
..
..
End With 'dopo

o usa fai come suggerito sopra

[Trinità76]

Originariamente inviato da Alethesnake
nel codice cui fa riferimento il link c'è il riferimento all'oggetto recordset utilizzato, mentre in quello sopra no

metti un

With nomeRecordsetCheHaiAperto  'prima di richamare i records
..
..
End With 'dopo

o usa fai come suggerito sopra

Ho provato in entrambi i modi e mi dice sempre Object Required... (ho provato sia a mettere il With objRecordset all'inizio, sia mettendo prima dei punti rs o objRecordset, ma il messaggio di errore è sempre uguale)...

Microsoft VBScript runtime error '800a01a8'
Object required
/mydatabase.asp, line 64

Vi posto lo script per intero:

Set objRecordset = Server.CreateObject("ADODB.Recordset")
strConnection = "Provider=Microsoft.Jet.Oledb.4.0;data source=" & server.mappath("mdb-database/dicono.mdb")
CONST RECORDMAX = 5
If Request.QueryString("page").Count > 0 Then
	intPageNum = CInt(Request.QueryString("page"))
	Else
	intPageNum = 1 
End If
With objRecordset
	.CursorType = adOpenForwardOnly
	.CursorLocation = adUseClient
	.LockType = adLockReadOnly
	.CacheSize = RECORDMAX
	.PageSize = RECORDMAX
	.Source = "SELECT * FROM dicono"
	.ActiveConnection = strConnection
	.Open
	Set .ActiveConnection = Nothing
	intTotalPages = .PageCount
	If NOT .EOF Then
		.AbsolutePage = intPageNum
	End If
End With
objRecordset.Close:Set objRecordset = Nothing
%>

E poi nella colonna ho messo:

<%
	If NOT rs.EOF Then
		If rs.Fields ("Diconoimg")="" OR IsNull(rs.Fields ("Diconoimg")) Then
			Response.Write ("")
			Else
			Response.Write ("[img]dati/diconoimg/" & rs.Fields ("Diconoimg") & " width=[/img]")
		End If
		rs.MoveNext
	End If
%>

[ZeroCool981]

A questo punto al posto di rs.fields visto che hai chiamato il recordset "objRecordset" devi mettere objRecordset.fields

[Trinità76]

Originariamente inviato da ZeroCool981
A questo punto al posto di rs.fields visto che hai chiamato il recordset "objRecordset" devi mettere objRecordset.fields

Mi da sempre errore =_='

Microsoft VBScript runtime error '800a01f9'
Invalid or unqualified reference
/mydatabase.asp, line 63

Ho messo:

<%
    If NOT .EOF Then
        If objRecordset.Fields ("Diconoimg")="" OR IsNull(objRecordset.Fields ("Diconoimg")) Then
            Response.Write ("")
            Else
            Response.Write ("[img]dati/diconoimg/" & objRecordset.Fields ("Diconoimg") & " width=[/img]")
        End If
        objRecordset.MoveNext
    End If
%> 

[ZeroCool981]

if not objRecordset.eof then

[Trinità76]

Originariamente inviato da ZeroCool981
if not objRecordset.eof then

Avevo provato anche quella...
l'errore c'è ugualmente

[ZeroCool981]

mi posti la riga esatta che da errore per piacere?

[ZeroCool981]

pork forse ho capito,
dove c'è
.CursorLocation = ....
metti
.CursorLocation = 3