Lange ord i tagwall

Request.Form(\"Message\")=Left(Request.Form(\"Message\"),50)

sætter maxlænge til 50!

øhh, det virker ikk

nej..det var teoretisk...vis mig lidt kode så kan ejg indsætte det!

Her er hele min oprettelse kode:

<%Set DataConn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"db.mdb\")
DataConn.Open DSN
Set tagwall = Server.CreateObject(\"ADODB.RecordSet\")

if \"\" = request.form(\"nick\") then
response.write \"FUCK DIG, og tag så at skrive et nick\"
else
if \"\" = request.form(\"besked\") then
response.write \"FUCK DIG, og tag så at skrive en besked\"
else

tagwall.open \"Select * From [tagwall] Order by id\", DataConn, 1, 3 
tagwall.addnew
tagwall.Fields(\"nick\")= request.form(\"nick\")
tagwall.Fields(\"besked\") = request.form(\"besked\")
tagwall.Fields(\"tid\") = now
tagwall.update
tagwall.close
set tagwall = nothing
DataConn.Close
Response.Redirect \"tagwall.asp\"
end if
end if%>

tagwall.Fields(\"besked\") = request.form(\"besked\")

skal være

tagwall.Fields(\"besked\") = Left(request.form(\"besked\"),50)

så r der maxlængde på 50!

øhh, yeaa right... så kan der kun være 50 tegn I ALT, det var ikke lige meningen...

så forklar dig bedre!

hvis nogen vil ødelægge min tagwall kan de skrive ET hulens langt ord, som ødelægger det hele, men man skal gerne have lov til at skrive en hel stil, hvis de vil...

prøver lige her:

fdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrffdsjfghsdrfgjdhrf

kan du så forstå mig?

Så er kun er ord uden mellemrum eks. der bliver max 50?

JA

ok..nu r jeg med..så skal du alve sådan at den for ca. hvert 50 bogstav finder det nærmeste mellemrum..og sætter en chr(13) på......

så post lige den kode dy bruger til at VISE det med.....

og det bruges?

ja..sæt en width på din tabel vil nok være det smarteste!

<%
If \"\" = Request.QueryString(\"Mode\") then
Sql = \"Select * from tagwall order by tid DESC\"
Set Record =  Rs.Execute(Sql)
Do While Not Record.EOF
besked = Record(\"besked\")
besked = Replace(besked, \"<\", \"&lt;\")
besked = Replace(besked, \">\", \"&gt;\")
nick = Record(\"nick\")
nick = Replace(nick, \"<\", \"&lt;\")
nick = Replace(nick, \">\", \"&gt;\")
response.write \"<tr><td width=300 border=0 bgcolor=#bbbbbb><font face=verdana size=1>\" & Record(\"tid\") & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>\" & besked & \"</font></td></tr>\"
response.write \"<tr><td width=300 border=0><font face=verdana size=1>/\" & nick & \"</font></td><tr>\"

Record.MoveNext
    Loop
    Record.Close
    RS.Close
end if
%>

her er visningskoden, med formateringer og det hele...

hører lige i min øresnegl at ie overskrider den så...brrr.....bliver en småsvær asp kode der skal splitte det så...

så...

så er der flere point til den der løser opgaven..

response.write FixLength(LGstring)


Function FixLength(Message)
For x = 1 To Len(Message) Step 10
Nstring = Nstring & Mid(Message, x, 10) & Chr(13)
Next
FixLength = Nstring
End Function

og hvor indsættes det?

så skal du sætte den ind sådan her

<%Set DataConn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"db.mdb\")
DataConn.Open DSN
Set tagwall = Server.CreateObject(\"ADODB.RecordSet\")

if \"\" = request.form(\"nick\") then
response.write \"FUCK DIG, og tag så at skrive et nick\"
else
if \"\" = request.form(\"besked\") then
response.write \"FUCK DIG, og tag så at skrive en besked\"
else

tagwall.open \"Select * From [tagwall] Order by id\", DataConn, 1, 3 
tagwall.addnew
tagwall.Fields(\"nick\")= FixLength(request.form(\"nick\") )
tagwall.Fields(\"besked\") = FixLength(request.form(\"besked\") )
tagwall.Fields(\"tid\") = now
tagwall.update
tagwall.close
set tagwall = nothing
DataConn.Close
Response.Redirect \"tagwall.asp\"
end if
end if

Function FixLength(Message)
For x = 1 To Len(Message) Step 10
Nstring = Nstring & Mid(Message, x, 10) & Chr(13)
Next
FixLength = Nstring
End Function
%>

du kan jo oxo ændre 10 til 50 eller hvad du nu vil

OK kanon... tak for det..

np :)

var det poinnet jeg skulle ændre til 10 eller 50 :)

For x = 1 To Len(Message) Step 10

var det du skulle ændre det til 50 :)

mand kan heldigvis ikek sætte points ned...heh