se vc cadastrar direto pelo banco da o mesmo problema nos acentos? ou só da o problema quando vc insere pelo asp?
Eu cadastro direto no banco e dá certo.
O problema é via ASP.
Estou preocupado pois nunca tive problemas com isto.
Segue parte do código para vcs verem:
CABECALHO
act = Request.QueryString("act")
Function data()
dia = day(date())
If day(date()) <= 9 Then
dia = "0" & day(date())
End If
mes = month(date())
If month(date()) <= 9 Then
mes = "0" & month(date())
End If
ano = year(date())
data = dia & "/" & mes & "/" & ano
End Function
Function StrData(Str)
Dia = Mid(Str, 4, 2)
Mes = Mid(Str, 1, 2)
Ano = Mid(Str, 7, 4)
StrData = Dia & "/" & Mes & "/" & Ano
End Function
%>
<head>
<title>ADM DE NOTICIAS</title>
<link href="admin.css" rel="stylesheet" type="text/css">
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
CAMPOS
<input name="autor" type="text" class="formstyle" id="autor" size="68" maxlength="60" />
INSERT
<%
case "insert"
cod_fonte = Request.Form("fonte")
autor = Request.Form("autor")
manchete = Request.Form("manchete")
materia = Request.Form("materia")
resumo = Request.Form("resumo")
semanal = Request.Form("semanal")
duoDB.Execute("INSERT INTO materias(Cod_fonte,Autor,Manchete,Materia,Resumo,Semanal) VALUES(" & cod_fonte & ",'" & Request.Form("autor") & "','" & Request.Form("manchete") & "','" & Request.Form("materia") & "','" & Request.Form("resumo") & "'," & semanal & ")")
%>
UPDATE
<%
Case "do_change"
id = Request.QueryString("id")
cod_fonte = Request.Form("fonte")
autor = Request.Form("autor")
manchete = Request.Form("manchete")
materia = Request.Form("materia")
resumo = Request.Form("resumo")
semanal = Request.Form("semanal")
duoDB.Execute("UPDATE materias SET cod_fonte="& cod_fonte &", autor='"& autor &"', manchete='"& manchete &"', materia='"& materia &"', resumo='"& resumo &"', semanal="& semanal &" WHERE indice ="& id)