smez

Sim SQL = "UPDATE ContatoUsuario SET Valor = '"& strvalor &"' WHERE CdContatoUsuario = "&Request.QueryString("CdContaUsuario") set rs = abredb.execute(SQL

porque esta dando esse erro?? Microsoft VBScript runtime error '800a01a8' Object required: '' /web/conta_credito.asp, line 910

eu coloquei 1 e 0 no lugar do TRUE E FALSE porque no tabela ta como bit deu certo

tenho 2 tabelas no banco de dados tabela MeioContato CdMeioContato int MeioContato varchar(50) Mascara varchar(50) DtCadastro datetime DtAtualizacao datetime tabela ContatoUsuario CdContatoUsuario int CdUsuario int CdMeioContato int Valor varchar(50) DtCadastro datetime DtAtualizacao datetime na tabela MeioContato fica salvo os tipos de contatos tipo ("telefone, email, etc...") e na tabela ContatoUsuario fica salvo os contatos ("numero telefone, endereco email, etc..") e na tela de cadastro tel um listbox listando todos os tipos de contato da tabela MeioContato como que eu faço para mostra no meu listbox somente os tipos de contatos que o usuario não escolheu, e o que o usuario escolheu não aparecesse

eu fiz assim no sql UPDATE ContatoUsuario SET Valor = 'ss' WHERE CdContatoUsuario = 13 deu essa mensagem e altera com sucesso (1 row(s) affected)

deu o seguinte erro Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][ODBC SQL Server Driver] [SQL Server]Syntax error converting the varchar value 'True' to a column of data type bit. queria fazer assim, to posso QUOTE(bareta @ 18/07/2007 - 11:08) ← simples... pega quem ta true : select * from tabela where campo=true depois faz update no id que quer para true e o resto pra false update tabela set campo=true where id="&id update tabela set campo=false where id<>"&id

Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC SQL Server Driver] [SQL Server]Line 1: Incorrect syntax near '='. /wd5/wmskyel/ProjetoASP/admin/importantes.asp, line 51 Set rs = CreateObject("ADODB.Recordset") CdContaUsuario = Request.QueryString("CdContaUsuario") strvalor = Replace(Replace(request.form("txtValor"),chr(39),"''"),"--","") SQL = "UPDATE ContatoUsuario SET Valor = '"& strvalor &"' WHERE CdContatoUsuario = "&Request.QueryString("CdContaUsuario") set rs = abredb.execute(SQL) Response.Redirect("editPerfil.asp") rs.close set rs = nothing o que pode ser esse erro??

bom, tenho uma tabela com os seguintes campos CdConta int CdUsuario int NomeConta varchar(50) Banco varchar(50) Agencia varchar(50) Conta varchar(50) Titular varchar(100) Status bit DtCadastro datetime DtAtualizacao datetime queria saber como que eu faço para deixar somente uma conta com o Status TRUE e as outras FALSE tipo assim somente uma conta do CdUsuario "X" pode ser TRUE e as outras automaticamente fica como FALSE, e quando o CdUsuario "X" for alterar o Status de outra conta para TRUE aquela que estava como TRUE passa automaticamante para FALSE. como que eu faço isso??

valeu , deu certo

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC SQL Server Driver][sql Server]Line 1: Incorrect syntax near '*'. /wd5/wmskyel/ProjetoASP/admin/gerenciarPedido.asp, line 326 Set rs = createobject("adodb.recordset") Set rs.activeconnection = abredb SQL = "DELETE * FROM Pedido WHERE CdPedido = "&Request.QueryString("CdPedido")&"" set rs = abredb.execute(SQL) Response.Redirect("gerenciarPedido.asp") o que poderia ser esse erro???

como eu faça pra um action fazer tremer o browser do internet explorer na hora que chegar em certo ponto da animação obrigado

erro codigo StringdeConexao = "Provider=SQLNCLI;Data Source=giro;Initial Catalog=dbWms;Trusted_Connection=yes;" qual será o motivo desse erro

