![](https://forum.scriptbrasil.com.br/uploads/set_resources_1/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Posts postados por cyberalexxx
-
-
essa linha em vermelho???
não tem nenhuma validação de fim de recordset!!!
ela tem que estar dentro do loop!!
<%Set DB = server.CreateObject("ADODB.connection")
DB.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database.mdb")
SQLPRIME = "SELECT TOP 1 * FROM noticias ORDER BY id DESC"
Set RSPRIME = DB.execute(SQLPRIME)
chamada = RSPRIME.fields("chamada")
dataextenso = RSPRIME.fields("dataextenso")
autor = RSPRIME.fields("autor")
html = RSPRIME.fields("html")
%>
<%=dataextenso%><br>
<b><%=chamada%></b><br>
<font color=666666><%=autor%></font><br><br>
<%=html%>
<%
RSPRIME.close
set RSPRIME = nothing
SQLNEWS = "select top 6 * from noticias ORDER BY id DESC"
set RSNEWS = DB.execute(SQLNEWS)
If not RSNEWS.eof then
RSNEWS.MoveNext
else
response.write "Nenhuma Noticia encotrada"
response.end
end if
Do while Not RSNEWS.Eof
'exibição
RSNEWS.MoveNext
Loop
%>
<%=RSNEWS.fields("datanumerica")%> - <%=RSNEWS.fields("chamada")%>
-
da pra fazer assim também:
-
Para pegar apenas a ultima noticia:
SQL = "select top 1 * from noticias ORDER BY id DESC"
para visualizar as 5 antes da ultima:SQL = "select top 6 * from noticias ORDER BY id DESC" set rs = conexao.execute(sql) If not rs.eof then Rs.MoveNext else response.write "Nenhuma Noticia encotrada" response.end end if Do while Not Rs.Eof 'exibição Rs.MoveNext Loop
-
Cara, na mosca!!!!
obrigado mais uma vez.....
Fechou
OK!!
Tópico fechado!!
qualquer coisa manda PM pra algum mod abri o tópico!!
-
pode ser problema de case sensitive no if, tenta assim:
Tipo = Request.Form("Tipo")Estado = Request.Form("Estado")
call abreconexao
Set rs = Server.CreateObject("ADODB.Recordset")
if estado<>"Todos" then
SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "
else
SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc "
end if
set rsCad_Empresa=conexao.execute(SQL)
-
O loop aparentemente esta correto, faz isso aki e posta o resultado:
Tipo = Request.Form("Tipo")Estado = Request.Form("Estado")
call abreconexao
Set rs = Server.CreateObject("ADODB.Recordset")
if estado<>"todos" then
SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "
else
SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc "
end if
response.write sql : response.end
set rsCad_Empresa=conexao.execute(SQL)
só pra testar se a busca esta correta
-
como voce seleciona a UF?? é combo box?? se for você pode colocar a opção todos com o value todos então o código ficaria assim:
Tipo = Request.Form("Tipo") Estado = Request.Form("Estado") call abreconexao Set rs = Server.CreateObject("ADODB.Recordset") if estado<>"todos" then SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc " else SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc " end if set rsCad_Empresa=conexao.execute(SQL)
-
Windows MovieMaker (podre)
Final Cut Pro 5 (esse é fera, não sei c tem para PC, conheço pra MAC)
Adobe Premiere
Vegas Video
esses 3 ultimos são excelentes e caros também!!
-
o campo evento_data é do tipo data, portanto o value deve ser especificado entre aspas simples ou #
Resolvido o problema!
ASP sql1 = "Insert Into TBEventos (evento_data) values(#"& FormataData(now()) &"#)"
cyberalexxx, usei o # e deu certinho!!
perdi 2 dias por causa de 2 # ahahahahhhahahahhahahhaah
o bagulho é loco!
obrigado ae galera!
pode fechar o tópico
abraços.
beleza!!!
Tópico Fechado!!!
-
-
Galera, era isso mesmo, eu estava buscando o id de outra tabela, ai não dá mesmo!!!
resolvido o problema.....
Obrigado a todos
Fechado!!
-
Não da pra usar html basico:
<p align="justify" style="text-indent: 50>
-
e as caixas de seleção como eu faço, é só dar um request nelas também?
Sim. mesma coisa!!
-
Obrigado a todos, problema resolvido
OK!!
Tópico Fechado!!
-
Tópico Fechado!!
-
de uma olhada se o nome do campo do formulário esta de acordo com o q voce esta recuperando.
-
ainda não...
agora está fazendo a pesquisa... mas... não esta carregando a variavel...
o valor da variavel é ela mesma...
???????
não estou entendendo....
essa pesquisa é exata???
ou seja o campo em q voce esta pesquisando vai ter o valor exato da variavel pesquisa?? ou só parte??
Se for parte voce deve usar like
-
testei o link e não apareceu nenhum erro!!
-
não!! Funcionou normal... qlqr erro q der eu volto a postar...
Sobre os códigos... entaum... ASCII é, tipo, o código usado no comando Alt + 167, onde 167 é o ASCII de º?
Se for isso... vô começar a procurar... VLW DE NOVO!!!!
é isso mesmo!!
-
-
da algum erro?? qual?? que tipo de campo é char, numerico???
-
Tipo... tenho 2 arquivos
1 com o form e o otro é o q atualiza os dados...
Eu coloquei o replace só no q atualiza e funcionou... você acha q ele pode vir a dar algum erro mais tarde??
E sobre os chars... chr(13) é pra enter... tem algum site com uma lista desses caracteres?
tenta atualizar o registro novamente pra ver o q acontece !!! acho q vai acontecer o q eu postei anteriormente.
quanto aos códigos tente achar uma tabéla de códigos ASCII, aki não tenho nenhuma pra te passar.
-
1) porque q eu tenho q colocar o replace no form de update?
Se voce não colocar o replace no codigo de update, quando voce for alterar a descriçao do produto ela vira da seguinte forma:
Produto tal tal tal <br>descricao do produto 1<br> descricao do produto 2colocando o replace ele iria ficar assim:
Produto tal tal taldescricao do produto 1
descricao do produto 2
-
tire essa linha quebra = split(FilePath,"\")
e substitua a linha nome = quebra(ubound(quebra)) por:
Numero De Dias Do Mês
em ASP
Postado