+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 8 su 8

Discussione: [ASP]Come andare a Capo

  1. #1
    ezekiel non è in linea Novello
    Luogo
    Italy
    Post
    19

    [ASP]Come andare a Capo

    Ciao a tutti ho un problema ...ho inserito dei dati in un database nel campo News(150 caratteri) e voglio vederli su una pagina web..pero ho il problema che mi visualizza i 150 caratteri tutti su una riga senza mai andare a capo e quindi mi va anke a deformare tutta la pagina ....Sapete come posso fare vi invio anke il codice

    codice:
    Sql = "SELECT TOP 1 nome,dataregistrazione FROM tbl_Authors order by dataregistrazione DESC "
    
    Set Esempi = Connessione.Execute(Sql)
    
    
    Do While Not Esempi.Eof %>
    
                          <%=Esempi("News")%>    
                          &nbsp; </p>
               
    <% ' Vai al prossimo record
    Esempi.MoveNext
    
    Loop
    
    Esempi.Close
    Set Esempi = Nothing
    Connessione.Close
    Set Connessione = Nothing
    %>
    Ultima modifica di Master85; 07-03-2006 22:00 

  2. #2
    Post
    4,741
    Blogs
    12

  3. #3
    ezekiel non è in linea Novello
    Luogo
    Italy
    Post
    19
    Grazie per l'aiuto , essendo alle prime armi trovo difficolta a sistemare bene il codice ...gurdate se faccio bene:

    Peche prima devo conntermi al database poi visualizzare il record sulla pagina...scrivendo questo codice mi da errore

    codice:
    <%
     Set Connessione = Server.CreateObject("adodb.connection")
                                 Connessione.Open = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("registrazione2/mdb-database/utenti.mdb")
                               ' La riga SQL : Seleziona (SELECT) tutti i record (*) dalla (FROM) tabella (db_visualizza)
    Sql = "SELECT TOP 1 nome,dataregistrazione FROM tbl_Authors order by dataregistrazione DESC "
    ' Creiamo il recordset
    Set Esempi = Connessione.Execute(Sql)
    ' Prendi tutti i record
    Do While Not Esempi.Eof  %>
    <%
    
    Function Esempi(sStr, iInizio, iProg)
    
    	Dim sTesto 
    	Dim lLenght
    	Dim sFinal 
    
    	If Len(sStr) > 20 Then
    	   If Mid(sStr, 21, 1) = " " Then
    		  sFinal = Mid(sStr, 1, 20) & "<br>"
      	  	  response.write(sFinal)
    		  sTesto = Mid(sStr, 22, Len(sStr) - 21)
    		  iProg = iProg + 1
    		 Esempi sTesto, 1, iProg
    	   Else
    		  lLenght = InStrRev(Mid(sStr, 1, 20), " ")
    		  If Not lLenght = 0 Then
    			 sFinal = Mid(sStr, 1, lLenght) & "<br>" 
    	  	  	 response.write(sFinal)
    			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
    		  Else
    			 sFinal = Mid(sStr, 1, 20) & "<br>" 
      	  	     response.write(sFinal)
    			 sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
    		  End If
    		  iProg = iProg + 1
    		  dividiStringa sTesto, 1, iProg
    	   End If
    	ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
    		 sFinal = sStr
     	  	 response.write(sFinal)
    	End If
    
    
    response.write(Esempi("News,1,1"))%>
    <%
    ' Vai al prossimo record
    Esempi.MoveNext
    ' e rifai il giro 
    Loop
    ' chiudiamo il recordset e la connessione
    Esempi.Close
    Set Esempi = Nothing
    Connessione.Close
    Set Connessione = Nothing
    End Function
    %>
    Ultima modifica di Master85; 08-03-2006 08:51 

  4. #4
    Post
    4,741
    Blogs
    12
    Caro ezekiel,
    il tuo codice presenta diversi errori, uno dei piu' grandi e' stato quello di dichiarare la funzione all'interno del ciclo While, *imperdonabile*, il consiglio migliore che posso darti e' di acquistare uno o piu' manuali tecnici sul linguaggio e studiarlo a fondo.

    Un altro errore che ho trovato e' proprio nel passaggio di argomenti all'interno della funzione:

    cosa vuoi fare cosi' ?

    codice:
    Esempi("News,1,1")
    Gli argomenti non sono tutte stringhe ed inoltre, sintatticamente e' sbagliato, dovrebbe essere qualcosa del genere:

    codice:
    Esempi("News",1,1)
    A presto,
    Giuseppe Leone

  5. #5
    ezekiel non è in linea Novello
    Luogo
    Italy
    Post
    19
    a parte l'errore ("news,1,1")...è stato un errore di distrazione cmq sia non funziona lo stesso....non pretendo che mi venga scritto il codice....volevo sapere dove sono gli errori che faccio Grazie

  6. #6
    Post
    4,741
    Blogs
    12

    La sfera di cristallo MasterDrive.it ancora non e' in vendita

    Quote Originariamente inviato da ezekiel
    a parte l'errore ("news,1,1")...è stato un errore di distrazione cmq sia non funziona lo stesso....non pretendo che mi venga scritto il codice....volevo sapere dove sono gli errori che faccio Grazie
    Potresti gentilmente postare la linea incriminata ed il messaggio di errore che viene restituito ?

    In attesa di delucidazioni,
    Giuseppe Leone

  7. #7
    ezekiel non è in linea Novello
    Luogo
    Italy
    Post
    19
    Dipende facendo varie prove mi alcuni errori di parentesi , di sintassi....ad esempio con questo codice nn mi visulizza nulla

    codice:
     <%				  
    ' Creiamo la nostra connessione DSN-Less
    Set Connessione = Server.CreateObject("adodb.connection")
    Connessione.Open = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("registrazione2/mdb-database/utenti.mdb")
    ' La riga SQL : Seleziona (SELECT) tutti i record (*) dalla (FROM) tabella (db_visualizza)
    Sql = "SELECT TOP 1 nome,dataregistrazione FROM tbl_Authors order by dataregistrazione DESC "
    ' Creiamo il recordset
    Set Esempi = Connessione.Execute(Sql)
    ' Prendi tutti i record
    Do While Not Esempi.Eof %>
    <%
    Function Esempi(sStr, iInizio, iProg)
    
    	Dim sTesto 
    	Dim lLenght
    	Dim sFinal 
    
    	If Len(sStr) > 20 Then
    	   If Mid(sStr, 21, 1) = " " Then
    		  sFinal = Mid(sStr, 1, 20) & "<br>"
      	  	  response.write(sFinal)
    		  sTesto = Mid(sStr, 22, Len(sStr) - 21)
    		  iProg = iProg + 1
    		  Esempi sTesto, 1, iProg
    	   Else
    		  lLenght = InStrRev(Mid(sStr, 1, 20), " ")
    		  If Not lLenght = 0 Then
    			 sFinal = Mid(sStr, 1, lLenght) & "<br>" 
    	  	  	 response.write(sFinal)
    			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
    		  Else
    			 sFinal = Mid(sStr, 1, 20) & "<br>" 
      	  	     response.write(sFinal)
    			 sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
    		  End If
    		  iProg = iProg + 1
    		  Esempi sTesto, 1, iProg
    	   End If
    	ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
    		 sFinal = sStr
     	  	 response.write(sFinal)
    	End If
    
    End Function
    
    response.write(Esempi("News",1,1))
    %>
    <% ' Vai al prossimo record
    Esempi.MoveNext
    ' e rifai il giro 
    Loop
    ' chiudiamo il recordset e la connessione
    Esempi.Close
    Set Esempi = Nothing
    Connessione.Close
    Set Connessione = Nothing
    %>
    Ultima modifica di Master85; 08-03-2006 10:15 

  8. #8
    ezekiel non è in linea Novello
    Luogo
    Italy
    Post
    19
    Ti ringrazio per l'aiuto....ho sistemato il tutto facendo altre prove Ciao

+ Rispondi al Thread

Discussioni simili

  1. Andare a capo in una flexgrid
    Da lucagfc nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 11-07-2006, 14:02
  2. [C/C++] andare a capo senza spezzare le parole
    Da cristiano2004 nel forum C/C++
    Risposte: 0
    Ultimo Post: 09-05-2006, 15:08
  3. andare a capo in una stampa
    Da Aragosta nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 03-02-2006, 13:03
  4. andare a capo
    Da jeppy1979 nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 04-05-2005, 21:25

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi