smez

não entendi Bareta, estou passando como numero e não como string

Tenho em meu site 10 campos de formulario estou fazendo a soma deles assim Dim somass <% somass = 0 MascPP = int(Request.Form("txtMascPP")) MascP = int(Request.Form("txtMascP")) MascM = int(Request.Form("txtMascM")) MascG = int(Request.Form("txtMascG")) MascGG = int(Request.Form("txtMascGG")) MascXG = int(Request.Form("txtMascXG")) FemP = int(Request.Form("txtFemP")) FemM = int(Request.Form("txtFemM")) FemG = int(Request.Form("txtFemG")) FemGG = int(Request.Form("txtFemGG")) Nomes = Request.Form("txtNomes") Barra = Request.Form("txtOpcional") CdProduto = Request("produto") somass = MascPP+MascP+MascM+MascG+MascGG+MascXG+FemP+FemM+FemG+FemGG Response.Write "soma"&somass If somass < "25" Then %> <script> alert('Pedido minimo 25 pecas'); location.href="produto.asp?produto=<%=CdProduto%>" </script> <% Else resposnse.redirect ("pagina2.asp") %> até ai tudo bem, mas o que esta acontecendo e o seguinte, na primeira tentativa que o cliente tenta comprar com menos de 25 peças ele da a mensagem de alerta, mas na segunta tentativa ele consegue passar com menos de 25 peças, oque será que está ocorrendo?? o pedido minino tem q ser de 25 peças somando todos os 10 campos, não podendo aceitar menos de 25 peças.

Pessoal, Problema resolvido eu reinstalei o sql server com senha e fiz assim StringdeConexao = "Provider=SQLOLEDB.1;Data Source=SERGIOCACIQU-PC\SQLEXPRESS;Initial Catalog=db_supermidia;Uid=sa;Pwd=123456;" assim funcionou.

Esta dando o seguinte erro Microsoft SQL Native Client erro '80004005' Não é possível abrir o banco de dados "db_supermidia" solicitado pelo logon. Falha de logon. /site/supermidia/novo/abrebanco.asp, linha 24 estou fazendo assim StringdeConexao = "Provider=SQLNCLI;Server=SERGIOCACIQU-PC\SQLEXPRESS;Database=db_supermidia;Trusted_Connection=yes;MarsConn=yes;" no windows vista funcionava normal, depois que instalei o windows 7 deu esse erro. oque devo fazer???

Eu tinha uma aplicação com banco de dados em ACCESS e funcionava corretamente, mudei o banco de dados para SQL SERVER agora da esse erro Microsoft OLE DB Provider for SQL Server erro '80040e14' 'hour' is not a recognized built-in function name. /ferramenta/atendimento/mysAdmStats.asp, linha 70 da esse erro nessa linha, deixei em negrito onde eu acho q esta o erro.

tenho em uma tabela o campo Qtd que tem os valores 2 e 25 na soma que estou fazendo esta trazendo 227 ao invés de 27 o que sera q estou fazendo de errado segue abaixo o meu script Dim Converte Dim Atualiza Dim Valor_final while not carrinho.eof Converte = cint(carrinho("Qtd")) Atualiza = Cint(Converte) Valor_Final = int(Valor_Final+Atualiza) carrinho.movenext : wend response.Write Valor_Final

No meu banco de dados tem 2 campos DtInicial e DtFinal os com como datetime DataInicial = formatDateTime(programacao("DtInicial"), 4) DataFinal = formatDateTime(programacao("DtFinal"), 4) Duracao1 = Cdate(DataFinal)-Cdate(DataInicial) Duracao = (Duracao1) celulas = Duracao / 30 estou tentando fazer assim no campo DtInicial esta : 12:30 e no DtFinal 13:30 estou tentando trazer o tempo de duração do programa que seria 1hora mas esta trazendo assim 4,16666666666667E-02 como q eu faço para trazer 1 ao invés de 4,16666666666667E-02

