Marcos-rj

você pode fazer assim: Set Dados=Server.CreateObject("Adodb.connection") Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados/seu_banco.mdb") Conn.open Dados O seu insert da funcionando?

Rickardo segue uns links p/ você estudar: Conexão com Banco de Dados Select Insert Delete Update Paginação ASPBRASIL

Grande, fiz um teste com este script, e só envia de 1 em 1!

afff...valeu andreia! já estava tão de saco cheio, olhei tanto e não vi isso!!! :blink: valeu mesmo, obrigadão! ^_^

Preciso deste select Set Smenu = conexao.execute("SELECT A.*, B.* from SUBSEGMENTOS A, SEGMENTOS B where A.idseg = B.id and A.idseg = "&menu("id") AND A.nome <> 'Todos' ORDER by A.nome ") mas dá erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe line 134, column 140 Se eu coloco assim funciona: Set Smenu = conexao.execute("SELECT A.*, B.* from SUBSEGMENTOS A, SEGMENTOS B where A.idseg = B.id and A.idseg = "&menu("id") ") mas preciso desta linha: preciso que o A.nome seja diferente de todos! alguém dá uma luz?

Tenta assim: Select max(data) from TABELA

usa a que você já estava usando, só chamar corretamente.

Dá uma olhada neste link. Upload sem componentes http://forum.imasters.com.br/index.php?showtopic=164376 ou http://www.freeaspupload.net/

