Ciao,
ho un problema, non riesco a memorizzare nel campo memo di accesso più di 255 caratteri.
O meglio, riesce a memorizzarli tranquillamente, ma quando tento di modificarli non me lo fa salvare.
Eppure io sapevo che nel campo memo si potevano inserire fino a 65.535 caratteri

Per la scrittura utilizzo l'upload di baol, può essere qui il problema?

Come posso risolvere? E' abbastanza urgentissimo...

Vi incollo il testo della mia pagina, premetto che con testi corti funziona perfettamente...

Codice PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_cnn_gm_STRING
Recordset1_cmd.CommandText = "SELECT * FROM tbl_chisiamo" 
Recordset1_cmd.Prepared = true

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%

sql = "SELECT * FROM tbl_chisiamo"
%>



<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>ABCDE</title>
<link href="stile_gestione.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="980" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2"><table width="100%"  border="0" cellspacing="4" cellpadding="4">
      <tr>
        <td class="titolo"></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td width="120" valign="top"></td>
    <td width="887" valign="top"><div align="center" style="height:24px; padding-top:10px ">[b]PRODOTTI[/b]</div>

  <table width="100%"  border="0" cellpadding="4" cellspacing="4"><form ACTION="?Upload=1" method="post" enctype="multipart/form-data" name="form1" id="form1">
    <tr>      
      <td width="20%" align="center" valign="middle" class="bordo">[b]Tipo:[/b]</td>
      <td width="18%" valign="middle" class="bordo"></td>
      <td width="41%" align="right" valign="middle" class="bordo">[b]Posizione:[/b]</td>
      <td width="21%" valign="middle" class="bordo"></td>
      </tr>
    <tr>
      <td align="center" valign="middle" class="bordo">[img]<%=(Recordset1.Fields.Item([/img]" border="0"></td>
      <td colspan="3" align="left" valign="middle" class="bordo">[b]Miniautra[/b]: 
        160 x 106 px

        <input name="thumb" type="file" id="thumb" value=""></td>
      </tr>
    <tr>
      <td align="center" valign="middle" class="bordo">[url="<%=(Recordset1.Fields.Item("]">[img]<%=(Recordset1.Fields.Item([/img]" alt="" width="160" border="0">[/url]</td>
      <td colspan="3" align="left" valign="middle" class="bordo">[b]Ingrandimento[/b]: max 600 x 600 px

        <input name="big" type="file" id="big" value=""></td>
    </tr>
    <tr>
      <td align="center" valign="middle" class="bordo">[b]Descrizione:[/b]</td>
      <td colspan="3" align="left" valign="middle" class="bordo"><textarea name="testo" id="testo" rows="5" style="width:70%"><%=(Recordset1.Fields.Item("testo").Value)%></textarea></td>
    </tr>
    <tr>
      <td colspan="4" align="center" valign="middle" class="bordo"><input type="submit" name="button" id="button" value="Salva modifiche"></td>
    </tr>
    </form>   
  </table>
  <%
If Request("Upload")="1" then

Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()

.SetDatabase "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db_gm") ,sql
.EnabledAspUpload    = False
.EnabledImageSize    = False
.EnabledLog          = False
.AutoRename          = False
.Overwrite             = True
.SetPath "/public/image/test/"
.Load



While Not .EOF
Select Case lCase(oUpload.Files("InputName"))

Case "thumb"
ft1 = oUpload.GetFileName()
Case "big"
ft2 = oUpload.GetFileName()

End Select



.Save 
.MoveNext

Wend


.Database.Open()
'Inserimento dei valori

if ft1 <> "" then
.Database.Fields("foto1") = "/public/image/test/" & ft1
end if
if ft2 <> "" then
.Database.Fields("zfoto1") = "/public/image/test/" & ft2
end if

texto = .Form("testo")
'texto = replace(texto,"'","‘") 
.Database.Fields("testo") = texto


'Inserimento
.Database.Update()


End With
Set oUpload = Nothing
response.Redirect("prodotti_edit.asp")

end if



%>

 </td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>