smez

BOm pessoal eu tenho um combo que esta buscando os dados no banco como que eu faço em javascript quando eu seleciona no combo "Outros" ele aparece um uma caixa de text do lado pra min coloca outros dados, na hora q eu seleciona um outro item ele esconde essa caixa de texto

o erro esta dando na linha em vermelho

eu pensei usar Request.ServerVariables("SERVER_NAME") mas não da pra pegar o q vem depois da /, tem algum outro q da pra min usar

Bom a minha dúvida e o seguinte tenho uma tabela no banco de dados com o campo "VALOR" no formato "DECIMAL(18,2) estou fazendo um select pra ele mostrar todos os pedidos de um determinado usuario ele ta listando assim produto valor produto1 10,00 produto2 5,00 valor total 10,00 5,00 como que eu faço para ele mostrar o valor total que seria 15,00 eu fiz assim <% CdUsuario = Request.QueryString("CdUsuario") set Item = CreateObject("ADODB.Recordset") set Item.ActiveConnection = abredb SQL = "SELECT * FROM vw_bonus WHERE CdUsuario="&CdUsuario&"" Item.Open sql while not Item.eof valor = FormatNumber(Item("Valor"),2) total = total + valor %> <%=Item("Descricao")%> <%=FormatNumber(Item("Valor"),2)%> <% Item.movenext wend %> <%=total%> onde será que está o erro???

como que eu faço pra ele pegar o valor da barra de endereço??

deu o esse erro Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][ODBC SQL Server Driver][sql Server]Syntax error converting datetime from character string.

você tem algum exemplo ae?

Como que eu faço um select que ele lista todos os registros por quinzena tipo assim tem uma opção para escolher a quinzena na busca ex.: txtQuinzena txtMes txtAno 1.Quinzena Janeiro 2007 2.Quinzena Fevereiro 2006 como que eu faço pra ele mostrar o resultado de 15 dias na minha tabela tem um campo "DtCadastro" o tipo dele e DateTime

como q eu uso essa função?

estou querendo fazer assim quando o usuario colocar na barra de endereço o endereço do site com uma barra e 1 numero ele faz um select no db ex: www.meusite.com.br/10 ele faz um select no DB e vai mostrar o resultado com os dados do usuario do ID 10 como que eu faço isso uso queryString?

<% ' ====================================================================== ' Author: Sérgio Cacique ' Create date: 21/08/2007 ' Description: Bônus Incentivo 1ª 15 dias, 4 indicações (1ªgeração) ' ======================================================================= txtCdUsuario = Request.Form("txtCdUsuario") '---------------------------------------- ' Gera Senha Aleatoria '---------------------------------------- Const szDefault = "abcdefghijklmnopqrstuvwxyz0123456789" Randomize sValidChars = szDefault nLenght = Len(sValidChars) For nCount =1 to 6 nNumber = Int((nLenght * Rnd) + 1) sRet = sRet & Mid(SvalidChars, nNumber,1) Next Set rs = CreateObject("ADODB.Recordset") Set rs.activeconnection = abredb SQL = "SELECT COUNT(*) AS TOTAL FROM Amigo WHERE CdUsuario="&txtCdUsuario&"" rs.open sql If rs("TOTAL") = "4" Then while not rs.eof rs.movenext wend Response.Write("SALVA BONUS") If rs("TOTAL") =< 3 Then LINHA DO ERRO Response.Write("SALVA CADASTRO") else Response.Write("SUA REDE NÃO ESTA COMPLETA") END IF else If rs("TOTAL") =< 3 Then Response.Write("SALVA CADASTRO") else Response.Write("SUA REDE NÃO ESTA COMPLETA") END IF end if %>

