Text saknas...

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

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.

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(

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

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
%>

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