Innanzi tutto saluto tutti, e ringrazio anticipatamente per l?aiuto che sono certo riceverò.

In questi giorni sto impazzendo nel vano tentativo di trovare una soluzione al mio problema, ho letto moltissimo facendo numerose ricerche tutte senza esito.

Premetto che per lavoro sono costretto a utilizzare XP e la versione 8 di Explorer e che quanto esporrò si presenta solo sul mio notebook mentre su quello dei miei colleghi che usano gli stessi software tutto va a meraviglia. Inoltre Mozilla e Chrome non mi danno noie.

Vengo al dunque. Improvvisamente senza aver installato o rimosso nulla dalla macchina mi capita navigando anche su siti come GOOGLE e FACEBOOK per fare un esempio , di non caricare completamente le pagine che a furia di refresh alla fine si aprono, ma poi ridanno subito l'errore, e di visualizzare in basso a sx un avviso giallo che mi indica un errore nella visualizzazione della pagina come sotto riportato:

Dettagli errore pagina Web
Agente utente: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; GTB6.6; InfoPath.2)
Timestamp: Fri, 20 May 2011 10:10:04 UTC

Messaggio: HTML Parsing Error: Unable to modify the parent container element before the child element is closed (KB927917)
Linea: 0
Carattere: 0
Codice: 0
URI: _____ .google.it/search?sourceid=navclient&aq=1&oq=test&hl=it&ie=UTF-8&rlz=1T4SKPT_itIT429IT429&q=testi+canzoni

In alcune occasioni mi appare invece una finestra di avviso che riporta la seguente dicitura:

Impossibile aprire il sito internet: nomesito.it
Operazione terminata

L?unica cosa possibile è chiuderla con la classica x oppure con ok
In altre occasioni la finestra di avviso riporta :

Java Script Error:
Unable to modify the parent container element before the child elementi s closed (KB927917).
Source: nomesito.it
LINE: 0
See more details?

Come sopra le opzioni disponibili sono la x, ok e Annulla ma l?esecuzione rende visibile solo una pagina bianca.

Cosa posso fare ?

Buonasera.
Rispolvero questa discussione per sapere se le immagini estratte possono essere visualizzate utilizzando slideshow, magari con effetto fade.
Ho cercato uno script ma non sono riuscito a trovare nulla.
Grazie.

ps. se necessario apro un nuovo post

Scusa la mia ignoranza non avevo capito, ho provveduto a fare la modifica.
ciao e grazie

ciao FuSioNmAn, sono alle prime armi e sicuramente il codice è migliorabile.
La pagina funziona ho controllato l'html e mostra le cinque immagini inserite in ordine di data.
Nello spirito dei forum, credendo di aver trovato la soluzione ho postato il risultato, se non va bene si può anche eliminare.

ciao
**

Provo a ragionare da solo.

indico quante colonne con:
<div align="center"><table border="0" width=525>
<%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3
%>

con il <td ...... estraggo i dati della prima colonna e passo alla seconda
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<td ......................

adesso passo alla terza colonna
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<td ......................

e chiudo
<%
END IF
ColNum = ColNum + 1
Loop
%>
<tr>
<%
IF NOT rs.EOF then
rs.MoveNext
End IF
Loop
%>

lancio la pagina e ricevo questo errore:
Microsoft VBScript compilation error '800a040e' 'loop' without 'do'
che è riferito alle righe finali
<%
IF NOT rs.EOF then
rs.MoveNext
End IF
Loop
%>

non riesco a venirne a capo, credo però di essere nella giusta direzione.
In attesa di un supporto continuo a fare altre prove, ciao.

Buona giornata, eccomi di nuovo qui a chiedere supporto.
Ho la necessità di visualizzare i record estratti dal db in tre colonne, lo script originale ne prevede solo due. Ho quindi pensato di copiare un <TD> il risultato però è che la seconda e terza colonna sono identiche.
Come posso ovviare? Questo il codice:

    <table border="0" width="80%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" valign="top">
          <p align="center"><b><font face="Arial" color="#98A0B8" size="4"><br>
          Categoria : <%=categoria%></font></b></td>
      </tr>
      <tr>
        <td valign="top">
        <hr size="1" color="#98A0B8">

