Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

cesarhtc

Deletar Registro

Por , em ASP Clássico

Recommended Posts

cesarhtc    0

cesarhtc
Postado

Poderiam olhar o código abaixo me dizer o que esta errado?

 

Desde já agradeço.

 

*****//******

 

<!--#include file="cabeçalho.htm"-->

 

<html>

<head>

<title>Execução de Exclusão de Registro</title>

</head>

<body>

 

<font face= "tahoma" size="1" color="#666666"><b>

Hoje é <!--#include file=data.asp-->

e são <!--#include file=relogio.asp-->.</p>

</b></font>

<%=Request.ServerVariables("LOGON_USER")%>

<p>

<p align="center"><font face="verdana" size="4" color="bordo"> Resultado da Exclusão</font>

<hr>

 

<% session.lcid = 1046 %>

 

<%

 

'Recupera do consultasqlnovo.asp o valor das variáveis passadas

wuf = request.form("SG_uf")

wnumcp = request.form("nu_cp")

wmodal = request.form("sg_modalidade")

wnl = request.form("nu_nl")

wabertura = request.form("dt_abertura")

whora = request.form("hr_hora")

wpublicar = request.form("dt_publicar")

wobjeto = request.form("TE_objeto")

wstatus = request.form("nm_status")

wtexto1 = request.form("TE_texto1")

wproposta = request.form("TE_proposta")

wentrada = request.form("TE_entrada")

wid_edital = request.form("ID_edital")

 

response.write wuf & "<BR>" & wnumcp & "<BR>" & wmodal & "<BR>" & wnl & "<BR>" & wabertura & "<BR>" & whora & "<BR>" & wpublicar & "<BR>" & wobjeto & "<BR>" & wstatus & "<BR>" & wtexto1 & "<BR>" & wproposta & "<BR>" & wentrada & "<BR>" & wid_edital &" <BR>"

 

' Mostra a variável de conexão

Conexao="Provider=SQLOLEDB; Data Source=10.2.9.125; Initial Catalog=Publicar; User ID=sa; Password=''"

 

'Monta a string SQL de Exclusão do registro

strSQL = "DELETE FROM licita1 WHERE ID_EDITAL= '" wid_edital "' "

 

response.write strSQL

'response.end

 

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

'Conecta ao BD pelo DSN e abre a consulta

'Como resultado, o recordset conterá a tabela-resposta

 

rstMain.Open strSQL, conexao

 

chave="?sg_uf=" & wuf & "&sg_modalidade=" & wmodal & "&nu_nl=" & wnl

%>

 

<%

 

'Libera a memória (destrói o objeto recordset)

Set rstMain=Nothing

%>

 

<BR>

<p align="center" style="font-family: Verdana; color:navy; font-size=10pt; "><a href="consultasqlnovo.asp"><U>Nova consulta / alteração</U></a>

<BR><BR><BR><BR>

</p>

<!--#include file="rodapeIntranet.htm"-->

<BR><BR>

<!--include file = "mostra_codigo.inc"-->

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

manga    0

manga
Postado

Não meu caro, poste a mensagem de ERRO que você recebe quando tenta rodar o script. Nela estará a linha do código onde o erro ocorre. Marque essa linha em negrito no código que você postou.

Compartilhar este post

Link para o post
Compartilhar em outros sites

*Marcinha*    0

*Marcinha*
Postado

<!--#include file="cabeçalho.htm"-->

 

<html>

<head>

<title>Execução de Exclusão de Registro</title>

</head>

<body>

 

<font face= "tahoma" size="1" color="#666666"><b>

Hoje é <!--#include file=data.asp-->

e são <!--#include file=relogio.asp-->.</p>

</b></font>

<%=Request.ServerVariables("LOGON_USER")%>

<p>

<p align="center"><font face="verdana" size="4" color="bordo"> Resultado da Exclusão</font>

<hr>

 

<% session.lcid = 1046 %>

 

<%

 

'Recupera do consultasqlnovo.asp o valor das variáveis passadas

wuf = request.form("SG_uf")

wnumcp = request.form("nu_cp")

wmodal = request.form("sg_modalidade")

wnl = request.form("nu_nl")

wabertura = request.form("dt_abertura")

whora = request.form("hr_hora")

wpublicar = request.form("dt_publicar")

wobjeto = request.form("TE_objeto")

wstatus = request.form("nm_status")

wtexto1 = request.form("TE_texto1")

wproposta = request.form("TE_proposta")

wentrada = request.form("TE_entrada")

wid_edital = request.form("ID_edital")

 

response.write wuf & "<BR>" & wnumcp & "<BR>" & wmodal & "<BR>" & wnl & "<BR>" & wabertura & "<BR>" & whora & "<BR>" & wpublicar & "<BR>" & wobjeto & "<BR>" & wstatus & "<BR>" & wtexto1 & "<BR>" & wproposta & "<BR>" & wentrada & "<BR>" & wid_edital &" <BR>"

 

' Mostra a variável de conexão

Conexao="Provider=SQLOLEDB; Data Source=10.2.9.125; Initial Catalog=Publicar; User ID=sa; Password=''"

 

'Monta a string SQL de Exclusão do registro

strSQL = "DELETE FROM licita1 WHERE ID_EDITAL= " & wid_edital

response.write strSQL

'response.end

 

'Cria um objeto recordset

set rstMain = Server.CreateObject("ADODB.Recordset")

 

'Conecta ao BD pelo DSN e abre a consulta

'Como resultado, o recordset conterá a tabela-resposta

 

rstMain.Open strSQL, conexao

 

chave="?sg_uf=" & wuf & "&sg_modalidade=" & wmodal & "&nu_nl=" & wnl

%>

 

<%

 

'Libera a memória (destrói o objeto recordset)

Set rstMain=Nothing

%>

 

<BR>

<p align="center" style="font-family: Verdana; color:navy; font-size=10pt; "><a href="consultasqlnovo.asp"><U>Nova consulta / alteração</U></a>

<BR><BR><BR><BR>

</p>

<!--#include file="rodapeIntranet.htm"-->

<BR><BR>

<!--include file = "mostra_codigo.inc"-->

</body>

</html>

 

Se não for isso, é pq o ID_edital que você pegou do form está vazio.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesarhtc    0

cesarhtc
Postado

A mensagem que aparece é esta:

Technical Information (for support personnel)

 

Error Type:

Microsoft VBScript compilation (0x800A0401)

Expected end of statement

/suprimentos/publicar/excluirsqlnovo.asp, line 43, column 52

 

 

Browser Type:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

 

Page:

GET /suprimentos/publicar/excluirsqlnovo.asp

 

Time:

sexta-feira, 3 de setembro de 2004, 09:35:02

 

 

More information:

Microsoft Support

 

 

 

A linha é esta:

 

strSQL = "DELETE FROM licita1 WHERE ID_EDITAL= '" wid_edital "' "

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito