deletando informação do banco

[globim 0]

como que posso fazer para deletar uma informação do banco?estou tenttando da seguinte maneira Set RSCADMENSAGEM = Server.CreateObject("ADODB.RECORDSET") RSCADMENSAGEM.OPEN "Delete Email from E020EMA where Email="&request.Form("Email"), conntemp, 1,3 RSCADMENSAGEM.update RSCADMENSAGEM.close Set RSCADMENSAGEM = nothingmais não consegui gostaria de ter alguma sujestãoabraços

[crucifier 0]

Set conexao = Server.CreateObject("ADODB.Connection")conexao.open strconsqlstmt = "delete from tabela where campo=" & blablablaconexao.execute(sqlstmt)

faz uma adaptacao pro seu codigo

 

OBS: esse strcon é a conexao..tipo assim:

 

strcon ="Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=usuario; Pwd=senha; Database=base"

[globim 0]

eu ja tenho a conexao

 

ta dando esse erro

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'Email =teste@teste'.

/seblumenau/script_cademail.asp, line 70

 

 

'/////////////////////////////////////////////////////////				if xScript = 1 then				Set RSCADMENSAGEM = Server.CreateObject("ADODB.RECORDSET")	 				RSCADMENSAGEM.OPEN "Delete Email from E020EMA where Email ="&request.Form("Email"), conntemp, 1,2										RSCADMENSAGEM.delete												RSCADMENSAGEM.update						RSCADMENSAGEM.close					Set RSCADMENSAGEM = nothing

não quero chamar ele pela conexao

[globim 0]

ja consegui

[Buscopan 0]

Posta qual foi a solução, para que possa servir de ajuda a outros ...

[globim 0]

espero que vocês entendao o codigo abaixo

ele esta meio comentado então esta bem simples

 

<%'CODIGO CRIADO POR PAULO DATASIG (GLOBIM)'NÃO RETIRE ISSO POR FAVOR					jaexiste = "n"					xredirect = 0										'/////////////////////////////////////////////////////////					'checa se email existe ou não na tavbela					Set RSCHECAEMAIL = Server.CreateObject("ADODB.RECORDSET")	 					RSCHECAEMAIL.OPEN "select Email from E020EMA ", conntemp, 1,1					'loop para a checagem 			  while not RSCHECAEMAIL.EOF					'caso ja exista o email 					 if RSCHECAEMAIL("EMAIL") = Request.Form("Email") then					'se existir na tabela ele deleta					 Dim ID_Del						ID_Del = Request.Form("Email")						dim RSDel						Set DeleteNews = Conntemp.Execute("DELETE * FROM E020EMA WHERE Email = '"+ ID_Del +"' ")						Set DeleteNews = Nothing						CloseBd						'ja existe recebe sim					jaexiste = "s"										 end if									xredirect = 1			 			  RSCHECAEMAIL.MoveNext						  WEND 							RSCHECAEMAIL.close					Set RSCHECAEMAIL = nothing														'/////////////////////////////////////////////////////////				'se não existir					if jaexiste = "n" then'					'se não existir ele cadastra					Set geranovocodigo = Server.CreateObject("ADODB.RECORDSET")	 				geranovocodigo.OPEN "select max(CODEMA) as MAXIMO from E020EMA", conntemp, 1,1												IF IsNull(geranovocodigo("MAXIMO")) then						novocodigo = 1						else						novocodigo = CINT(geranovocodigo("MAXIMO"))+1						end if'						//////////////////////										Set RSCADMENSAGEM = Server.CreateObject("ADODB.RECORDSET")	 					RSCADMENSAGEM.OPEN "select * from E020EMA ", conntemp, 1,3												RSCADMENSAGEM.addnew						RSCADMENSAGEM("CODEMA") = novocodigo											RSCADMENSAGEM("Email") = Request.Form("Email")						RSCADMENSAGEM("DATCAD") = NOW													xredirect = 2									RSCADMENSAGEM.update						RSCADMENSAGEM.close					Set RSCADMENSAGEM = nothing										end if												if xredirect = 1 then					response.Redirect("default.asp?ema=false")					else					response.Redirect("default.asp?ema=true")					end if'CODIGO CRIADO POR PAULO DATASIG (GLOBIM)'NÃO RETIRE ISSO POR FAVOR			%>

caso não entenderem alguma coisa peçãm explicação

FALOW