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