benedetti caratteri accentati

**maxcondor** · 08-04-2008, 10:53

inserisco in un form la lettera accentata à
sul data base viene salvata come & #224;"

Ma perchè?????

come si fa ad inserirla in maniera corretta?

**Domenix** · 08-04-2008, 10:54

Scusa se te scrivi à arriva à.
Cosa dovrebbe arrivare? &agrave; ?

**maxcondor** · 08-04-2008, 11:00

ho scritto in maniera errata su access viene salvata come & # 224

**Domenix** · 08-04-2008, 11:11

&#224; lo ottieni perchè probabilmente passi i dati per almeno 2 volte da server.HTMLEncode()

**maxcondor** · 08-04-2008, 11:23

questo è il codice

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" 
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_conn_news_STRING
    MM_editCmd.CommandText = "UPDATE news SET continua = ?, [data] = ?, fotomax = ?, fotomin = ?, testo = ?, titolo = ?, visibile = ? WHERE id = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 203, 1, 536870910, Request.Form("continua")) ' adLongVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(Request.Form("data"), Request.Form("data"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("fotomax")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("fotomin")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 203, 1, 536870910, Request.Form("testo")) ' adLongVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("titolo")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("visibile"), 1, 0)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
  End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

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

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<title>Documento senza titolo</title>
</head>

<body>
<%Response.Write(Session.CodePage)%>
<form action="<%=MM_editAction%>" method="post" id="form1">
  <table>
    <tr valign="baseline">
      <td align="right">Continua:</td>
      <td><input type="text" name="continua" value="<%=(Recordset1.Fields.Item("continua").Value)%>" size="32" />      </td>
    </tr>
    <tr valign="baseline">
      <td align="right">Data:</td>
      <td><input type="text" name="data" value="<%=(Recordset1.Fields.Item("data").Value)%>" size="32" />      </td>
    </tr>
    <tr valign="baseline">
      <td align="right">Fotomax:</td>
      <td><input type="text" name="fotomax" value="<%=(Recordset1.Fields.Item("fotomax").Value)%>" size="32" />      </td>
    </tr>
    <tr valign="baseline">
      <td align="right">Fotomin:</td>
      <td><input type="text" name="fotomin" value="<%=(Recordset1.Fields.Item("fotomin").Value)%>" size="32" />      </td>
    </tr>
    <tr valign="baseline">
      <td align="right">Testo:</td>
      <td><input type="text" name="testo" value="<%=(Recordset1.Fields.Item("testo").Value)%>" size="32" />      </td>
    </tr>
    <tr valign="baseline">
      <td align="right">Titolo:</td>
      <td><input type="text" name="titolo" value="<%=(Recordset1.Fields.Item("titolo").Value)%>" size="32" />      </td>
    </tr>
    <tr valign="baseline">
      <td align="right"></td>
      <td><input type="submit" value="Aggiorna record" /></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1" />
  <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("id").Value %>" />
</form>


</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Discussione: benedetti caratteri accentati

Strumenti discussione

Ricerca discussione

Visualizza

benedetti caratteri accentati

Permessi di invio