Kan ikke tilføje mere end ca. 500 tegn
Jeg har et asp script, som jeg bruger til at poste nyheder med:<font face=verdana size=2>
<form method=get action="tilfoej_nyhed.asp?mode=AddNew" id=form name=form>
<b>Navn:</b><br>
<INPUT type=text id="navn" name=navn size=70 class="input"><br><br>
<b>E-mail:</b><br><i>NB: Husk at skrive en e-mail adresse.</i><br>
<INPUT type=text id="email" name=email size=70 class="input"><br><br>
<b>Emne:</b><br><i>NB: Husk at skrive et emne på nyheden.</i><br>
<INPUT type=text id="emne" name=emne size=70 class="input"><br><br>
<b>Beskrivelse:</b><br><i>NB: Det er en god ide, at skrive en kort beskrivelse.</i><br><i>Max 250 tegn ca. - Den stopper selv!</i><br>
<INPUT type=text id="beskrivelse" name=beskrivelse maxlength=250 size=70 class="input"><br><br>
<b>Nyhed:</b><br>
<textarea id="nyhed" name=nyhed size="25" class="textbox" style="background: #FFFFFF; color: black;" rows="15" cols="81"></textarea><br>
<INPUT type="submit" value="Tilføj Nyhed" id=submit1 name=submit1 class="button">
<input type="hidden" value=AddNew name=mode id=mode>
</form>
</font>
<%if request("mode") = "AddNew" then
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
DataConn.Open DSN
Set Record = Server.CreateObject("ADODB.RecordSet")
Record.open "Select * From [nyheder] Order by id", DataConn, 1, 3
Record.AddNew
Record.Fields("navn") = Request("navn")
Record.Fields("email") = Request("email")
Record.Fields("emne") = Request("emne")
Record.Fields("beskrivelse") = Request("beskrivelse")
Record.Fields("nyhed") = Request("nyhed")
Record.Fields("dato") = date
Record.Fields("tid") = TIME
Record.Update
Record.Close
set Record = nothing
Dataconn.Close
Response.Redirect("default.asp?side=nyheder")
end if%>
Men problemet er at jeg ikke kan tilføje lad os sige ca. 1 a4 side i et hug, hvis jeg skal det, så skal jeg tilføje en lille del af tekste og bagefter gå ind og rette den med dette script:
<%id_string = request.QueryString("id")%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
sql = "SELECT * from nyheder WHERE ID=" & id_string
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 1, 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
rs.update
rs("navn") = Request("navn")
rs("email") = Request("email")
rs("emne") = Request("emne")
rs("beskrivelse") = Request("beskrivelse")
rs("nyhed") = Request("nyhed")
rs("dato") = date
rs("tid") = time
rs.update
Response.Redirect ("default.asp?side=nyheder&funktion=laes&id=" & id_string)
end if
%>
<form method=post action="ret_nyhed.asp?id=<%=request.QueryString("id")%>" id=form name=form>
<b>Navn:</b><br>
<INPUT type=text id="navn" name=navn size=70 class="input" value="<%=rs("navn")%>"><br><br>
<b>E-mail:</b><br>
<INPUT type=text id="email" name=email size=70 class="input" value="<%=rs("email")%>"><br><br>
<b>Emne:</b><br>
<INPUT type=text id="emne" name=emne size=70 class="input" value="<%=rs("emne")%>"><br><br>
<b>Beskrivelse:</b><br><i>Max 250 tegn ca. - Den stopper selv!</i><br>
<INPUT type=text id="beskrivelse" name=beskrivelse maxlength=250 size=70 class="input" value="<%=rs("beskrivelse")%>"><br><br>
<b>Nyhed:</b><br>
<textarea id="nyhed" name=nyhed size="25" class="textbox" style="background: #FFFFFF; color: black;" rows="15" cols="81"><%=rs("nyhed")%></textarea><br>
<INPUT type="submit" value="Ret Nyhed" class="button" id=submit1 name=submit1>
</form>
Der kan jeg sagtens tilføje mange a4 sider i træk, men hvorfor kan jeg ikke det når jeg skal tilføje en ny nyhed?
