bareta

e também colocar titulo no tópico..... Set ObjRS = Server.CreateObject("ADODB.Recordset") ComandoSQL = "INSERT INTO tb_cadastro_campanhas (cidades_envio)" if str_cidades_envio <> "" Then Dim arraycidade arraycidade = split(str_cidades_envio,",",-1,1) For i = LBound(arraycidade) To UBound (arraycidade) if i <> UBound (arraycidade) Then separador = "," Else separador = "" End if if i > 0 Then junta5 = junta5 &"'"& mid(arraycidade(i),1) &"'"& separador Else junta5 = junta5 &"'"& arraycidade(i) &"'"& separador End if Next ComandoSQL = ComandoSQL & " VALUES ('"& junta5 &"')" End if response.write ComandoSQL response.end Set ObjRS = ObjCon.Execute(ComandoSQL) Response.write junta5 analisa o que vai ser escrito ai para entender o q ele tenta processar...

vamos lá <% if session("login")<> true then response.write "<script>parent.location.href='default.asp';</script>" response.end end if %> se continuar o problema rode o codigo <% session.Abandon() %>

veja o seguinte se você comparar dia=dia igaul tava querendo mude para where Day(data) ---> substitua o day(data) pelo nome do campo data (data_cad)... ai faz um dateadd para compararr com um dia anterior where data="#&datediff(,,)#&".....

o codigo que eu fiz para funcionar na tabela do cadastro você deve ter 3 campos de tipo numerico para gravar as datas dia / mes / ano - cada um sendo uma coluna...

to fechando o tópico... qualquer coisa abra un novo...

adicione o mes e o ano na sua comparação mesmo que em campos separados <% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.open ConnectString set rs1 = server.CreateObject("ADODB.RecordSet") set rs2 = server.CreateObject("ADODB.RecordSet") rs1.open "select count(*) as Ontem from Users where Dia = "& Day(Now)-1&" and mes="&month(now)&" and ano="&year(now) , conexao rs2.open "select count(*) as Hoje from Users where Dia= "& Day(Now)&" and mes="&month(now)&" and ano="&year(now) , conexao totOntem = rs1("Ontem") totHoje = rs2("Hoje") %> - Hoje: <B><%=totHoje%></B> - Ontem: <B><%=totOntem%>

para parar de complicações tem um tópico meu na seção de tutoriais ou codigos prontos sobre select randomico...

uai... aqui acabei d baixar ele... ´só demora pacas pra começar...

http://sourceforge.net/project/downloading...Keditor_2.6.zip

ju recomendo o seguinte FCKEDITOR ou WEBWIZGUIDE sendo o 1 de mais facil e melhor utilização... dgita fck no google que aparece o site, porque eu esqueci... totalmente free e muito bom.

ihaiosiushdsiudhusiaduiashdi pedir tudo pronto é mais facil ainda...!!! humildade e educação não faz mal não!!! use o google e leia a documentação do componente... tem tudo lá... filePath= Server.MapPath("upload") objUpload.Save filePath cada um q me aparece!!!

na verdade o erro é o seguinte... você roda isso na tua maquina em access funciona, so que quando cai no datacenter americano inverte... e creuuuuuuuuuuuuu então poe tudo as data em formato americano e converte só na exibição da página...

?? <%@ Language=VBScript %> <% Response.Buffer = true on error resume next dim objUpload 'instance of Uplaod control dim strMessage 'stores success/failure message sent back to main.asp 'create an instance of the Upload Control and trap for object creation failure set objUpload = server.CreateObject("Dundas.Upload.2") if err.number <> 0 then Response.Redirect "main.asp?Message=" & err.description end if 'set maximum file size allowed to approx. 1 MBytes objUpload.MaxFileSize = 2000000 'save all uploaded form data to memory. Note that this also populates the Files and ' Form collections with ALL uploaded form data 'objUpload.Save "repository" filePath= Server.MapPath("upload") objUpload.Save filePath 'now trap for success/failure of operation, and also use the control's Form collection ' to retrieve the name entered by the user so we can send his/her name back to main.asp dim temp if IsEmpty(objUpload.Form("txtName")) = false then temp = " " if err.number <> 0 then strMessage = "Sorry " & objUpload.Form("txtName") & temp & "but the following error occurred: " & err.description & filePath else strMessage = "The upload operation was successfully performed" & temp & objUpload.Form("txtName") & "." end if 'now use a response.redirect to get user back to main.asp Response.Redirect "main.asp?Message=" & strMessage 'release resources set objUpload = nothing %>

fechado e continua no outro tópico...

este erro calareamento é permisssão Tipo de erro: Microsoft JET Database Engine (0x80004005) A operação deve usar uma consulta atualizável. /emp/so/CS/gravar.asp, line 13 tem um tópico pendurado ai de permissões

quer pronto ou quer desenvolver?

utilize alguns selects e querystrings que é mole mole. em uma pagina você exibe as categorias com select e linka elas <a href="pagina.asp?categoria=<%=rs("id_cat")%>"><%=rs("cate")%></a> envia o id da categoria pelo link pra outra pagina ai lá você resgata o id e joga no select id=request.querystring("categoria")

visualize a documentação do dundas

a questão é: você terá 2 tabelas para que??? 1 para cadastro dos clientes 2 para cadastro de prestações pagas e não pagas... se forem mensalidades ai, você tem q fazer ele proprio cadastrar novas parcelas em um ponto de acesso comun... no login do sistema...

http://www.aspjpeg.com/manual_02.html .. jpeg.PreserveAspectRatio = True If jpeg.OriginalWidth > jpeg.OriginalHeight Then jpeg.Width = L Else jpeg.Height = L End If ... já uso ele a algum tempo na minha galeria de fotos... ótimo.. mais eu não salvo as thumbs, so crio a visualização...

para você fazer mais facil use 2 selects... um exemplo, você tem o id da categoria e quer exibir sub itens dela. sql="select * from tabela where id="&id set rs=conn.execute(sql) if not rs.eof then while not rs.eof sql="select * from tabela where categoria_id="&rs("id_categoria") set rs1=conn.execute(sql) ..... rs.movenext wend end if rs.close set rs=nothing de forma simples e eficaz...

javascript, pegue o codigo fonte da página e copie os códigos.

no meu modo estas datas deveriam ficar em uma tabela separada id_cliente - dia - mes - ano - pago (tipo sim /não) ai faz o filtro verificando se ta pago ou não ... where pago=false ... datainstalacao=01/01/2008 sql="select * from tabela where pago=false and mes between "&cint(month(datainstalacao))&" and "&cint(month(now))&" and ano="&year(datainstalacao) set rs=conn.execute(sql) if rs.eof then response.write "Nenhuma parcela vencida" else response.write "Parcelas vencidas :<br>" while not rs.eof response.write rs("dia")&rs("mes")&rs("ano")&"<br>" rs.movenext wend end if rs.close set rs=nothing tendeu + ou - a ideia?

exclui o tópico errado... to colocando o post doi cybertrax aqui... para add respostas ai.. clicar no botão responder fazendo um favor, e não novo tópico.

e o que isso tem a ver com AI? basicamente um sistema de busca usa uma informação que possa vir do usuario ou algum link do site e em seguida processa esses dados em um sistema de comparação pra trazer o que encontrar pelo site... basicamente é isso...