Estou tentando fazer uma Guia de Programação igual a esse http://www.tvalphaville.com.br/index.php?s...iadeprogramacao mas o meu sai assim http://www.supermidia.tv.br/2010/programacao.asp não esta mesclando as celulas estou fazendo assim <table width="100%" border="0" cellspacing="2" cellpadding="4"> <% Session.LCID = 1046 function PoeZero(numero) if len(numero) = 1 then PoeZero = "0" & numero else PoeZero = numero end if end function function ViraHora(numero) if numero <> "" then ViraHora = PoeZero(int(numero/60)) & ":" & PoeZero(numero-(int(numero/60)*60)) end if end function vDia = Day(Date) vHora = Hour(now) vMinuto = Minute(now) vMes = Month(Date) vAno = Year(Date) HorasInicial = vHora - 1 if vMinuto < 30 Then HoraInicial = HorasInicial&":30" elseif vMinuto >= 30 Then HoraInicial = vHora&":00" End If asHoras = HoraInicial HoraFinal = DateAdd("h",2,HoraInicial) set canal = createobject("adodb.recordset") set canal.activeconnection = abredb SQL = "SELECT * FROM Canal" canal.open sql %> <tr> <td width="45" rowspan="2" align="center" class="tituloCanal">CANAIS</td> <td width="734" colspan="4" align="center" class="tituloData"><strong><%=WeekDayName(WeekDay(Date()))%>, <%=Day(Date)%>/<%=Month(Date)%>/<%=Year(Date)%></strong></td> </tr> <tr> <% asHora = dateAdd("n",30,HoraInicial) vData_inicial = vDia&"/" & vMes & "/" & vAno&" "&asHora&":00" while DatePart("h",HoraInicial) <> DatePart("h",HoraFinal) Hora = dateAdd("n",30,HoraInicial) vData_Final = vDia&"/" & vMes & "/" & vAno&" "&dateAdd("n",30,HoraInicial) %> <td class="tituloHora">&nbsp;&nbsp;<strong><%=FormatDateTime(Hora, 4)%></strong></td> <%HoraInicial = DateAdd("n",30,HoraInicial) : Wend%> </tr> <% while not canal.eof Set programacao = createobject("adodb.recordset") set programacao.activeconnection = abredb SQL = "set dateformat DMY; SELECT TOP 4 * FROM Programacao WHERE DtInicial >= '"&vData_inicial&"' AND DtFinal <= '"&vData_Final&"' AND CdCanal = '"&canal("CdCanal")&"' ORDER BY DtInicial ASC" programacao.open sql if not programacao.eof then %> <tr> <td align="center" valign="middle" class="canalAmarelo"><img src="imagensDinamica/canais/colorido/<%=canal("logo")%>" /></td> <%while not programacao.eof DataInicial = formatDateTime(programacao("DtInicial"), 4) DataFinal = formatDateTime(programacao("DtFinal"), 4) Duracao1 = (DataFinal)-(DataInicial) Duracao = (Duracao1) celulas = Duracao / 30 if strcor = "DestaqueAmarelo" then strcor = "DestaqueAzul" else strcor="DestaqueAmarelo" end if %> <td class="<%=strcor%>" <%If celulas > 1 then%>colspan="<%=celulas%>"<%End IF%> align="center"><%=programacao("Nome")%></td> <%programacao.movenext : wend%> </tr> <% end if canal.movenext : wend Dim HoraInicial, HoraFinal 'HoraInicial = "00:00" %> </table> o que será que estou fazendo de errado???

não a locaweb esta passando para mim assim 4500 e quando vou salvar no banco essa valor ele esta salvando como 4.500,00 e na verdade e para salvar como 45,00

como como faço para tirar os 2 ultimos zero, o pagamento certo da locaweb esta retornando assim para mim 4500 quando vou salvar no banco ele esta salvando como 4.500,00 so que na verdade preciso salvar 45,00 no banco como que eu faço para salvar 45,00 e não 4.500,00 preciso salvar esse valor no meu banco de dados

Amigo, você não está chamando nada no banco de dados, se você criou a conexão com o banco agora você tem q fazer a programação com a tabela tipo assim <!--#include file = "conexao.asp"--> <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0"> </HEAD> <BODY> <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "SELECT * FROM suatabela ORDER BY ID DESC" rs.open sql %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td ALIGN="CENTER"><FONT FACE="Arial" SIZE="2" COLOR="#ff0000">Bem Vindo</FONT><img src="<%=rs("fotos")%>" width="45" height="50"></td> </tr> </table> agora se você quer que mostra mais fotos faz assim <!--#include file = "conexao.asp"--> <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0"> </HEAD> <BODY> <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "SELECT * FROM suatabela ORDER BY ID DESC" rs.open sql %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <%while not rs.eof%> <tr> <td ALIGN="CENTER"><FONT FACE="Arial" SIZE="2" COLOR="#ff0000">Bem Vindo</FONT><img src="<%=rs("fotos")%>" width="45" height="50"></td> </tr> <% rs.movenext wend %> </table> qualquer duvida posta ae.

pessoal estou com uma duvida, tenho essa função que traz o valor pra mim assim 175,00 como que eu faço para tirar a virgula e deixar so 17500 e seu tirar o FormatNumber ele traz assim 175 FormatNumber(session("TotalGeral"),2)

