bareta

vamu usar essa tópico pra aprimorar o asp + excel... quem quiser postar artigos aqui fica a vontade... esse link da uma ideia de como usar o excel como base de dados http://support.microsoft.com/kb/278973/pt-br

você está repetindo a variavel dim conn, varconn coloque o dim conn, varconn dentro da sub

duvidas e problemas devem ser postadas em ASP, a sessão de tutoriais fica somente a tutos e dicas importantes... vlw... e quanto ao seu erro é o seguinte verifique estas vars Dim ANRec, ANConn, strANConn e veja se não estão repetindo... ou seja dim nome, por mais de uma vez

qual erro esta dando^???

vamos ver strSQL = " SELECT Ramal.grupo , SUM (CRJJ04.duracao) AS total2 , COUNT (Ramal.grupo) AS total , AVG (CRJJ04.duracao) AS total3 , SUM (CRJJ04.duracao) AS total5 " strSQL = strSQL & " FROM Ramal, CRJJ04 " strSQL = strSQL & " where CRJJ04.data BETWEEN '#10/04/2007#' And '#30/04/2007#' " strSQL = strSQL & " And CRJJ04.origem=Ramal.Ramal " strSQL = strSQL & " And tipo = 0 And servico = 3 " strSQL = strSQL & " And operadora = 31 " strSQL = strSQL & " GROUP BY Ramal.grupo " set rsDDD = conexaodb.execute(strSQL) testa ai...

num entendi.... <% numero = 18.4 divisor = 10 resultado = numero/divisor (1.84) resto = numero - (resultado*divisor)' (18.4)-(18.4)=0 %>

set rs = conexao.execute("select top 2 * from postagem ORDER BY adicionado DESC") if not rs.eof then while not rs.eof response.write("<a href='ler.asp?id="&rs("id")&"'>- "&rs("titulo")&"</a>") response.write("<br>") rs.MoveNext wend end if rs.close set rs=nothing

set rs = conexao.execute("select top 2 * from postagem ORDER BY adicionado DESC") if not rs.eof then while not rs.eof response.write("<a href='ler.asp?id="&rs("id")&"'>- "&rs("titulo")&"</a>") response.write("<br>") rs.MoveNext Next end if rs.close set rs=nothing

veja 8.4 <% resto = 18.4 - 10 response.write (resto) %> 1,84 <% resto = 18.4 / 10 response.write (resto) %>

