Caro Éric,
ÉDD> Como vc está gravando os registros?
ÉDD> Qual é a sua rotina dita????
<%@ LANGUAGE=VBScript%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "DSN=x-x-x-x-x-x-x;UID=x-x-x-x-x-x-x;PWD=x-x-x-x-x-x-x;DATABASE=x-x-x-x-x-x-x"
on error resume next
if request.form("fJobnome") = "" then
mem=server.URLEncode("É obrigatório o preenchiemnto do campo NOME!")
response.redirect "erro.asp?mensagem="&mem
else
mrJobnome = request.form("fJobnome")
end if
'----------------------------------------------------
if request.form("fJoblogin") = "" then
mem=server.URLEncode("É obrigatório o preenchiemnto do campo LOGIN!")
response.redirect "erro.asp?mensagem="&mem
else
mrJoblogin = request.form("fJoblogin")
end if
'----------------------------------------------------
if request.form("fJobsenha") = "" then
mem=server.URLEncode("É obrigatório o preenchiemnto do campo SENHA!")
response.redirect "erro.asp?mensagem="&mem
else
mrJobsenha = request.form("fJobsenha")
end if
'----------------------------------------------------
if request.form("fJobobs") = "" then
mrJobobs = NULL
else
mrJobobs = request.form("fJobobs")
end if
'----------------------------------------------------
'=====================================================
RS.Open "jobadm",Conn,3,3
RS.AddNew
RS("jobnome")=mrJobnome
RS("joblogin")=mrJoblogin
RS("jobsenha")=mrJobsenha
RS("jobobs")=mrJobobs
RS.Update
RS.Close
Conn.Close
'=====================================================
If err.number>0 then
response.write "Ocorreram erros de VBS, copie a tela e envie para"
response.write "Número=" & err.number & "<P>"
response.write "Descrição=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
else
'response.write "No _javascript_" & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Ocorreram erros no BD"
for counter= 0 to conn.errors.count
response.write "Número " & conn.errors(counter).number & "<P>"
response.write "Descrição -> " & conn.errors(counter).description & "<P>"
next
else
mem=server.URLEncode("Registro incluido ou alterado com sucesso !")
response.redirect "jobadm_view.asp?mensagem="&mem
end if
%>
ÉDD> Éric Daniel David
ÉDD> Coordenador de Programação - Digiexpress Assessoria em Informática
ÉDD> Tel:. 6442-7367
ÉDD> _____
ÉDD> De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Em nome de Renato Lira
ÉDD> Enviada em: quinta-feira, 28 de outubro de 2004 12:28
ÉDD> Para: [EMAIL PROTECTED]
ÉDD> Assunto: [Asp10.net] SQL Server - me ajudem...
ÉDD> Amigos,
ÉDD> Tenho foco no desenvolvimento em ASP, e ja usei muitas formatos ds
ÉDD> SGDB, mas decididamente nao tenho grandes conhecimentos neste
ÉDD> segmento... bom, tiver que migrar uma base em Access para SQL Server,
ÉDD> a migracao foi tranquila com o DTS, os dados estao no servidor e
ÉDD> consigo acessar normalmente via programacao ASP, abrindo das mais
ÉDD> diversas formas..ou seja, esta funcionando... para leitura.
ÉDD> Acontece, que nao consigo GRAVAR no Sql Server, pensei que poderia ser
ÉDD> algum erro de codigo, mas acho que nao seja o caso, ja que a rotina
ÉDD> funciona para o ACCESS e para o SQL Server aqui na rede local... ou
ÉDD> seja, deve ser algum "detalhe" no SQL Server do servidor (www.allnet.com.br)
ÉDD> Curiosamente, tb consigo "deletar" registros.
ÉDD> Alguma dica, sugestao ?
ÉDD> []'s
ÉDD> Renato
ÉDD> :: http://www.asp10.net
ÉDD> ==================================================
ÉDD> :: Solugues simples para problemas complexos
ÉDD> :: Sistemas de Links, Notmcias, Faq, Loja,
ÉDD> :: Estatmsticas, Artigos, Mural e muito mais.
ÉDD> ==================================================
ÉDD> :: Para entrar, sair ou ver o histsrico da lista
ÉDD> :: Asp10.net visite http://www.asp10.net
ÉDD> ==================================================
ÉDD> <http://www.grupos.com.br/processos/conta_page.phtml?1098980929>
ÉDD> <http://banner.grupos.com.br/?157:62:1098980929:1>
ÉDD> <http://campanhas.grupos.com.br/click.phtml?id=1098980929&campanha=abril.inf
ÉDD> o.728x90&url="" href="http://assineabril.com/index.html?destino=telainfo*campanha=5HA">http://assineabril.com/index.html?destino=telainfo*campanha=5HA
ÉDD> 4*origem=shoppinggrupos>
ÉDD> <http://view.campanhas.grupos.com.br/?abril.info.728x90|1098980929>
ÉDD> <http://www.grupos.com.br>
ÉDD> <mailto:[EMAIL PROTECTED]> cancelar assinatura
ÉDD> <http://www.grupos.com.br/grupos/mrasp> - pagina do grupo
ÉDD> :: http://www.asp10.net
ÉDD> ==================================================
ÉDD> :: Soluções simples para problemas complexos
ÉDD> :: Sistemas de Links, Notícias, Faq, Loja,
ÉDD> :: Estatísticas, Artigos, Mural e muito mais.
ÉDD> ==================================================
ÉDD> :: Para entrar, sair ou ver o histórico da lista
ÉDD> :: Asp10.net visite http://www.asp10.net
ÉDD> ==================================================
ÉDD> -----------------------------------------
ÉDD> Grupos.com.br - A vida acontece em grupos
:: http://www.asp10.net
==================================================
:: Solu��es simples para problemas complexos
:: Sistemas de Links, Not�cias, Faq, Loja,
:: Estat�sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o hist�rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================
![]()
![]()
![]()
![]()