boa tarde pessoal, esta dando o seguinte erro no meu site Microsoft OLE DB Provider for SQL Server error '80040e14' Incorrect syntax near 's'. /console/empresa.asp, line 14 como eu faço no insert para aceitar o ' aspas simples o meu script esta assim <% Academia = Request.Form("txtAcademia") Estrutura = Request.Form("txtEstrutura") Equipe = Request.Form("txtEquipe") Localizacao = Request.Form("txtLocalizacao") set upd = createobject("adodb.recordset") set upd.activeconnection = abredb SQL = "UPDATE Academia SET Academia = '"&Academia&"', Estrutura = '"&Estrutura&"', Equipe = '"&Equipe&"', Localizacao = '"&Localizacao&"' WHERE CdAcademia = 1" upd.open sql %>

'lendo o arquivo TXT Const forReading = 1, forWriting = 2, forAppending = 8 Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set ObjFile = Fso.GetFile(""&caminho&"dinamica\txt\"&filename&"") Set objStream = ObjFile.OpenAsTextStream(forReading,false) do while not ObjStream.AtEndOfStream Linha = ObjStream.Readline Quebra = Split(Linha," ") Ref = Trim(Quebra(0)) NomeProduto = Trim(Quebra(1)) Fabri = Trim(Quebra(2)) Valor = Trim(Quebra(3)) Valor = left(Valor,(len(Valor)-2))&","&right(Valor,2) Valor = FormatNumber(Valor,2)

pessoal eu crieu uma barrinha em asp do meu site, como que eu faço para colocar em outros site a barrinha do meu site, igual a que o uol, r7 etc.. coloca nos outros site não queria usar iframe, como que eu faço.

bareta fiz assim mas deu o segiunte erro Microsoft VBScript runtime error '800a000d' Type mismatch: 'FormatNumber' Valor = Trim(Quebra(3)) Valor = left(Valor,(len(Valor)-2))&","&right(Valor,2) Valor = FormatNumber(Valor,2)

tenho em um arquivo TXT cadastrado mais de 4 mil produtos no campo de preço no TXT esta assim 0000000299 como que eu faço para converter para 2,99 eu fiz assim Valor = Replace(Trim(Quebra(3)),".","") Valor = replace(Valor,",",".") mas da o seguinte erro como que eu faço para fazer essa conversão???

tenho na minha tabela os seguinte campos dataInicial e dataFinal na data Inicial começa no dia 10/10/2009 e a data Final termina no dia 20/10/2009 como que eu faço para que ele lista assim 10/10/2009 11/10/2009 12/10/2009 ate o dia 20/10/2009 ?? para que o usuario seleciona o dia para agendar

Bareta eu tenho servidor proprio tenho o PLESK como painel de controle de hospedagem eu gostaria de criar subDominios via codigo asp, sem precisar abrir o plesk

você esta usando que tipo de banco de dados, se você estiver usando sql server, cria uma view que fica mais facil depois para você fazer. a view já relaciona as tabelas.

como que eu faço para criar um sub dominio em asp? quando for criar uma conta de usuario ele criar automatico o subdominio ex. crio o usuario paulo ele criar o subdominio assim http://paulo.meusite.com.br

estou com esse script abaixo que esta usando o SoftArtisans.FileUp so que o servidor que estou atual não aceita esse componente e tem o Persits AspUpload como que eu façao para mudar esse meu script para Persits AspUpload obrigado. <% Set Jpeg = Server.CreateObject("Persits.Jpeg") Set upl = Server.CreateObject("SoftArtisans.FileUp") upl.Maxbytes = 41000 upl.Path = "c:\Inetpub\balletdobrasil\web\imagensDinamica\usuario\" If not upl.Form("file").IsEmpty then upl.SaveAs request("id") &".jpg" strurl = ""& request("id") &".jpg" strsql4 = "UpDate Bailarinos set Foto = 1 where CdBailarinos = "& request("id") &"" set objtb4 = abredb.execute(strsql4) end if Set upl = Nothing Set Jpeg = nothing %>

sim eu peguei esse script pronto, e de um atendimento online, e esta sendo chamado em "hour(conversas.inicio)"

ola pessoal, esta dando o seguinte erro na minha aplicação Microsoft OLE DB Provider for SQL Server erro '80040e14' 'hour' is not a recognized function name. /sites/jgaf Novo/atendimento/mysAdmStats.asp, linha 70 estou usando o banco de dados MSSQL e da esse erro quando eu tava usando o banco de dado em ACCESS não dava erro oque pode ser segue abaixo o codigo fonte strSQL = "set dateformat DMY; SELECT Count(conversas.id) AS Total, departamentos.nome, hour(conversas.inicio) as hora, conversas.nota FROM conversas, departamentos WHERE departamentos.id = conversas.departamentoID AND conversas.inicio BETWEEN #"& calA & "/" & adZero(calM,2) & "/" & adZero(calD,2) &" 00:00:00# AND #"& calA & "/" & adZero(calM,2) & "/" & adZero(calD,2) &" 23:59:59# GROUP BY departamentos.nome, hour(conversas.inicio), conversas.nota ORDER BY departamentos.nome"