Jump to content
Fórum Script Brasil

Coxinha

Membros
  • Posts

    20
  • Joined

  • Last visited

About Coxinha

Coxinha's Achievements

0

Reputation

  1. 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. porem não fica 100% sem registro
  3. Coxinha

    Error 800a000d

    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. 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. 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. 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. 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

    Muito Obrigado!!!!
  9. Coxinha

    Estrutura Ecommerce

    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. Tenho sim!!! esse link me retorna uma string.... eu tentei carregar um arquivo txt e ele só carrega no preview também.... hunf =(
  11. Ainda não consegui fazer rodar no arquivo.swf hunf!!! =(
  12. eu não tinha pensado nisso... mas tentei e também não funfou... Muito Obrigado
  13. 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!
×
×
  • Create New...