não endendi andreia

como eu faço para o javascript ler todas imagens do que tem no site e colocar em uma tag tipo assim o java começa ler pelo body e vai capturando todas as imagens existente no site e depois coloca os nomes das imagens em uma tag no site

Todo com esse script que mostra na consulta o evento do dia de hj, certo como que eu faço para ele mostrar somente o evento referente ao dia da semana de hj <% regs = 13 pag = request.querystring("pagina") if pag = "" Then pag = 1 end if set rs = createobject("adodb.recordset") set rs.activeconnection = abredb rs.cursortype = 3 rs.pagesize = regs SQL = "SELECT * FROM aula WHERE dia = Date() ORDER by dia, hora DESC" rs.open sql if rs.eof or rs.bof then response.write "<font face='verdana' size='1'>SEM PROGRAMAÇÂO</font>" else rs.absolutepage = pag contador = 0 %> <div align="center"> <center> <table border="0" width="97%" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0"> <%do while not rs.eof and contador < rs.pagesize if rs("dia") <> varCinema Then varCinema = rs("dia") %> <tr> <td width="100%" class=texto_branco><b><font size="4"><%=WeekDayName(WeekDay(rs("dia")))%></font></b></td> </tr> <%End if%> <tr> <td width="100%" class=texto_branco><b><%=rs("hora")%></b> - <%=rs("nome")%></td> </tr> <%contador = contador +1 rs.movenext loop%> </table> </center> </div> <%end if rs.close set rs = nothing set conn=nothing%>

Gostaria de saber como que faço para o asp mostrar quantos espaço tem o meu disco e quantos espaço esta sendo usado

Persits.MailSender.4 error '800a0006' 503 Bad sequence of commands. You must specify the recipients of a message before you can send it /mail/enviar.asp, line 46 Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = Host eObjMail.From = rs_sendmail("email") eObjMail.FromName = rs_sendmail("email") eObjMail.Subject = Assunto eObjMail.isHTML = true eObjMail.Body = Mensagem eObjMail.Send Set eObjMail = nothing esta dando erro nessa linha vermelha

Microsoft JET Database Engine error '80004005' Could not use ''; file already in use. /admin/logar.asp, line 7 onde esta o erro <% '#################################################################### ' ' não ALTERE ESSA PARTE, VOCÊ PODERÁ ESTRAGAR SEU SITE ! ' '#################################################################### 'StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/ultra.mdb") StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:/inetpub/vhosts/ultrabalada.com.br/httpdocs/db/ultra.mdb'" '>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<< Server.ScriptTimeOut = 999 application("vsversao") = "1.2.1" application("ultimaatualizacao") = "Quarta, 15 de Março de 2006 às 11:19:25" set abredb = Server.CreateObject("ADODB.Connection") abredb.Open(StringdeConexao) '>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<< '>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<< %>

