Tabella fissa quando visualizzo i record!

[mau87]

quando visualizzo i record a video, se il contenuto del record è più lungo della layout mi si allarga la layout, io voglio che invece vada a capo senza deformare la larghezza della tabella.

[michele.santoro]

Ma non è html? ... Sempre che non abbia capito male!

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="650" id="table1">
		<tr>
			<td><%=rs("tuocampo")%></td>
		</tr>
	</table>
</div>

Puoi modificare width="650" della dimensione che vuoi

[santino83_11_04]

response.write replace(testo_da_stampare,vbcrlf,"
")

[mau87]

non funziona nessuna delle vostre risposte, vi chiedo scusa ma forse mi sono espresso male io, voglio che quando carico i dati dal database nella mia tabella, non si modifichi la larghezza, ma che il contenuto vada a capo...

[michele.santoro]

Perché non ci fai vedere come carichi i dati dal db nella tabella? Forse riusciamo a capire meglio il ... quibus!

[mau87]

<tr>
<td width="590"><%=Mostra_News("titolo_file")%>

<%=Mostra_News("descrizione_file")%>

<font size="2" color="#990000">Scarica Documento:</font><font color="#003366">"><%=Mostra_News("nome_file")%></font></td>
</tr>

Mostra_News mi serve per visualizzare il numero di news che voglio

[michele.santoro]

Mmmh! :master: A me funziona e mantiene la formattazione della tabella. Come inserisci i dati nel database?

[mau87]

<%
' //// dichiarazione delle variabili obbligatoria
option explicit

' //// dichiaro le variabili
Dim folder
Dim titolo_file
Dim nom_file
Dim byteCount
Dim RequestBin
Dim PosBeg
Dim i
Dim char
Dim PosEnd
Dim boundary
Dim boundaryPos
Dim Pos
Dim intCount
Dim Name
Dim PosFile
Dim PosBound
Dim Value
Dim FileName
Dim ContentType
Dim nome_file
Dim Conn
Dim filepathname
Dim ScriptObject
Dim MyFile
Dim Sql
Dim Rs
Dim descrizione_file
Dim click

' //// Directory dove verrà caricato il file (la cartella deve avere i permessi in scrittura)
folder = "/public"

' ////// Inizio Componente Upload

Response.Expires=0
Response.Buffer = TRUE
Response.Clear

Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filen ame="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),Requ estBin,boundary)
Loop
End Sub
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' //// Fine Componente Upload

' //// riempio le variabili con valori proveninti dalla form
titolo_file = UploadRequest.Item("titolo_file").Item("Value")
nome_file = UploadRequest.Item("nome_file").Item("Value")
descrizione_file = UploadRequest.Item("descrizione_file").Item("Value ")


' //// controllo che la form sia state regolarmente popolata
If IsNull(nome_file) OR nome_file = "" OR IsNull(titolo_file) OR titolo_file = "" OR IsNull(descrizione_file) Or descrizione_file = "" Then
Response.Write ("<center>
Compilare tutti i campi!

Indietro</center>")
Response.End
End if

' //// connessione al DB
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/gestione.mdb")

' //// creo il file nella folder
if UploadRequest.Item("nome_file").Item("FileName")=" " then

Else

contentType = UploadRequest.Item("nome_file").Item("ContentType" )
filepathname = UploadRequest.Item("nome_file").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("nome_file").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder) &"\"&filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close

End if

' //// seleziono la tabella dove scrivero l'ora, il titolo ed il nome del file
Sql = "Select * FROM file"

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn, 1, 2
' //// aggiugo un nuovo record alla tabella
Rs.AddNew
Rs("data") = date()
Rs("titolo_file") = titolo_file
Rs("descrizione_file")= descrizione_file
Rs("nome_file") = filename
Rs.UpDate

' //// chiudo il record set e libero le risorse
Rs.Close
Set Rs = Nothing

' //// chiudo la connessione e libero le risorse
Conn.Close
Set Conn = Nothing

' //// carico la pagina di risposta e stampo a video il link al file caricato
Response.Redirect("inserisci_news.asp")
%>

e predisposto per l'upload dei file

[Santino83_02]

se la parola è troppo lunga rispetto alla larghezza della cella non va a capo, sfasa la cella...controlla che i dati che hai inserito non siano parole molto lunghe

[michele.santoro]

Puoi ovviare al problema indicato da Santino con questo script