usa uma folha de estilo travando o tamanho ta tabela segue o exemplo abaixo: <style type="text/css"> <!-- .style1 { width:22px; "aqui você especifica o tamanho que vocÊ quer que fica a tabela" vertical-align:top; text-align:left; background-color:#E6E6E6; } --> </style> <table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td class="style1">&nbsp;</td> </tr> </table> se se isso aí ajuda.

eu desenvolvi o sistema de fazer o upload do arquivo, e estou conseguindo visualizar os dados que estão no txt, agora como que eu faço para salvar os dados no banco de dados.

tenho um arquivo TXT, eu faço o uploads dele para o site, como eu faço o script ler esse arquivo TXT e salvar os dados em um banco de dados, os dados que estão no txt estão separados por espaço exemplo do txt codigo produto nome do produto valor do produto preço do produto status do produto como que eu faço ?

bom bareta o codigo ta funcionando corretamente ele so deixa eu cadastrar ate a QUARTA pessoa, na hora que eu vou cadastrar a QUINTA pessoa ele não deixa, mesmo se as pessoas que eu indiquei estive cadastrado as tres cada.

Bom vamos lá Eu cadastro 4 pessoas correto, eu so posso cadastrar a QUINTA pessoa no site se essas 4 pessoas que eu cadastrei estiver cadastrado pelo menos 3 pessoas , se essas 4 pessoas que eu cadastrei não estiver cadastrado 3 pessoas ou mais eu não consigo cadastrar a QUINTA pessoa e uma regra de marketing de multinivel ou exemplo, Eu cadastro no site o Zé, João, Joaquim e o Antonio, pra min cadastrar outra pessoa ou seja a QUINTA pessoa o sistema teria que verificar se o Zé, João, Joaquim e o Antonio tem pelo menos 3 pessoas cadastradas por eles, entendeu?

ele cadastra, na verdade era p/ ele não cadastrar e aparecer uma mensagem, porque as 4 pessoas que eu adicionei não cadastrou pelo menos 3 pessoas cada 1 deles. entendeu..

faz uma view

coloca aí o seu script pra min dar uma olhada

funcionou bareta, so ta tem um problema quando as 4 pessoas que eu cadastrei cadastra os 3 que e obrigatorio eu continuo não conseguindo cadastrar o QUINTO. no meu banco de dados tem 2 tabelas tabela "usuario" CdUsuario int Senha varchar Nome Varchar tabela "amigo" Cod Int CdUsuario Int CdAmigo Int Abaixo esta omeu código <% CdUsuario = Request.QueryString("CdUsuario") Set rs = createObject("ADODB.Recordset") Set rs.activeconnection = abredb cadastro=true sql="select * From Usuario where CdUsuario="&session("CdUsuario") set rs=abredb.execute(sql) if rs.eof then cadastro=true else while not rs.eof if cadastro<>false then sql="select count(*) as total from Amigo where CdUsuario="&rs("CdUsuario") set rs1=abredb.execute(sql) if rs1.eof then cadastro=false else if rs1("total") > 3 then cadastro=true else cadastro=false end if end if rs1.close set rs1=nothing end if rs.movenext wend end if rs.close set rs=nothing if cadastro=true then Nome = Request.Form("txtNome") Email = Request.Form("txtEmail") Const szDefault = "abcdefghijklmnopqrstuvwxyz0123456789" Randomize sValidChars = szDefault nLenght = Len(sValidChars) For nCount =1 to 6 nNumber = Int((nLenght * Rnd) + 1) sRet = sRet & Mid(SvalidChars, nNumber,1) Next abredb.execute("INSERT INTO Usuario (Nome,Email,Senha,CdNivel,DtCadastro) values ('"& Nome &"','"& Email &"','"& sRet &"','1', GetDate())") Set Seleciona = CreateObject("ADODB.Recordset") sql = "select Nome, CdUsuario From Usuario Where Nome ='"& Nome &"' ORDER BY CdUsuario DESC" set Seleciona = abredb.execute(sql) CdAmigo = Seleciona("CdUsuario") Nome = request.form("txtNome") email_amigo = request.form("txtEmail") abredb.execute("INSERT INTO Amigo (CdUsuario,CdAmigo) values ("& session("CdUsuario") &",'"& CdAmigo &"')") 'Monta Mensagem HTML ="Olá " & Nome & " você foi cadastrado no site da WMS KYEL<br>" HTML = HTML & "seu ID é: " & CdAmigo & "<br>" HTML = HTML & "Sua senha é: " & sRet & "<br>" Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "sergio.cacique@wd5.com.br" 'quem esta enviado a mensagem Mailer.To = email_amigo ' com vai receber o e-mail Mailer.Subject = "Senha" Mailer.Body = HTML Mailer.BodyFormat = 0 Mailer.MailFormat = 0 Mailer.Send Set Mailer = Nothing response.redirect("cadastro sucesso.asp") else response.Write("não pode cadastrar") end if %>

set dateformat DMY; verifica no seu bando de dados se a tabela que esta salvando a hora esta como "datetime"

se eu colocar if total =>3 then ele não deixa eu cadastrar quando não estiver nenhum cadastro indicado por min, ele da erro

estou desenvolvendo um sistema de multinivel o que estou tentando fazer e assim, eu cadastro 4 pessoas como amigo, pra min cadastrar a 5° pessoa, as 4 pessoas que eu cadastrei tem que ter cadastrado no minino 3 pessoas cada, se cada um desses 4 que eu cadastrei estive cadastrado 3 ou mais pessoas eu posso cadastrar a 5° pessoa. Se essas 4 pessoas que eu cadastrei não estiver cadastrado pelo menos 3 pessoas eu não posso cadastrar a 5° pessoa SQL = "SELECT COUNT(CdAmigo) AS TOTAL FROM AMIGO WHERE CdUsuario = "&session("CdUsuario") &"" rs.open sql total = rs("total") If total =< 3 then abredb.execute("INSERT INTO Usuario (Nome,Email,Senha,CdNivel,DtCadastro) values ('"& Nome &"','"& Email &"','"& sRet &"','1', GetDate())") else erro end if desenvolvi esse script e funcionou, eu cadastro 4 pessoas na hora que eu vou cadastrar a quinta ele da uma mensagem que não pode cadastrar, a minha duvida e a seguinte todos os 4 membros que eu cadastre já cadastrau os 4 que tem que cadastrar, mas mesmo assim continuo não podendo cadastrar o quinto membro

teria que ser em asp, porque vai ter uma tabela no db salvo a hora que o admin escolher e a pagina não vai poder vicar aberta.

bom dia , estou querendo fazer uma funcionalidade no meu sistema. vou tem no meu admin do meu site um Campo ou combobox contendo todas as horas do dia para inserir horários ou também uma combobox contendo valores como por exemplo, de 3 em 3 horas ou seja, de tempo em tempo, isto servira para definir o tempo a enviar um e-mail. como eu faço isso?