<%
sql = "SELECT * From SotCategorie where CategoriaID='" & cat & "' order by NomeCategoria"
set rs = Conn.Execute (sql)
IF rs.EOF then
Response.Write "<center><font color='#838383'>Categoria non ancora definita<br></font>"
Else
End IF
%>
<div align="center"><table border="0" width=525>
<%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3
%>
<TD ALIGN=LEFT VALIGN=top WIDTH="175"><img border="0" src="<%=rs("ImmagineCat")%>"> <font face="Arial" size="2"><b> <a href="News.asp?CatID=<%=rs("IDSottocategoria")%>&Subcat=<%=rs("CategoriaID")%>&categoria=<%=server.urlencode(categoria)%>&cat=<%=server.urlencode(rs("NomeCategoria"))%>"><%=rs("NomeCategoria")%> </a>
</b><font face="Arial" size="1">
<%
IDCategoria = rs("IDSottocategoria")
sqlcount = "SELECT count(Titolo) FROM News where IDCategoria='" & IDCategoria & "' and show=yes"
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)
Response.Write ("( " & rcounts & " )")
Response.Write "<br>"
Response.Write "<center><font color='#838383'>"& rs("DescrizioneSotCat")& "<br></font>"
%>
</font></font></TD>
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<TD ALIGN=LEFT VALIGN=top WIDTH="175"> <img border="0" src="<%=rs("ImmagineCat")%>"><font size="2" face="Arial"><b> <a href="News.asp?CatID=<%=rs("IDSottocategoria")%>&Subcat=<%=rs("CategoriaID")%>&categoria=<%=server.urlencode(categoria)%>&cat=<%=server.urlencode(rs("NomeCategoria"))%>"><%=rs("NomeCategoria")%></a></b><font face="Arial" size="1">
<%
IDCategoria= rs("IDSottocategoria")
sqlcount = "SELECT count(Titolo) FROM news where IDCategoria='" & IDCategoria & "' and show=yes"
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)
Response.Write ("( " & rcounts & " )")
Response.Write "<br>"
Response.Write "<center><font color='#838383'>"& rs("DescrizioneSotCat")& "<br></font>"

RScounts.close
set RScounts = nothing
%>
</font></font></TD>
<TD ALIGN=LEFT VALIGN=top WIDTH="175"> <img border="0" src="<%=rs("ImmagineCat")%>"><font size="2" face="Arial"><b> <a href="News.asp?CatID=<%=rs("IDSottocategoria")%>&Subcat=<%=rs("CategoriaID")%>&categoria=<%=server.urlencode(categoria)%>&cat=<%=server.urlencode(rs("NomeCategoria"))%>"><%=rs("NomeCategoria")%></a></b><font face="Arial" size="1">
<%
IDCategoria= rs("IDSottocategoria")
sqlcount = "SELECT count(Titolo) FROM news where IDCategoria='" & IDCategoria & "' and show=yes"
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)
Response.Write ("( " & rcounts & " )")
Response.Write "<br>"
Response.Write "<center><font color='#838383'>"& rs("DescrizioneSotCat")& "<br></font>"

RScounts.close
set RScounts = nothing
%>
</font></font></TD>
<%
END IF
ColNum = ColNum + 1
Loop
%>
<tr>
<%
IF NOT rs.EOF then
rs.MoveNext
End IF
Loop
%>
</TABLE>
</div>

Ringrazio per l'attenzione

Finalmente adesso è ok, solo una svista.
A beneficio di chi leggerà la discussione, per la visualizzazione delle immagini bisogna spostare solo "loop" alla fine della pagina.
Ecco la porzione di codice interessata:

<%
i=0
do until i=5 or catRS.EOF
i=i+1
dim file2
ID = catRs ("ID")
file2 = catRS ("file2")
catRS.movenext
%>
<img src="z<=file2%>">
</a>
</body>
</html>
<%
Loop
catRS.close
set catRS=Nothing
%>

ciao

Buonasera, un riepilogo.
Con il nuovo codice ho eliminato l'errore sul loop, adesso la pagina si apre, mostra però solo l'ultima immagine, dove sbaglio visto che vorrei visualizzare le ultime cinque?

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.Mappath("/mdb-database/db.mdb")
objConn.Open
%>
<%
a_strSQL = "Select * From news where DataPost ORDER by DataPost desc"
Set catRS = Server.CreateObject ("ADODB.Recordset")
catRS.Open a_strSQL, objConn
%>
<html>
<head>
<title></title>
</head>
<body>
<%
%>
<%
'Mostra le prime 5 News
i=0
do until i=5 or catRS.EOF
i=i+1
dim file2
ID = catRs ("ID")
file2 = catRS ("file2")
catRS.movenext
Loop
%>
<img src="z<=file2%>">
</a>
</body>
</html>
<%
catRS.close
set catRS=Nothing
%>

E' alla fine della pagina:

<%
catRS.MoveNext
Loop
catRS.close
set catRS=Nothing
%>

dove devo inserirlo?
Ciao e grazie

Ciao, nel tentivo di risolvere da solo ho modificato così una porzione di codice:
da
<%
a_strSQL = "Select * From news where Data ORDER by Data desc"
Set catRS = Server.CreateObject ("ADODB.Recordset")
catRS.Open a_strSQL, objConn
%>

a
<%
a_strSQL = "Select * From news where Data ORDER by Data desc"
Set catRS = Server.CreateObject ("ADODB.Recordset")
catRS.Open a_strSQL, objConn
i=0
do until i=5 or catRS.EOF
i=i+1
%>

adesso ho questo errore:
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'