<script language=JavaScript type=text/javascript> var myMenu = [ , ['','Baladas','','','Descricao', ['','Zoe','?secao=MostraAssociado&idSocio=1190&idCidade=10','','Descrição], ], ]; </SCRIPT> como que eu faço para dublicar essa linha em vermelho no asp??

Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução INSERT INTO. /ultrabalada/admin/adicionar_cobertura1.asp, line 108 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727) Página: POST 51146 bytes to /ultrabalada/admin/adicionar_cobertura1.asp POST Data: erro '80020009' porque esta dando esse erro??

como mudar esse SCRIPT CDONTS para ASPEmail <% 'recupera dados do form usuario = request.form("usuario") 'busca no banco o usuario resgatado Set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "SELECT email, nome, senha, usuario FROM usuario WHERE usuario='" & usuario & "'" rs.open SQL 'verifica se encontrou algo if not rs.eof then 'Monta Mensagem 'Monta Mensagem HTML ="<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>E MAIS FESTAS » Recuparação de Senha </title>" HTML = HTML & "</head>" HTML = HTML & "<body topmargin='0' leftmargin='0' bgcolor=""#FF6600"">" HTML = HTML & "<table border=""0"" width=""100"" cellspacing=""0"" cellpadding=""0""><tr><td width=""100%""><div align=""center""><center>" HTML = HTML & " <table border=""0"" width=""100"" cellspacing=""0"" cellpadding=""0"">" HTML = HTML & " <tr><td width=""100%""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/1.gif""></td></tr>" HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif"" bgcolor=""#FF6600""><b><font size=""1"" face=""Verdana"">&nbsp;&nbsp; MAIS VIP</font></b></td></tr>" HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif""><div align=""center""><center>" HTML = HTML & " <table border=""0"" width=""98%"" cellpadding=""2"">" HTML = HTML & " <tr>" HTML = HTML & " <td width=""100%""><font size=""1"" face=""Verdana"">olá <b>" & rs("nome") & "<br>" HTML = HTML & " <br>" HTML = HTML & " </b>Você solicitou o envio de senha<br>" HTML = HTML & " <br>" HTML = HTML & " usuário: <b>" & rs("usuario") & "</b><br>" HTML = HTML & " senha: <b>" & rs("senha") & "</b><br>" HTML = HTML & " <br>" HTML = HTML & " Obrigado!&nbsp;</font></td>" HTML = HTML & " </tr></table></center></div></td></tr>" HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif""><div align=""center""><center><table border=""0"" width=""98%"" cellspacing=""1""><tr>" HTML = HTML & " <td width=""91%"" class=""texto_pagina"" valign=""top""><b><font size=""1"" face=""Verdana"">E MAIS FESTAS</font>" HTML = HTML & " </b><font size=""1"" face=""Verdana""><br>" HTML = HTML & " © Todos os direitos reservados<br>" HTML = HTML & " <a href=""http://www.emaisfestas.com.br"">www.emaisfestas.com.br</a>" HTML = HTML & " | qnoite@qnoite.com.br</font></td>" HTML = HTML & " <td width=""9%"" valign=""top""><a href=""http://www.agenciagiro.com.br"" target=""_blank""><font size=""1"" face=""Verdana""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/giro.gif""></font></a></td>" HTML = HTML & " </tr></table></center></div></td></tr>" HTML = HTML & " <tr><td width=""100%""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/3.gif""></td></tr></table></center></div></td></tr></table>" 'cria objeto de email (vou usar CDONTS) Set Mail = CreateObject("CDONTS.NewMail") Mail.From = "sergio@agenciagiro.com.br" Mail.To = rs("email") Mail.Subject = "E MAIS FESTAS : Recuperação de Senha" Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.Body = HTML Mail.Send response.redirect "main.asp?senha=enviada" else response.redirect "main.asp?usuario=invalido" response.end end if %>

como que eu faço, quando o usuario digitar o numero do cartão no campo o sistema já ir colocando a mascara o formato da mascara será esse 0000.0000.0000.0000 e no campo de de baixo a mascara para o cpf 000.000.000-00 como que eu faço obrigado

- Vá em painel de controle, de um duplo clique em opções da pasta - Vá até modo de exibição, onde tem configurações avançadas, localize a frase usar compartilhamento simples de arquivos (recomendável) - Desmarque esta opção. Clique em aplicar e depois ok. - Agora clique com o botão direito do mouse sobre o seu banco de dados e vá em propriedades. - Clique no guia segurança e dê controle total ao usuário Todos, clique em ok. - Teste Seus codigos !!!

eu tenho um programa pra criptografar o asp, passa o seu email que eu mando pra você e se você puder mandar o dataform master eu agradeço o meu e-mail é sergio@agenciagiro.com.br

Microsoft JET Database Engine error '80004005' Could not use ''; file already in use. /web/verifica.asp, line 41 que erro e esse Dim adoConn Set adoConn = Server.CreateObject("adodb.Connection" adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\db\qnoite.mdb")