Text saknas...

[roady]

Jag har ett litet klurigt problem...
Jag har ett formulär där man fyller i en massa info, mer skriver artiklar så de kan bli rätt stora. En Rubrik, en Ingres och en ruta för brödtext.

Men ibland när jag skriver text så kapas den... All text som jag skrivit in kommer inte upp när jag senare vill läsa artiklen, kollar jag i DB:n så finns den inte ens??? :q

[Denniz PoP]

Texten "klipps av" när den är för lång alltså? Vad har du för typ av fält i databasen? Har du vanligt textfält? Ifs är 255 tecken max tror jag.
Testa med "PM" för att förhindra detta.

[roady]

Rubriken är <input> låst för 50 tecken

Ingressen har jag vanligt text för 255 tecken, har även en Javascript som ser till att man inte kan skriva fler tecken.

Brödtexten är en textarea med "Physical", och DB:n har inställt "PM"...

Ibland kapar den och ibland inte på ingressen eller brödtexten! x(

[Jesper T]

Posta lite kod (den som lägger till i databasen).

[roady]

Satt å tänkte;
Ifall sidan går för snabbt, hinner kanske inte allt sparas???

Lite kod:

<%


Dim strHeadline, strIngres, strText, strConfirmID
Dim strLayout, strCategory, strSchool, strConfirm, strDate
Dim strHeadlineConvert, strIngresConvert, strTextConvert

strHeadline = Request.Form("frmHeadline")
strIngres = Request.Form("frmIngres")
strText = Request.Form("frmText")
strLayout = Request.Form("frmLayout")
strCategory = Request.Form("frmCategory")
strSchool = Request.Form("frmSchool")
strDate = now

strHeadlineConvert = Server.HTMLEncode(strHeadline)
strIngresConvert = Server.HTMLEncode(strIngres)
strTextConvert = Server.HTMLEncode(strText)

strIngresConvert = Replace(strIngresConvert, VbCrlf, "<br>")
strTextConvert = Replace(strTextConvert, VbCrlf, "<br>")

If Len(Request.Form("next")) Then
Select Case userStatus
Case 1, 3
strConfirm = "false"
strConfirmID = 0
Case 5, 8
strConfirm = "true"
strConfirmID = MyID
End Select



Dim objConnect, objRS, SQLinsert, SQLget, newsID
Set objConnect = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")

SQLinsert = "INSERT INTO news (newsCreated, userID, newsCountRead, newsShowFront, newsLayout, newsCategory, " & _
"newsSchool, newsConfirm, newsConfirmID, newsReady, newsHeadline, newsIngres, newsText) VALUES " & _
"('"& strDate &"', "& MyID &", 0, false, " & _
"'"& strLayout &"', '"& strCategory &"', '"& strSchool &"', " & _
""& strConfirm &", "& strConfirmID &", false, '"& strHeadlineConvert &"', '"& strIngresConvert &"', '"& strTextConvert &"');"

objConnect.Open "DSN=webportal"
objConnect.Execute SQLinsert

SQLget = "SELECT news.newsID FROM news WHERE news.newsCreated = #"& strDate &"# AND news.userID = "& MyID &";"

objRS.Open SQLget, objConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
newsID = objRS("newsID")
objRS.Close

Set objRS = Nothing
objConnect.Close
Set objConnect = Nothing

Response.Redirect("user_news04.asp?newsID=" & newsID & "&Layout=" & strLayout)

Else
%>

[roady]

Är det ingen som har stött på detta problemet förr???