bareta

basicamente existem diversas maneiras de fazer isso.. usando as paginas de erro do servidor (404), URL amigaveis (isapi rewrite).

da erro porque você tenta colocar condições depois do order by. sql="SELECT * FROM produto ORDER BY importancia" agora se for adicionar mais coisas na sql tem que colocar antes do order by... stsql = "SELECT * FROM produto where 1=1 " if nome <> "" then stsql = stsql & " and nome like '%"&nome&"%'" end if stsql = stsql & " ORDER BY importancia"

http://www.portalmaracaju.com.br/blog/arti...=79&blog=14

mude para cdosys...

1 mude para cdosys 2 verifique se existe valor no campo do e-mail 3

1- não sei ao certo, mais o correto seria a grana voltar ao cliente apos o cancelamneto. 2- a lógica é sua.... vcq sabe o que cada uma faz.... a ideia deve ser algo do tipo gerar um cupom com um numero serial unico, para ser verificado na empresa prestadora na hora do consumo. 3- ou um sistema compartilhado de envio e conferencia dos pagamentos... ou apos confirma;cao existir um admin para a empresa verificar a validade do cupom.

o charset do carrega tem q ser definido no asp se não me angano... response.charset=xxxx da uma procurada por isso ai, que não tenho certeza como escreve

dependendo do codigo ajax que ta usando tem q da um escape nos bagulho... se o [] for um sinal adicional criado no banco.... replace chr(10) posta seu código ai

http://www.portalmaracaju.com.br/blog/arti...uso_do_fso.html

ou usa codificação iso ou utf, so uma delas na gravação e na leitura adicione a codificação na pagina que o ajax acessa pra puxar o retorno.

certo, tudo gira em cima de um ID... baseando-se na ideia que você tem acesso ao banco de dados... pode-se usar um select distinct para pegar cada ID sem repetição e depois inserir registros para cada ID.

o.0 Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd1.mdb") set cons = server.CreateObject("adodb.recordset") cons.open "SELECT Tabela1.id, Tabela1.valor+Tabela2.valor AS Expr1 FROM Tabela1, Tabela2 WHERE Tabela1.id="&id_cliente,Objconn if not cons.eof then valor = cons(Expr1) response.write "R$ "&FormataMoeda(valor) else response.write "Nada encontrado" end if cons.close set cons= nothing

continuo boiando ^^ poe um link pra pagina principal... onclick="'parent.location='principal.htm';" isso ?

acho que tu pode adicionar no google code e passar o endereço do SVN pro pessoal que queira participar.

algo do tipo: SELECT Tabela1.id, Tabela1.valor+Tabela2.valor AS Expr1 FROM Tabela1, Tabela2 WHERE (((Tabela1.id)="&id&"));

movendo PHP

movendo para .net

ai tu tem q contar a palavra.. ^^ uma forma simples é dar um loop no conteudo na hora de exibir... a função peguei pronta em algum lugar... ( não lembro) e também não testei... mais a idéia é essa.... da um split nos espaços e conta o tamanho das palavras, se for maior que o limite poe um espaço ou um br. Function Quebra() dim i, retorno, matriz matriz = split(VarOrdemTXT, " ") retorno = "" for i = 0 to uBound(matriz) do while len(matriz(i)) > 75 retorno = retorno & left(matriz(i),75) & " " matriz(i) = mid(matriz(i), 75 +1) loop retorno = retorno & matriz(i) & chr(32) retorno = Replace(retorno, chr(13), "<br />") next Quebra = retorno End function

se não me engano tu viu o script lá já.... nos suforuns ali de script tem um ótimo modelo.

não entendi nada... poe o código ai ou da uma explica melhor.

tira o LOOP e roda, vou ver alfum arquvo que usa isso... pra ver como ta

if numero>=1 and numero<=15 then tipo="mensal" elseif numero>=16 and numero<=30 then tipo="quinzenal" elseif numero>=31 and numero<=90 then tipo="semana" else tipo="full" end if

<% ' #################################################### ' ############################# funcao que deleta arquivos ' #################################################### Public Sub DeleteFile(ByVal FileName) On Error Resume Next If Mid(FileName, 2, 1) <> ":" Then FileName = Server.MapPath(FileName) End If If Err Then Err.Clear On Error GoTo 0 Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(FileName) Then FSO.DeleteFile FileName End If Set FSO = Nothing End Sub ' #################################################### ' ############################# funcao que deleta arquivos ' #################################################### dim codigo codigo = request("codigo") strquery = "delete * from fotos where codigo="&codigo set objrs = objconn.execute(strquery) ' #################################################### ' ############################# funcao que deleta arquivos ' #################################################### 'provavelmente vai ter q fazer um select pra pegar o nome do arquivo 'ou passa por parametro. call DeleteFile(arquivo) ' #################################################### ' ############################# funcao que deleta arquivos ' #################################################### objconn.close set objrs = nothing set objconn = nothing %>

isso é uma função... para funcionar você tem que chamar ela.. call DeleteFile(Nome_caminho_do_arquivo)

na verdade isso é tão simples... listar algo do banco de dados... as pessoas esquecem de saber como as coisas funcionam antes de querer que funcionem... se o trem ai caium em fotos.asp?msg=28 é porque não tem nada no banco... simples... seguinte... Sql2 = "Select * From fotos where id_evento="&id_evento Set rs2 = Conexao.Execute(Sql2) if rs2.eof then response.write "Não tem nada no banco.... então você não ve nada" else while not rs2.eof then response.write "<img src="""&rs2("foto")&"""/><br>" rs2.movenext wend end if rs2.close set rs2=nothing detalhe o cara que postou isso ai em 2007 falou que era esboço e etc... então ^^ agora uma coisa que não sera possivel é ver foto se continua dando select em tabela de evento sendo que as fotos estão em outra tabela... em uma estrutura simples de 2 tabelas... você usaria um select em cada tabela ou inner join para trazer a combinação desses resultados. A ideia de criar do nada tem essa função de te auxiliar no entendimento da coisa !!!!