Prelevare da un db i primi caratteri di un articolo.

dimarsaba

Nuovo Utente
16 Mar 2007
1
0
0
Ho necessità di inserire nel tag "description" di una pagina web, i primi 150 (o altro numero) caratteri di un articolo depositato in un db, l'istruzione che preleva e stampa a video l'articolo è questa:
Codice:
<%=strText%>
la stessa è stata prelevata ed inserita nel tag di cui sopra, ma è ovvio che l'articolo viene in questo modo riscritto di nuovo per intero, invece devo limitarla ad un numero definito di caratteri, per maggior chiarezza inserisco qui sotto il tipo di connessione al db, e le prime linee della pagina web
Codice:
<%
sql = "SELECT * FROM articoli WHERE id=" & Request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

rs.MoveLast
NumArt = rs("id")

         sql = "SELECT * FROM commenti WHERE articolo=" & NumArt
         Set rsCom = Server.CreateObject("ADODB.Recordset")
         rsCom.Open sql, cn, 3, 3
         If rsCom.EOF or rsCom.BOF then
         NumCom = 0
         Else
         NumCom = rsCom.RecordCount
         End if
         rsCom.close
         set rsCom = nothing

strText = rs("articolo") 
strText = Replace (strText, vbCrLf, "<br>") 
strText = Replace (strText,"  ","&nbsp;&nbsp;")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
  <title><%=rs("titolo")%></title>
  <meta name="description" content="[COLOR="Red"]<%=strText%>[/COLOR]"/>
</head>
Ringrazio chi vuole darmi una mano :byebye:
p.s.
Dimenticavo che non sono una cima nell'asp anzi c'è da :gun:
 
Ciao, dovresti risolvere così.

if len(strTex) >= 150 then strTex = mid(strTex, 1, 150)

Fammi sapere.
 

Discussioni simili