AlexCT

Microsoft VBScript compilation error '800a03ea' Syntax error /alexct/admin/jogosinclui2.asp, line 303 ELSE ^ <% IF enviar <> "true" THEN %> <form method="post" action="jogosinclui2.asp"> ... <% 303 ELSE Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../database/db_jogo.mdb") Conn.Open DSNtest data = day(now)&"/"&month(now)&"/"&year(now) IF npublicar<>"0" THEN npublicar="1" SQL = "INSERT INTO jogos ... %> <% Set RS = Nothing Conn.Close Set Conn = Nothing END IF %>

Tentei, mas sabe quando funciona parcialmente, pois algumas vezes elimina o item outars não, ai vai ver de novo e não eliminou... esta meio confuso.. alguma sugestão

poxa valeu eu colocava as " " mas esquecia do & & ai dava erro

Achei um script de 2 selects, que ao selecionar um item do primeiro, exclui o item do segundo. alguém poderia me ajduar para adaptar para 3 selects atualmente está assim: <select name="estilo1" class="okp" id="estilo1" onChange="NoDupl(this,document.inclui2.estilo2)"> <select name="estilo2" class="okp" id="estilo2" onChange="NoDupl(this,document.inclui2.estilo1)"> script <script LANGUAGE="JavaScript"> <!-- The JavaScript Source!! http://javascript.internet.com --> <!-- Begin var OptLstTxt = new Array; var OptLstVal = new Array; var OptLen = 0; function NoDupl(SelObjFrom, SelObjTo) { var OldToVal = SelObjTo.options[SelObjTo.selectedIndex].value; if (OptLen == 0) { OptLen = SelObjFrom.length; for (var i = 1; i < OptLen; i++) { OptLstTxt[i] = SelObjFrom.options[i].text; OptLstVal[i] = SelObjFrom.options[i].value; } } var j = 1; for (var i = 1; i < OptLen; i++) { if (OptLstVal[i] != SelObjFrom.options[SelObjFrom.selectedIndex].value) { if (j == SelObjTo.length) { SelObjTo.options[j] = new Option(OptLstTxt[i]); } else { SelObjTo.options[j].text = OptLstTxt[i]; } SelObjTo.options[j].value = OptLstVal[i]; if (OptLstVal[i] == OldToVal) { SelObjTo.selectedIndex = j; } j++; } } if (SelObjTo.length > j) SelObjTo.options[(SelObjTo.length - 1)] = null; } // End --> function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function MM_validateForm() { //v4.0 var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments; for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); if (val) { nm=val.name; if ((val=val.value)!="") { if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@'); if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n'; } else if (test!='R') { num = parseFloat(val); if (isNaN(val)) errors+='- '+nm+' must contain a number.\n'; if (test.indexOf('inRange') != -1) { p=test.indexOf(':'); min=test.substring(8,p); max=test.substring(p+1); if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n'; } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; } } if (errors) alert('The following error(s) occurred:\n'+errors); document.MM_returnValue = (errors == ''); } //--> </script> Valeu

tenho uma parte do script que cria DOC da página Como faço para criar o nome do jogo com o código do jogo tipo o id do jogo é 100 EX.: id = RS("id") fica jogo100.doc Como posso fazer isso?

verdade basic usa isso e pascal tb , parce que é para rodar a pagina denovo.. só parece

É interessante esta compactar do BD e estava pensando, uma forma de ficar automatico, é verificar o tamanho do BD? e se chegar a tal tamanho devera compactar Mas alguém sabe como posso obter o tamanho do banco de dados para esta comparação?

o ASP não faz na busca o desempate né, tipo ordenar por id e depois por data faz isso?

Tenho duas duvidas, sobre os termos que estão em negrito e seu significado on error resume next mensasp.SendMail mensagem_erro = "" if err <> 0 Then mensagem_erro = "Problemas ao enviar, por favor tente novamente, erro:" & Err.description Else mensagem = "<B>"&amigo&"</B>, a indicação para o e-mail <B>"&email&"</B>, foi enviada com Sucesso!" end if mensasp = Nothing on error goto 0 --------------------------------------- Err.Clear On Error Resume Next Set objASPMail = Server.CreateObject("SMTPsvg.Mailer") If Err.Number <> 0 Then confirma = TRUE 'não instalado Else confirma = FALSE 'instalado End If

