Ir para conteúdo
Fórum Script Brasil

Coxinha

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    20

  • Registro em

  • Última visita

Sobre Coxinha

Coxinha's Achievements

0

Reputação

  1. Coxinha
    Galera, é o seguinte, já pesquise muito, mas muito mesmo sobre flash + iframe. não estou conseguindo de forma alguma fazer com que o menu, que é o cabeçalho de site feito em flash, abra os links dentro do iframe no html... já tentei de tudo... on (release) { getURL("java script:window.open('home.html','pop','width=550,height=430,top=0, left=0, scrollbars=yes');void(0);"); } ... on (release) { getURL("home.html","centro"); } e também não consigo chamar uma funcão de java script pelo flash.... também já tentei um monte de coisa... to ficando louco.... primeiro estava usando o flash mx, ai achei que o problema era o soft e baixei o flash 8.0 algum consegue me dar uma luz?!!!!! segue o html <HTML> <HEAD> <meta http-equiv=Content-Type content="text/html; charset=ISO-8859-1"> <TITLE>topo</TITLE> <script> function teste() { alert("funcionou p****!!!") } </script> </HEAD> <BODY background=bgd.jpg> <div align=center> <table cellpadding=0 cellspacing=0 border=0> <tr> <td width=750> <!-- text used in the movie--> <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="750" HEIGHT="280" id="topo" ALIGN=""> <PARAM NAME=movie VALUE="topo.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#753D1D> <EMBED src="topo.swf" quality=high bgcolor=#753D1D WIDTH="750" HEIGHT="280" NAME="topo" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED> </OBJECT> </td> </tr> <tr> <td><iframe width=750 frameborder=0 name="centro" src="home.html" height=406></iframe></td> </tr> <tr> <td><img src=images\img_01.gif width=750></td> </tr> </table> </div> <br> <a href=home.html target=centro>home</a> - <a href=loja.html target=centro>loja</a> - <a href='#' onclick=java script:teste()>script</a> </BODY> </HTML> Muito Obrigado galera!!! Galera!!! voltei aqui para tirar possíveis dúvidas.. tão simples e ninguém tinha comentado... para funcionar normal, só rodando com servidor.... eu estou usando o iis para rodar local e está rodando perfeitamente!!! Muito Obrigado
  2. Coxinha
    porem não fica 100% sem registro
  3. Coxinha

    Error 800a000d

    uma questão postou Coxinha ASP

    galera, É o seguinte... tenho o seguinte código: <!--#include File="..\conexao.asp"--> <% 'Session("Setor")=630104 Set rs1=Server.CreateObject("ADODB.Recordset") If Request.QueryString("CICLO")="" Then SQL="SELECT Ciclos.ciclo FROM Ciclos WHERE (((Ciclos.dtInicial)<= GetDate() ) AND ((Ciclos.dtFinal)+1 <= GetDate() ))" rs.Open SQL,conn,3,3 CICLO=rs.fields(0) rs.close Else CICLO = Trim(Request.QueryString("CICLO")) End If ANO = Year(Now()) 'if (Month(now()) - CICLO) < 0 Then ' ANOCIC=Year(Now())-1 'Else ' ANOCIC=Year(Now()) 'End If If cInt(CICLO) > Month(Now()) Then ANO = ANO -1 End If SQL = "SELECT dtInicial, dtFinal FROM Ciclos WHERE (ciclo = " & CICLO & ") AND (ano = " & ANO & ")" rs.open SQL,conn,3,3 Dim DATAIN Dim DATAFIM DATAIN=rs.fields(0) DATAFIM=rs.fields(1) rs.close %> <html> <head><link REL="stylesheet" HREF="tipo.css"> &lt;script LANGUAGE="JavaScript"> <!-- function loadpage(){ var select=eval(document.escolha.Config.selectedIndex); var texto=document.escolha.Config.options[select].value var splitpos = texto.lastIndexOf(",") var url = texto.substring(0,splitpos) var top = texto.substring(splitpos+1) if(top == 0){ self.location=url; } else { parent.location=url; } } // --> </script> <title>Relat&oacute;rio de Revisitas</title> </head> <body background="images/fundo.jpg" link="#000000" vlink="#FF00FF" alink="#FFFFFF" topmargin="0"> <table border="0" width="100%" cellspacing="1"> <tr> <td width="28%"><font face="Arial" color="#0080FF"><strong><small><img src="images/unidade.gif" WIDTH="200" HEIGHT="60"></small></strong></font></td> <td width="72%"><p align="center"><strong><font face="Arial" color="#0080FF">Relatório de Revisitas do SETOR <%=Session("Setor")%><br> </p> <form method="POST" action="planilhao1.asp" name="escolha"> </font><font face="Arial" color="#0000FF"><small><div align="center"><center><p>CARREGANDO CICLO <select size="1" name="Config" onChange="loadpage()" style="font-family: Arial; font-size: 14; background-color: rgb(255,255,255); color: rgb(0,101,202)"> <% For f=12 to 1 STEP -1 If f<1 Then VCICL=12+f Else VCICL=f End If if INT(VCICL)=INT(CICLO) Then VALORSEL="selected" Else VALORSEL="" End If %> <option <%=VALORSEL%> value="http://www.nutrition.unidade.com/planilhao1rev.asp?CICLO=<%=VCICL%>,0"><%=VCICL%></option> <% Next %> </select> ( <%=DATAIN & " a " & DATAFIM%> )</small></p> </center></div> </form> <p><br> </font></strong><font face="Arial" color="#0080FF"><small><small>Emitido em <%=Now()%></small></small></font></td> </tr> </table> <table border="1" width="100%" bordercolor="#FFFFFF" cellspacing="1" cellpadding="0"> <tr> <td align="center" bgcolor="#0080FF"><font face="Arial" color="#FFFFFF"><strong><small><small>SETOR</small></small></strong></font></td> <% A=DateDiff("d", DATAIN,DATAFIM) for f=DATAIN TO DATAFIM %> <td align="center" bgcolor="#0080FF"><font face="Arial" color="#FFFFFF"><strong><small><small><%=DAY(f)%></small></small></strong></font></td> <% Next %> </tr> <% 'Começa Set rs10=Server.CreateObject("ADODB.Recordset") SQL="SELECT Setor FROM Visitas GROUP BY Setor HAVING (Setor IS NOT NULL) ORDER BY Setor" rs10.open SQL,conn,3,3 while not rs10.eof d=d+1 '################################################ vet_setor = rs10("setor") Set rs4=Server.CreateObject("ADODB.Recordset") converte_data_ini = split(DATAIN,"/") converte_data_fim = split(DATAFIM,"/") dia_ini = converte_data_ini(0) mes_ini = converte_data_ini(1) ano_ini = converte_data_ini(2) dia_fim = converte_data_fim(0) mes_fim = converte_data_fim(1) ano_fim = converte_data_fim(2) SQL4="SELECT * FROM Visitas WHERE ((Visitas.Setor)='"&vet_setor&"') AND (DataV BETWEEN CONVERT(DATETIME, '"& ano_ini&"-"& mes_ini&"-"&dia_ini &"', 102) AND CONVERT(DATETIME, '"& ano_fim&"-"& mes_fim&"-"&dia_fim &"', 102)) Order by Medico, datav" 'response.write SQL4 x=0 p=0 rs4.Open SQL4,conn,3,3 Dim ids do while not rs4.EOF x=x+1 id_med = Rs4.fields("id_visita") Set conn2=Server.CreateObject("ADODB.Connection") Conexao2 = "DRIVER={SQL Server};server=xxxxxxxxxxxx;UID=xxxxxxxxxx;pwd=xxxxxxxxx;Database=Nutrition" conn2.open Conexao2 set rs2 = Server.CreateObject("ADODB.Recordset") Med = rs4("medico") SQL2="SELECT Visitas.* FROM Visitas WHERE ((Visitas.Setor)='"&vet_setor&"') AND (Visitas.Medico='" & Med & "') AND (DataV BETWEEN CONVERT(DATETIME, '"& ano_ini&"-"& mes_ini&"-"&dia_ini &"', 102) AND CONVERT(DATETIME, '"& ano_fim&"-"& mes_fim&"-"&dia_fim &"', 102))" rs2.Open SQL2,conn2 z=0 if not rs2.eof then id = rs2("Id_visita") id_medico = CStr(id) if x = 1 then med_ant = rs4("medico") end if while not rs2.eof z= z +1 rs2.movenext wend 'tot = rs2("total") 'tot = tot -1 if z>1 then if Med = med_ant then if p = 0 then ids = id_med p=1 else ids = ids & "," & id_med end if 'ids = ids & id_med end if end if end if 'response.write SQL2 %> </small></font></td> </tr> <% med_ant = rs4("medico") rs4.moveNext Loop rs4.close if p=0 then ids="0" end if SQL3 = "Select * from Visitas where id_visita IN("& ids &")" 'response.write SQL3 'response.end 'termina 'On error Resume Next Dim SETOR(90) Dim LINKP(90) SQL="SELECT CadMedicos.Setor FROM CadMedicos GROUP BY CadMedicos.Setor HAVING (((CadMedicos.Setor)='" & vet_setor & "')) ORDER BY CadMedicos.Setor" rs.Open SQL,conn,3,3 x=0 Do while Not rs.EOF For f=DATAIN to DATAFIM x=x+1 SQL1="SELECT Count(Visitas.Medico) AS ContarDeMedico FROM Visitas " & _ "WHERE (((Visitas.DataV)='" & AAMMDD(Day(f) & "/" & Month(f) & "/" & Year(f)) & "') AND ((Visitas.Setor)='" & Rs.Fields(0) & "') ) and id_visita IN("& ids &")" 'response.write SQL1 'response.end rs1.Open SQL1,conn,3,3 SETOR(x)=rs1.Fields(0) If SETOR(x)<>0 OR SETOR(x)<>"0" Then LINKP(x)="<a href='http://www.nutrition.unidade.com/diariodetalherev.asp?DataV=" & f & " & datai=" & DATAIN & " & dataf=" & DATAFIM & "&Setor=" & rs.fields(0) & "&where="& ids &"' target='_blank'>" Else LINKP(x)="" End If rs1.close Next TOTSET=SETOR(1)+SETOR(2)+SETOR(3)+SETOR(4)+SETOR(5)+SETOR(6)+SETOR(7)+SETOR(8)+SETOR(9)+SETOR(10)+SETOR(11)+SETOR(12)+SETOR(13)+SETOR(14)+SETOR(15)+SETOR(16)+SETOR(17)+SETOR(18)+SETOR(19)+SETOR(20)+SETOR(21)+SETOR(22)+SETOR(23)+SETOR(24)+SETOR(25)+SETOR(26)+SETOR(27)+SETOR(28)+SETOR(29)+SETOR(30)+SETOR(31)+SETOR(32)+SETOR(33)+SETOR(34)+SETOR(35)+SETOR(36)+SETOR(37)+SETOR(38)+SETOR(39)+SETOR(40)+SETOR(41)+SETOR(42)+SETOR(43)+SETOR(44)+SETOR(45)+SETOR(46)+SETOR(47)+SETOR(48)+SETOR(49)+SETOR(50)+SETOR(51)+SETOR(52)+SETOR(53)+SETOR(54)+SETOR(55)+SETOR(56)+SETOR(57)+SETOR(58)+SETOR(59)+SETOR(60) %> <tr> <td align="center" bordercolor="#0080FF"><font face="Arial" color="#FF00FF"><small><strong><small><%=Rs.Fields(0)%><font face="Arial" color="#000000">-<%=TOTSET%></small></strong></small></font></td> <% DATADIFERENCA=DateDiff("d", DATAIN,DATAFIM) For zz=1 to DATADIFERENCA+1 %> <td align="center" bordercolor="#0080FF"><font face="Arial" color="#0080FF"><strong><small><small><%=LINKP(zz)%><%=SETOR(zz)%></a></small></small></strong></font></td> <% 'response.write SQL1 'response.end Next %> </tr> <% Rs.MoveNext Loop '################################################ rs10.MoveNext wend %> </table> <p align="center"><a href="java script:window.print()"><img src="i_imprima.gif" border="0" WIDTH="56" HEIGHT="14"></a> </p> </body> </html> se eu rodar essa rotina, listando por um único setor.... ela roda normal.... agora eu preciso listar todos os setores, e coloquei dentro de um while... e sempre dá error.... Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis /Novartis/planilhaorev.asp, line 232 que é essa parte Dim SETOR(90) Dim LINKP(90) não sei mas o que faço.... e desde já, obrigado a quem leu até aqui, hehehehheh quem puder me ajudar ficaria muito agradecido!!!! Valeu gagega!!!!!
  4. Coxinha
    Galera, é o seguinte, Eu estou fazendo um e-commerce, e quando o usuario clica para comprar o produto uma condição verifica se ele tem uma session de id, se tive a rotina inclui o produto no id dele, se não tiver a rotina tem de verificar o ultimo id e somar mais um.... não tem como mudar o campo como auto encremento na tabela porque o campo não pode ser pk, porque pode ter mais de um registro com o mesmo id.... eu tentei fazer o seguinte: set rs = abredb.execute("select * from pedidos") if not rs.eof then maior = 0 while not rs.eof if rs("id") > maior then maior = rs("id") end if rs.MoveNext wend response.write "o maior numero é :"& ma end if
  5. Coxinha
    Pessoal, Exemplo tenho duas tabelas: carrinho e produtos na tabela carrinho, tem 3 campos: id, cod_produto, quantidade na tabela produto tem: cod_produto, valor Queria saber o seguinte: montei esses scripts . Minha dúvida é o seguinte: Como vou jogar os resultados dos selects para o asp? Edit: tentei rs.(count(*)), rs.count(*) e não foi... Muito Obrigado, Denis
  6. Coxinha

    Gravar Usando Checkbox?

    pergunta respondeu ao Marc_Dias de Coxinha em ASP

    Com check box é atribuido True e False... é só fazer uma sequencia de if´s if checkbox = true comandos else comandos end if Obs.: só estou mostrando a lógica a lógica
  7. Coxinha
    Marcos, Muito Bom esse grupo... Os scripts deles são muito complexos... está muito difícil entender, porque chama sub em todo lugar, hahahah, e isso porque é muito bem comentado os códigos!!! Mas estou conseguindo criar minha loja... Muito Obrigado
  8. Coxinha

    Estrutura Ecommerce

    pergunta respondeu ao Coxinha de Coxinha em ASP

    Muito Obrigado!!!!
  9. Coxinha

    Estrutura Ecommerce

    uma questão postou Coxinha ASP

    Galera, é o seguinte, Estou começando a criar um ecommerce Não lembro onde, consegui um ecommerce pronto, mas ele não roda nem a pau, e decidi continuar com o meu mesmo... Mas eu nunca fiz um e nem sei como deve ser a estrutura dele, será que alguém pode me dar uma ajuda? Outra coisa, Quando um usuario acesse a loja virtual, ele pode cadastrar produtos no carrinho, e até esse momento ele não fez nenhum login, certo? Como eu gravo esses pedidos? Eu pensei em gravar em uma tabela PEDIDOS com a chave sendo o ip dele, ou por session... Mas como faço por session? Muito Obrigado.
  10. Coxinha
    UPA!!!!
  11. Coxinha
    Tenho sim!!! esse link me retorna uma string.... eu tentei carregar um arquivo txt e ele só carrega no preview também.... hunf =(
  12. Coxinha
    Ainda não consegui fazer rodar no arquivo.swf hunf!!! =(
  13. Coxinha
    eu não tinha pensado nisso... mas tentei e também não funfou... Muito Obrigado
  14. Coxinha
    Então, o endereço não é... se eu colocar um *.txt também dá o mesmo erro... Eu estou usando página virtual do iis. Eu não entendo porque no preview (crtl + enter) roda normal e quando eu tento abrir pelo *.swf não funciona.. Muito Obrigado!
  15. Coxinha
    Opa, foi mal não estava logado,
×
×
  • Criar Novo...