Grazie per avermi risposto
questo è il pezzo di codice
codice:
Dim rs2, strSQL2
set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT Top 6 * FROM Home_1 Order by data Asc"
rs2.Open strSQL2, conn, 3, 3
'Response.Write "<html><body>"
Response.Write "<link href=""style.css"" rel=""stylesheet"" type=""text/css"">"
'Response.Write "CREARE UNA TABELLA DINAMICA E MULTIPLA PER I RECORD
"
'Response.Write "by www.contidavide.it"
'Response.Write "<hr>"
''' SE CI SONO RECORD NEL DATABASE
If Not rs2.EOF Then
''' APERTURA TABELLA
%><%
Response.Write"<div align=justify><table width=480 align=center id=table1 cellspacing=0 cellpadding=4 border=0px dotted #000080 ></div>"
numeroColonne = 0
''' ESSO LI CONTA FINO ALLA FINE
Do Until rs2.EOF
'Dim cod
'cod=(rs2("id"))
'Dim Text, MaxChar, Result
Text = rs2("descrizione")
MaxChar = 350
Result = Text
If Len(Result) > MaxChar Then
If InStr(MaxChar, Result, " ") > 0 Then
Result = Left(Result, InStr(MaxChar, Result, " ")) & "... "%></font>[/i]<a href="Home_dettagli.asp?cod=<%=Rs2("id")%>"><font size="1" face="Verdana">leggi tutto >></font>
<%
End If
End If
'Response.Write Text & "
" & Result
%><%
''' IMPOSTAZIONE NUMERO DI COLONNE DA VISUALIZZARE NELLA TABELLA
''' COME DEFAULT HO MESSO IL VALORE 3
''' CHE VISUALIZZA IL NUMERO DI COLONNE
''' LA FUNZIONE MOD VERIFICA SE E' UN NUMERO PARI O DISPARI
If numeroColonne Mod 6 = 0 Then
If numeroColonne <> 0 Then Response.Write"</tr>"
Response.Write "<tr><td valign=top align=justify width=480 font face=Verdana size=1 >[img]&rs2([/img]"&"<font face=Verdana Size=1 align= justify color=Blue>"&rs2("Titolo")&"
"& Result &"</font></td>"
Else
Response.Write "<td width=480 valign=top font face=Verdana size=1 align= justify>[img]&rs2([/img]"&"<font face=Verdana Size=1 align= justify color=Blue>"&rs2("Titolo")&"
"& Result &"</font></td>"
End If
''' PASSIAMO ALLA COLONNA SUCCESSIVA
numeroColonne = numeroColonne + 1
''' rs2 SUCCESSIVO
rs2.MoveNext
Loop
''' CHIUSURA TABELLA
Response.Write"</tr></table></Div>"
''' CHIUSURA rs2
rs2.Close
Set rs2 = Nothing
Else
''' SE NON CI SONO RECORD SCRIVE UN MESSAGGIO
Response.Write"IL DATABASE NON CONTIENE RECORD!"
End If
Questo mi fà il link giusto ma mi posiziona il testo da lincare all'inizio anziché alla fine.
Rispondi quotando
