I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
eberaudo
eberaudo
il 9 luglio 2001 alle 23:10
189 messaggi dal 26 marzo 2001
Ecco tutto lo script:

<%@ language=vbscript %>
<% option explicit %>

<!--#include file="dbcon.asp"-->
<!--#include virtual="adovbs.inc"-->
<html>
<body>
<%
dim objrs
set objrs=server.createobject("adodb.recordset")
objrs.open "Docit", objconn, , ,adcmdtable
do while not objrs.eof
%>
<table border="0" cellpadding="0" cellspacing="0">
<%
if len(objrs("Nome"))="" then
response.write "<tr><td width=""100%""><h2></h2></td></tr>"
else
response.write "<tr><td width=""100%""><h2>" & (replace(objrs ("Nome")& "", vbcrlf, "<br>")) & "</h2></td></tr>"
End if
response.write "<tr><td width=""100%""><h3>" & objrs ("Cap1") & "</h3></tr>"
response.write "<tr><td width=""100%""><h4>" & objrs ("Cap2") & "</h4></tr>"
response.write "<tr><td width=""100%""><h5>" & objrs ("Cap3") & "</h5></tr>"
%>
<tr><td width="100%"><table border="0" cellpadding="0" cellspacing="0">
<%
response.write "<tr><td width=""6%"" valign=""top"">" & objrs ("Numero") & "</td>"
response.write "<td width=""94%""><p align=""justify"">" & (replace(objrs ("Testo"), vbcrlf, "<br>")) & "</p><br></tr>"

objrs.movenext
loop
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
</table>
</table>
</body>
</html>

Con i cambiamenti effettuati ora alle righe 16 e 19 non mi dà più errore, ma nemmeno mi restituisce il campo.
Non so più che pesci pigliare.

RispondiQuoting
ueilat
ueilat
il 9 luglio 2001 alle 23:50
902 messaggi dal 19 aprile 2001
Studiati bene lo script....
Fai qualche casino, visualizza l'html risultante e verificalo.
Il problema è questo:
Apri la table all'interno del ciclo e la chiudi dopo il loop.
Se ipotizzi di avere 20 record ti troverai 40 <table> e solo 2 </table>
Direi che da di testa...
non so bene cosa vuoi fare cmq prova così:

<%@ language=vbscript %>
<% option explicit %>

<!--#include file="dbcon.asp"-->
<!--#include virtual="adovbs.inc"-->
<html>
<body>
<%
dim objrs
set objrs=server.createobject("adodb.recordset")
objrs.open "Docit", objconn, , ,adcmdtable
do while not objrs.eof
%>
<table border="0" cellpadding="0" cellspacing="0">
<%
response.write "<tr><td width=""100%""><h2>"
if not isnull(objrs("Nome")) then response.write replace(objrs("Nome"), vbcrlf,"<br>")
response.write "</h2></td></tr>"

response.write "<tr><td width=""100%""><h3>" & objrs("Cap1") & "</h3></tr>"
response.write "<tr><td width=""100%""><h4>" & objrs("Cap2") & "</h4></tr>"
response.write "<tr><td width=""100%""><h5>" & objrs("Cap3") & "</h5></tr>"
%>
<tr><td width="100%"><table border="0" cellpadding="0" cellspacing="0">
<%
response.write "<tr><td width=""6%"" valign=""top"">" & objrs("Numero") & "</td>"
response.write "<td width=""94%""><p align=""justify"">"
if not isnull(objrs("Testo")) then replace(objrs("Testo"), vbcrlf, "<br>")
response.write "</p><br></tr>"
objrs.movenext
%>
</table>
</table>
<%
loop
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
</body>
</html>

Prova così, e dimmi cosa non va...

*****************************
Traspi.net - magazine on line
http://www.traspi.net
Da Torino al mondo Internet il nuovo magazine on line di cultura, creatività, informazione e servizi.
mailto:webmaster@traspi.net
*****************************
Traspi.net
Da Torino al mondo Internet il magazine di cultura, creatività e informazione.
www.traspi.net
Mauro Tortone
webmaster@traspi.net
RispondiQuoting
eberaudo
eberaudo
il 10 luglio 2001 alle 04:44
189 messaggi dal 26 marzo 2001
Grazie avevo proprio fatto un gran pasticcio con i "TABLE". Ora quelli funzionano (finalmente mi appaiono tutti i record), però non posso dire lo stesso per la formattazione del campo "Nome" che continua a darmi questo errore:

Errore di run-time di Microsoft VBScript errore "800a005e"

Utilizzo non valido di Null: 'replace'

/approf.asp, riga 23

E dire che il campo ha del testo e che se riuscissi a metterlo a posto potrei utilizzare lo stesso codice anche per Cap1, 2 e 3, dato che sono campi che possono esserci o no, ma che hanno degli a capo che vorrei venissero stampati a video per una migliore visualizzazione.

Grazie per l'aiuto datomi.

RispondiQuoting
ueilat
ueilat
il 10 luglio 2001 alle 05:10
902 messaggi dal 19 aprile 2001
Non sto capendo...
Prova così...
sostituisci if not isnull(objrs("Nome")) then response.write replace(objrs("Nome"), vbcrlf,"<br>") con
testo=objrs("Nome")
if isnull(testo) then testo=""
response.write replace(testo, vbcrlf,"<br>")


*****************************
Traspi.net - magazine on line
http://www.traspi.net
Da Torino al mondo Internet il nuovo magazine on line di cultura, creatività, informazione e servizi.
mailto:webmaster@traspi.net
*****************************
Traspi.net
Da Torino al mondo Internet il magazine di cultura, creatività e informazione.
www.traspi.net
Mauro Tortone
webmaster@traspi.net
RispondiQuoting
eberaudo
eberaudo
il 10 luglio 2001 alle 05:31
189 messaggi dal 26 marzo 2001
Quasi risolto. Ora però mi ripete quel campo anche quando nella tabella non c'è nulla e quindi all'infinito.

Non ci capisco più nulla.

RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.