la riga a cui si riferisce è:
set catRS=Nothing

si può risolvere?
Buonaserata

Rieccomi, non mi sono fatto attendere molto, perdonatemi ma
risolto un problema si è subito presentato un'altro.

Sto costruendo una pagina che estrae delle immagini che vengono inserite nella cartella public , vorrei visualizzare solo le ultime cinque.
So che utilizzando "Select Top 5" posso vedere le prime come fare a vedere le ultime?
Ecco il codice della pagina

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.Mappath("/mdb-database/db.mdb")
objConn.Open
%>
<%
a_strSQL = "Select * From news where Data ORDER by Data desc"
Set catRS = Server.CreateObject ("ADODB.Recordset")
catRS.Open a_strSQL, objConn
%>
<html>
<head>
<title></title>
</head>
<body>
<%
Do While Not catRS.EOF
dim file2
ID = catRs ("ID")
file2 = catRS ("file2")
%>
<a href="<%=file2%>">
<img src="<%=file2%>" width="50" height="50">
</a>
</body>
</html>
<%
catRS.MoveNext
Loop
catRS.close
set catRS=Nothing
%>

in attesa auguro una buona serata a tutti.

e invece no, hai fatto centro.
Grazie, grazie, grazie marcocarrieri.

Ciao cali1981,
grazie per aver risposto, purtroppo l'errore persiste:

Microsoft VBScript compilation error '800a03ea' Syntax error

resto in attesa di suggerimenti.

Buona Domenica a tutti.
Nonostante sia una giornata festiva molto afosa sono alle prese con un problema che non riesco a risolvere da solo, cosicchè ho pensato a voi.

Sto costruendo una pagina asp e ricevo il seguente errore:
Microsoft VBScript compilation error '800a03ea'

Syntax error
/public/temp.asp, line 34
figlio2.text = rstSimple.Fields("data").Value & <a href="news.asp?id="> & rstSimple.Fields("titolo").Value </a>
-----------------------------------------------------^

la porzione di codice interessata è:
Do While Not rstSimple.EOF
'faccio un ciclo per leggere tutti i dati
Set figlio2 = objXMLdoc.createnode ("element" , "news" ,"" )
' per ciascun campo del record creo il tag "titolo "
figlio2.text = rstSimple.Fields("data").Value & <a href="news.asp?id="> & rstSimple.Fields("titolo").Value </a>

senza il collegamento la pagina funziona:
figlio2.text = rstSimple.Fields("data").Value & rstSimple.Fields("titolo").Value

come fare?
Ringrazio anticipatamente per il supporto
Saluti

Ciao e grazie per la risposta.
So che il codice postato non è corretto in realtà in origine era il seguente:

<%
Dim test
test = Request.QueryString("campo1")
If test <> "" Then
Response.Write (Request.QueryString("campo1"))
ELSE
Response.Write "nessun risultato"
End If
%>

adesso però ho la necessità di aggiungere un'altra condizione appunto:
Response.Write (Request.QueryString("campo2"))

per cui dovrei avere il seguente risultato:
scrivi ---- pippo ---- campo1
se presente scrivi ---- pluto ---- campo2
se non si verificano le prime due condizioni scrivi ---- nessun risultato

spero di essere stato chiaro.
Ciao

Credo di non essere stato chiaro.
Vorrei ottenere:
scrivi il campo2
se non è presente scrivi campo1
altrimenti scrivi nessun risultato

Buona serata a tutti,
sono quì per un problema come da titolo, che non riesco a risolvere.
Ho il seguente codice che non mi funziona, vi va di dargli un'occhiata per correggerlo?

<%
Dim test
test = Request.QueryString("campo1")
If test <> "" Then
Response.Write (Request.QueryString("campo1"))
ELSE
response.Write (Request.QueryString("campo2"))
ELSE
Response.Write "nessun risultato"
End If
%>

Grazie per l'attenzione

Una mia teoria, da profano.
Dopo aver fatto numerose prove, sono giunto alla conclusione che qualche javascript nel mio sito è in conflitto con greybox.

Ho costruito alcune pagine di prova, inserendo il codice da te postato, nella pagina di default.asp e il grybox funziona, va da se che dovrò ricontrollare tutte le pagine finora costruite.

O sbaglio?

Purtroppo mi succede comunque stranamente un'inconveniente.
Ogni volta che carico una pagina mi riappare sempre il grey box. Vorrei visualizzarlo solo la prima volta che la pagina viene caricata, è possibile?

Ciao

Scusa Marco.

Non ho modificato nulla, se non l'estensione della pagina in prova.asp che apre google a tutto schermo, adesso la rinomino in prova.htm

Le altre due erano prove precedenti.

Ho copiato il tuo codice e salvato la pagina prova.asp che richiamata apre greybox.

Ho messo un collegamento in default.asp che linkato apre la pagina

Ho messo in default.asp nel body la porzione di codice onload,
ma il greybox non va