Verdade lembrei deste código, ams tem um porem vou dar um exemplo: alguns itens 10 8 7 6 5 5 5 4 4 3 2 1 1 1 1 1 1 no caso do distinct, ele iria pegar somente o primeiro do item que é repetido e não os 10 mais. Estou certo?

Fim de uma jeiro que esta dandoc erto parcialmente pois eele seleciona os 10 ou 50 itens mas existem valores iguais pois eu gostaria de selecionar os 10 mais, pois não tem critério de desempate , assim ele pegar os 10 com maiores podendo pegar mais registros. ecedendo os 10. Alguma sugestão Fiz assim <% SQLtop10 = "select TOP 10 * from jogos Where permissao='1' ORDER BY consultas DESC" Set RStop10 = Conn.Execute(SQLtop10) DO WHILE NOT RStop10.EOF IF RS2("id")=RStop10("id") THEN RESPONSE.WRITE "<img src=""img/adm_hot.gif"" width=""14"" height=""14"">" RStop10.MoveNext LOOP RStop10.Close Set RStop10 = Nothing SQLtop50 = "select TOP 50 * from jogos Where permissao='1' ORDER BY consultas DESC" Set RStop50 = Conn.Execute(SQLtop50) DO WHILE NOT RStop50.EOF IF RS2("id")=RStop50("id") THEN RESPONSE.WRITE "<img src=""img/mligold.gif"" width=""18"" height=""17"">" RStop50.MoveNext LOOP RStop50.Close Set RStop50 = Nothing %>

eu estava pensando assim mesmo.. em comprar como faço para pegar o vigezimo item ou se for decrescente pegar o primeiro item?

Estou criando um site aonde ele lista um conteudo, e no site existe tb uma página de TOP20 E naquela listagem do conteudo, gostaria que ao lista marca-se o item caso for TOP20, com uma imagem do lado, indicando que aquele item é bem acessado O TOP20 esta feito mas como ao listar irei identificar se o item faz parte do TOP20 para assim adicionar a imagem? alguma sugestões?

eu já tinha pensando nessa forma, pois queria mesmo é não zipar e aquela parada de download automatico quegeralmente tem nos sites de script, que ao acessar o site ele começa o download

e o nowrap ? então aquele outro comando serve trb para não deformar o layout caso tenho algum texto muito grande

Entendo... não da para exigir algo já que é free mesmo assim valeu!

Tenho um link, que o destino é uma imagem, naturalmente que irá abrir a imagem mas gostaria que da vez de abrir a pessoa baixa-se a imagem, é possível fazer isso? que a pessoa clique e faça o download da imagem valeu!

<blockquote></blockquote> nowrap

capitei... fso, mas não por completo, e sim com restrições alguém sabe se existe algum script que obtem essas restrições? então pleo jeito nenhum serve gratis consegue upload

já sim e funcionou, mas e o resto, ele cria apartir de que dados? e para txt é o mesmo jeito?

então isso que não sei porque esta intalado o FSO mas não consigo criar diretorio ou deletar coisas por script mas conseguir criar arquivos WORD e tal então para que posso usar este FSO?

mas você falou que precisa do FSO mas esta descrito File System Object INSTALADO certo? FSO e Objeto FSO são iguais?:

mas eu já fiz o downloads do tópico em DOC, ele cria para download e não no servidor já vi que no servidor suporta WORD e CRIA TXT mas alguém pode dar um hel sobre esses dois?

eu já rodei, este script, foi a primeira coisa que fiz. vou postar o que apareceu ai me digam se suporta o que perguntei e o que precisa! CDONTS Object: Versão: 1.2 INSTALADO ADO DB Object: Versão: 2.7 INSTALADO File System Object INSTALADO ASPMail Object INSTALADO Microsoft XML Engine INSTALADO Microsoft XML HTTP INSTALADO ActiveX Data Object INSTALADO

Não é uma má ideia porque estye forum ele cria um arquivo html e doc do tópico estou querendo transforma em txt e DOC caso não der txt só DOC mesmo mas ando apanhando, pois percebi que o 7host.com aceita FSO