testa aí: eu criei uma pagina chamada galeria_fotos.asp tem só que mudar este nome p/ o que você usa p/ não dar erro. <form name="tumb"> <% Set FSO = Server.CreateObject ( "Scripting.FileSystemObject" ) Set Pasta = FSO.GetFolder ( Server.Mappath("imagens\") ) Set Rs = Server.CreateObject ( "ADODB.RecordSet" ) Rs.Fields.Append "nome", 200, 255 rs.CursorType = 3 Rs.Open For Each Arquivo In Pasta.Files naoimagem = LCase(Right((Arquivo.Name), 4)) If naoimagem = ".jpg" Then Rs.AddNew Rs.Fields("nome").Value = Arquivo.Name End If Next Rs.Movefirst 'CONFIGURAÇÃO PAGINAÇÃO IF Request.QueryString("PN") = "" THEN PaginaCorrente = 1 ELSE PaginaCorrente = Request.QueryString("PN") END IF IF Request.QueryString("intervalo") = "" THEN Intervalo = 10 'Valor Padrão ELSE Intervalo = Request.QueryString("intervalo") END IF Rs.PageSize = CInt(intervalo) TotalPaginas= RS.PageCount TotalRegistros = RS.recordcount IF NOT Rs.Eof THEN Rs.AbsolutePage = CInt(PaginaCorrente) END IF 'FIM CONFIGURAÇÃO PAGINAÇÃO %> <script language="JavaScript" type="text/javascript"> function RedirPagina() { var int = <%=Intervalo%> var page = prompt("Digite uma página entre 1 e <%=rs.pagecount%>","<%=PaginaCorrente+1%>"); if ((page > <%=rs.PageCount%>) || (page < "1")) { alert("Página inexistente!"); page = <%=PaginaCorrente%>; } else if (page==null || page=="") { alert("Vou direcionar para a página 1!"); page = "1"; } window.location.href="galeria_fotos.asp?PN="+page+"&intervalo="+int; } </script> <script LANGUAGE="JavaScript"> <!-- function NewWindow(mypage, myname, w, h, scroll) { var winl = (screen.width - w) / 2; var wint = (screen.height - h) / 2; winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable' win = window.open(mypage, myname, winprops) if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); } } //--> </script> <% DO UNTIL RS.AbsolutePage <> CInt(PaginaCorrente) OR Rs.EOF Response.Write "<table width=""96"" height=""71"" border=""0"" align=""center""><td width=""96""><a href=""imagens/" & rs.fields("nome").value & """ target=""fotos""><img src=""imagens/" & rs.fields("nome").value & """ width=""96"" height=""71""></a></td>" Rs.MoveNext loop %> </form> <table width="78%" border="0" align="center"> <tr> <td align="center"><div align="center"><font face="Verdana" style="font-size: 10pt"><a href="java script:RedirPagina();">Ir pára Página</a></font></div></td> </tr> <tr> <td align="center"><font face="Verdana" style="font-size: 10pt"> <% 'Mostrar Páginas Flag = INT(TotalPaginas / Intervalo) Flag1 = INT(PaginaCorrente / Intervalo) 'Definir página inicial e final PI = Flag1 * Intervalo IF PI = 0 THEN PI = 1 END IF PF = PI + Intervalo - 1 'Link PRIMEIRA Página IF CInt(PaginaCorrente) > 1 THEN Response.Write "<a href=""galeria_fotos.asp?PN=1" & "&intervalo=" & intervalo & """>Primeira</a>&nbsp;" Else Response.Write "<font color=""#ADADAD"">Primeira</font>&nbsp;" END IF 'Colocar << se for preciso IF CInt(PaginaCorrente) > 1 THEN Response.Write "<a href=""galeria_fotos.asp?PN=" & PaginaCorrente-1 & "&intervalo=" & intervalo & """><< Anterior</a>&nbsp;" Else Response.Write "<font color=""#ADADAD"">Anterior</font>&nbsp;" END IF 'Páginas FOR I = PI TO PF IF CInt(I) <= CInt(TotalPaginas) THEN IF CInt(PaginaCorrente) = CInt(I) THEN response.write("<font color=""#ADADAD"">" & I & "</font>") & "&nbsp;" ELSE response.write "<a href=""galeria_fotos.asp?PN=" & I & "&intervalo=" & intervalo & """>" & I & "</a>&nbsp;" END IF END IF NEXT 'Colocar >> se for preciso IF (CInt(PaginaCorrente) < TotalPaginas) THEN IF CInt(PF) <> CInt(TotalPaginas) THEN Response.Write "<a href=""galeria_fotos.asp?PN=" & PaginaCorrente+1 & "&intervalo=" & intervalo & """>Próxima >></a>&nbsp;" END IF Else Response.Write "<font color=""#ADADAD"">Próxima</font>&nbsp;" END IF 'Link Última Página IF (CInt(PaginaCorrente) <> TotalPaginas) THEN IF CInt(PF) <> CInt(TotalPaginas) THEN Response.Write "<a href=""galeria_fotos.asp?PN=" & TotalPaginas & "&intervalo=" & intervalo & """>Última</a>&nbsp;" END IF Else Response.Write "<font color=""#ADADAD"">Última</font>&nbsp;" END IF 'FIM Mostrar Páginas %></font></td> </tr> </table>

Para chamar esta função é assim: <%=formatadata%> eu uso está função, só que eu uso na hora de grava no banco de dados, aí quando puxo não tenho problema.

está tudo funcionando ok? só falta a paginação? Como você criou um recordset fica fácil.

eu conheço este artigo: Criando miniaturas proporcionais http://www.imasters.com.br/artigo/4402/asp..._proporcionais/

Posso estar enganado, mas acho que o kit.net tem formail. se não tiver entra no portal do scriptbrasil e vá em sistema de formulários.

cria um arquivo de conexão e chama por include, é bem melhor.

Acho que você pode fazer isso usando o Replace

não da p/ ver o relatorio, imagem pequena, e você postou sua dúvida no lugar errado, aqui é para postar tutoriais e dicas ASP.

eu conheço este artigo: Criando miniaturas proporcionais http://www.imasters.com.br/artigo/4402/asp..._proporcionais/

type=hidden quer dizer oculto.

beleza, mas eu testei aqui e funciona!

Como é somente para assinatura, uma idéia é criar um formulário com os dados necessários, quando a pessoa avançar, ir p/ uma página de confirmação com um link para impressão do boleto. Qual será o banco? esta é somente uma idéia.

OBS: NECESSÁRIO TER O WINZIP INSTALADO. // criar o backup no disquete procedure TfrmPrincipal.button1Click(Sender: TObject); begin if not FileExists('A:\nul') then // verifica se existe um disco na unidade A: ShowMessage('Insira um disco formatado na unidade A: e efetue o Backup!') // caso não exista mostra a mensagem else begin ShellExecute(0,nil,'winzip32.EXE', '-a a:\backup.zip C:\SCP\tabelas\*.db',nil,sw_show); // existindo o disco então chama o Winzip e começa a compactar dentro do disquete Exit; // fecha o winzip após o términino da compactação end; end; // restaura os arquivos procedure TfrmPrincipal.button2Click(Sender: TObject); begin if not FileExists('A:\nul') then ShowMessage('Insira um disco com o Último Backup na unidade A: e efetue a Restauração!') else begin ShellExecute(0,nil,'winzip32.EXE', '-e a:\backup.zip C:\SCP\copia\',nil,sw_show); Exit; end; end;

valeu, entendi. Muito Obrigado.

tenta assim: página banner.asp <% Sub Rnd_Banner() Dim strSQL Dim strBanners Dim intCounter Dim intID Dim strDisplay Dim strDefault intCounter = 0 strDefault = "default.gif" 'AQUI você COLOCA UM BANNER DEFAULT P/ CASO DA TBLA ESTAR VAZIA! strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("banners.mdb") set conn = server.createobject("adodb.connection") conn.open strconn set rs = server.createobject("adodb.recordset") strSQL = "SELECT * FROM banners ORDER BY ID" rs.open strSQL, conn If not rs.EOF Then strBanners = rs.getrows() rs.movefirst Do While Not rs.EOF intCounter = intCounter + 1 rs.movenext Loop If intCounter < 2 Then strDisplay = "<a href="&strBanners(2,0)&" target=new><img src="&strBanners(1,0)&"></a>" Else Randomize intID = Int(Rnd * intCounter) strDisplay = "<a href="&strBanners(2,intID)&" target=new><img src="&strBanners(1,intID)&"></a>" End If Else strDisplay = "<img src="&strDefault&">" End If rs.close set rs = nothing set conn = nothing Response.Write(strDisplay) End Sub %> você vai chamar esta página por include <!--#INCLUDE FILE="banner.asp"--> onde você quer exibir o banner você coloca: <% Rnd_Banner() %> Ok. qualquer coisa é só postar.

Certo, tambem notei uma coisa, quando eu uso o modal chamo assim: Application.CreateForm(TFCadPF, FCadPF); FCadPF.ShowModal; FreeAndNil(FCadPF) Mas seu eu usar assim mas sem ser ShowModal o forma abre e fecha em seguida! por que? como liberar ele da memoria usando Show?

a propriedade deste filtro não pode ser usada pela tabela detalhes. você está usando uma propriedade que a tabela detalhes não aceita Posta como você está fazendo.