Simpel form laver fejl ved for meget tekst ?
Jeg har lavet en form, hvor der er et textarea hvor der gerne skulle kunne indtastes en del text, for så at blive sendt til en anden side og blive vist derpå. Men når jeg kommer over en hvis antal tegn, dog ikke særlig mange, så får jeg en 500-serverfejl.Nogen der ved hvad fejlen kan være ?
Min form:
<form action="arrang_write.asp" method=post>
<p>Arrangement<br>
Skriv arrangementet, Skriv datoen, <br>
<input type="text" name="oskrift" size="20">
<input type="text" name="dato" size="20">
<br>
<br>
Skriv om arrangementet<br>
<textarea cols="40" rows="10" name="bskriv"></textarea><br>
<br>
<input type="submit" value="Tilføj">
</p>
</form>
Siden den sendes til:
<%
Conn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("arrang.mdb") & ";UID=admin;PWD=;"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open Conn
Set rs = myConn.Execute("SELECT TOP 10 * FROM arrang ORDER BY id desc")
do until rs.EOF
%>
<body bgcolor="#E0DEDE">
<table border="0" width="626">
<tr>
<td width="477"><%=rs("oskrift")%></td>
<td width="139"><%=rs("dato")%></td>
</tr>
<tr>
<td colspan="2"><%=rs("bskriv")%></td>
</tr>
</table>
<%
rs.MoveNext
loop
myConn.Close
Set myConn = Nothing
%>
Og mit script:
<%
Response.buffer = true
'opretter forbindelse
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Conn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("arrang.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
Query = ("SELECT * FROM arrang")
rs.Open Query, Conn, adOpenKeyset, adLockOptimistic
'fix ved ingen indtastning
oskrift = Request.form("oskrift")
if oskrift = "" then
oskrift = "-"
else
oskrift = Request.form("oskrift")
end if
dato = Request.form("dato")
if dato = "" then
dato = "-"
else
dato = Request.form("dato")
end if
bskriv = Request.form("bskriv")
if bskriv = "" then
bskriv = "-"
else
bskriv = Request.form("bskriv")
end if
'Gemmer i databasen
rs.AddNew
rs("oskrift") = oskrift
rs("dato") = dato
rs("bskriv") = bskriv
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("arrang_add.asp")
%>
