Max antal bogstaver

men jeg har*

brug left(dinstreng, 100)

'Dinstreng'? Hvad er det?

<%
strConnect = "Data Source=" & Server.Mappath("DATABASE") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
  Set myobjConn = Server.CreateObject ("ADODB.Connection")
  Set myobjRec = Server.CreateObject ("ADODB.Recordset")

  myobjConn.Open strConnect
    If request ("id") = "" Then
    sql=" select TOP 1 * from gastbok ORDER BY ID DESC"
    Else
    sql=" select * from gastbok Where id=" & Request ("id")
    End If
  set myobjRec = myobjConn.execute(sql)

  do while not myobjRec.eof
  %>
                  (<font class="text"><%= ialt %></font>)<br>
                  - <b><% Response.Write "" & (myobjRec("namn")) & "" %></b><%
myobjRec.movenext
loop

      myobjRec.Close
      myobjConn.Close
      Set myobjRec = Nothing 
      Set myobjConn = Nothing
%>

Det er dén kode, jeg bruger til at kalde nyheden frem med.

* Det er dén kode, jeg bruger til at kalde navnet på personen der har lagt en besked i tagwallen frem med.

<%
strConnect = "Data Source=" & Server.Mappath("DATABASE") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
  Set myobjConn = Server.CreateObject ("ADODB.Connection")
  Set myobjRec = Server.CreateObject ("ADODB.Recordset")

  myobjConn.Open strConnect
    If request ("id") = "" Then
    sql=" select TOP 1 * from gastbok ORDER BY ID DESC"
    Else
    sql=" select * from gastbok Where id=" & Request ("id")
    End If
  set myobjRec = myobjConn.execute(sql)

  do while not myobjRec.eof
  %>
                  (<font class="text"><%= ialt %></font>)<br>
                  - <b><% Response.Write "" & Left(myobjRec("namn"), 100) & "" %></b><%
myobjRec.movenext
loop

      myobjRec.Close
      myobjConn.Close
      Set myobjRec = Nothing 
      Set myobjConn = Nothing
%>

//>Rune

Fx.

<%
strConnect = "Data Source=" & Server.Mappath("DATABASE") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
  Set myobjConn = Server.CreateObject ("ADODB.Connection")
  Set myobjRec = Server.CreateObject ("ADODB.Recordset")

  myobjConn.Open strConnect
    If request ("id") = "" Then
    sql=" select TOP 1 * from gastbok ORDER BY ID DESC"
    Else
    sql=" select * from gastbok Where id=" & Request ("id")
    End If
  set myobjRec = myobjConn.execute(sql)

  do while not myobjRec.eof
  %>
                  (<font class="text"><%= ialt %></font>)<br>
                  - <b><% Response.Write "" & Left(myobjRec("namn"), 20) & "" %>...</b><%
myobjRec.movenext
loop

      myobjRec.Close
      myobjConn.Close
      Set myobjRec = Nothing 
      Set myobjConn = Nothing
%>

måske kan dette hjælpe dig, den henter alle undtagen den sidste nye

<%

strSQL = "Select * From nyheder where id < (select Max(id) from nyheder)ORDER BY dato desc;"

Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
%>
</h

<%
do
strId = rs("Id")
strdato = rs("dato")
    strTekst = rs("tekst")
    counter = 1
    start = 1
    do while counter <= 15  //her angiver du antal ord
    pos = instr(start, strTekst, " ")
    if pos = 0 then
    pos = start - 1
    else
    start = pos + 1
    counter = counter + 1
    end if
    loop
  nyhedstekst = left(strTekst, pos)

  %>
<tr>
                  <td height="10" colspan="3" class="txt2">&nbsp;</td>
                </tr>
                <tr>
                  <td width="20%" height="18" valign="top" class="txt2"><%=strdato%></td>
                  <td width="60%" height="18" class="txt2"><%response.write(nyhedstekst)%>
                    .....</td>
                  <td width="20%" height="18" valign="bottom" > <a href="flerenyheder.asp?id=<%=rs("Id")%>" onclick="window.open(this.href,'nyheder','scrollbars,height=450,width=440','resizable=no','dependent=yes', 'alwaysRaised=yes' );return false; ">
                    <span class="txt2"> ...læs mere</span> </a> </td>
                </tr>
                <tr>
                  <td height="10" colspan="3" valign="top">&nbsp;</td>
                </tr>
  <%
rs.movenext
loop while not rs.eof
conn.close
set conn = nothing
%>
           
               
<%
Else
%>
<tr>
      <td height="10" class="txt2" width="127">&nbsp;</td>
     
                  <td height="10" class="txt2" width="201"><b><font face="Verdana, Arial" size="2">Der
                    er pt. ikke flere nyheder</font></b></td>
      <td height="10" colspan="2" class="txt2">&nbsp;</td>
    </tr>
<%
End If
%>

Mitbrugernavn > Ellers tak, er kun ude efter Medions version. Ellers mange tak.

Thx 4 Poinz

//>Rune