em alguns casos você usará """... ...<a href="""&var&""" target=""t"">"....

o cdate deu erro por causo de em parenteses.;..(é o que pareçe) errado strdata=cdate(diasemanahoje&"/"&(month(dt)&"/"&year(dt) ) correto strdata=cdate(diasemanahoje&"/"&month(dt)&"/"&year(dt) )

sabe usar banco de dados? fazer um select? usar um if? usar uma session ou um cookie? request.form("") / request.querystring("")?

utilize between #"&datainicial&"# and #"&dayafina&"#

vou tentar aqui... <table width="100%" border=1 cellspacing = 0> <tr> <td bgcolor="#4DA8E1"><a href= "index_ger2.asp?dt=<%=ma%>"> <img src="../imagens/jpg/rev.jpg" alt="M&ecirc;s anterior" width="32" height="32" border="0"></a></td> <td colspan = 4 align = center bgcolor="#4DA8E1"><font face = "verdana" size = 3><b> <%=Ucase(MonthName(month(dt),true))%>/<%=year(dt)%> </b></font></td> <td align="right" bgcolor="#4DA8E1"><a href = "index_ger2.asp?dt=<%=mp%>"><img src="../imagens/jpg/fw.jpg" alt="Pr&oacute;ximo m&ecirc;s" width="32" height="32" border="0"></a></td> </tr> </table> <table width="100%" border=1 cellspacing = 0> <%for li = 1 to 9%> <tr> <%for co = 1 to 4%> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <th width="100%" bgcolor="#CCCCCC" scope="row"><div align="left" class="style29"> <% diasemanahoje = nomesemana(WeekDay(ct)) response.write diasemanahoje %> </div></th> </tr> <tr> <th scope="row"><div align="left" class="style31"><%=gr(ct)%></div></th> </tr> <tr> <th scope="row"><div align="left"><span class="style13 style21"> <% strdata=cdate(diasemanahoje&"/"&(month(dt)&"/"&year(dt) ) data = "SELECT * FROM 4AGENDA WHERE cod_politico="& session("cod_user") &" AND dtcompromisso='#"& strdata &"#'" Set RS_data = Server.CreateObject("ADODB.Recordset") SET RS_data = Conexao.Execute(data) If RS_data.EOF = true then response.write "Nenhum compromisso" end if %> <% while Not RS_data.EOF %> </span> <table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC"> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#00b3fe'" onMouseOut="java script:this.style.backgroundColor=''"> <th width="16%" scope="row"><div align="left" class="style27"><%= RS_data("horario") %></div></th> <td width="84%"><div align="left" class="style26"><a class='tooltip' href='#'><%= Left(RS_data("chamada"),21) %>...<span> <% response.write "<font size=3><b>"& Ucase(RS_data("chamada")) & "</b></font><br><br>" response.write RS_data("descricao") & "<br><br>" if RS_data("publico")="s" then response.write "<font color=#0099ff><b>TIPO: P&uacute;blico</b></font>" else response.write "<font color=#0099ff><b>TIPO: N&atilde;o P&uacute;blico</b></font>" end if %> </span></a></div></td> </tr> </table> <% RS_data.MoveNext wend RS_data.Close Set RS_data = Nothing %> </div></th> </tr> </table></td> <%ct = ct + 1%> <%next%> </tr> <%next%> </table> teste ai

isso deve ajudar http://forum.imasters.com.br/index.php?showtopic=28272

figuras.zip <% '----------------------------------------------------- 'Funcao: getCodigoBarras(ByVal Numeros) 'Sinopse: Rotina para gerar códigos de barra padrão 2of5 ou 25. 'Parametro: ' Numeros: Números para a geração do código de barras 'Retorno: String (HTML com o código gerado) 'Autor: William Nazato (wil@merconet.com.br) '----------------------------------------------------- Function getCodigoBarras(ByVal Numeros) Dim F, F1, F2, i, Texto Dim arrCodigoBarra(99) Dim htmlCodigoBarra htmlCodigoBarra = "" Const Fino = 1 Const Largo = 3 Const Altura = 50 if isempty(arrCodigoBarra(0)) Then arrCodigoBarra(0) = "00110" arrCodigoBarra(1) = "10001" arrCodigoBarra(2) = "01001" arrCodigoBarra(3) = "11000" arrCodigoBarra(4) = "00101" arrCodigoBarra(5) = "10100" arrCodigoBarra(6) = "01100" arrCodigoBarra(7) = "00011" arrCodigoBarra(8) = "10010" arrCodigoBarra(9) = "01010" For F1 = 9 To 0 Step -1 For F2 = 9 To 0 Step -1 F = F1 * 10 + F2 Texto = "" For i = 1 To 5 Texto = Texto & Mid(arrCodigoBarra(F1), i, 1) + Mid(arrCodigoBarra(F2), i, 1) Next arrCodigoBarra(f) = Texto Next Next End if 'Construindo o código HTML do código de barras 'Guarda inicial htmlCodigoBarra = htmlCodigoBarra & "<img src=p.jpg width=" & Fino & " height=" & Altura & " border=0>" htmlCodigoBarra = htmlCodigoBarra & "<img src=b.jpg width=" & Fino & " height=" & Altura & " border=0>" htmlCodigoBarra = htmlCodigoBarra & "<img src=p.jpg width=" & Fino & " height=" & Altura & " border=0>" htmlCodigoBarra = htmlCodigoBarra & "<img src=b.jpg width=" & Fino & " height=" & Altura & " border=0>" htmlCodigoBarra = htmlCodigoBarra & "<img" Texto = Numeros if Len(Texto) Mod 2 <> 0 Then Texto = "0" & Texto End if 'HTML dos dados Do While Len(Texto) > 0 i = Cint(Left(Texto,2)) Texto = Right(Texto, Len(Texto)- 2) F = arrCodigoBarra(i) For i = 1 To 10 Step 2 If Mid(F, i, 1) = "0" Then F1 = Fino Else F1 = Largo End If htmlCodigoBarra = htmlCodigoBarra & " src=p.jpg width=" & F1 & " height=" & Altura & " border=0><img" If mid(F, i + 1, 1) = "0" Then F2 = Fino Else F2 = Largo End If htmlCodigoBarra = htmlCodigoBarra & " src=b.jpg width=" & F2 & " height=" & Altura & " border=0><img" Next Loop 'Guarda final htmlCodigoBarra = htmlCodigoBarra & " src=p.jpg width=" & Largo & " height=" & Altura & " border=0>" htmlCodigoBarra = htmlCodigoBarra & "<img src=b.jpg width=" & Fino & " height=" & Altura & " border=0>" htmlCodigoBarra = htmlCodigoBarra & "<img src=p.jpg width=1 height=" & Altura & " border=0>" 'Retornando a função getCodigoBarras = htmlCodigoBarra End Function 'Exemplo de geração do código de barras 'Substitua o valor do parâmetro abaixo pelo número do código de barras. Response.Write getCodigoBarras("1234567890123456789012345678901234567890") %> as imagens tão em anexo

veja: http://www.guiadohardware.net/comunidade/a...tamente/228967/ a solução seria usar o mysql... se seu ip não é fixo você pode usar o no-ip... aquilo do post anterior era refente a isso....

poe o codigo completo da parte que escreve na tela o calendario... porque aqui me perdi no tanto de ct,lp,et....

evite fazer posts desnecessarios... Function Lista_Tamanhos(tamanhos) sql="select * from Tamanhos order by nome_tamanho" set RS_Tamanho=conexao.execute(sql) Coluna = 0 If RS_Tamanhos.Eof Then Else %> <select name="nome_tamanho"> <% If tamanhos <> "" Then While Not RS_Tamanhos.EOF Vetor = Split(tamanhos, ",") For I = 0 To Ubound(Vetor) If CDbl(Vetor(I)) = CDbl(RS_Tamanhos("codigo_tamanho")) Then %> <option value="<%=RS_Tamanhos("codigo_tamanho")%>"><%=RS_Tamanhos("nome_tamanho")%></option> <% End If Next RS_Tamanhos.MoveNext Wend end if %> </select> <% End If RS_Tamanhos.Close Set RS_Tamanhos = Nothing End Function %> testa ai... tinha uns end if fora do lugar e um faltando...

é so não colocar data de expiração

porque basicamente ele faz o select com a mesma data para todos os quadros... na variavel da data mude a data conforme ele imprime na tela...

o que isso tem a ver com o tópico???? ------------------------------------------------------------ Voltanto a intranet .. que banco você está usando?

faz uma função em js.... ai no campo poe o return função....

que eu saiba so o js... o que tornará a funcionalidade mais rapida e agil...

fechando