cyberalexxx

Quanto a "array invisivel" já tentou usar Ubound(variavel) para ver o numero de elementos da array??? Em relação ao link da paginação voce tem que usar if mesmo, exempo: FOR I = 1 TO exe.pagecount STEP 1 if i = variavel 'variavel que armazena o numero da pagina atual Response.write "<A href=" & endereco & "?pagina=" & i & "&f_categoria=" & Server.URLEncode(var_categoria) & "&f_tipo=" & Server.URLEncode(var_tipo) & "&f_local=" & Server.URLEncode(var_local) & " class='link01'>[" & i & "]</a> " else Response.write "<A href=" & endereco & "?pagina=" & i & "&f_categoria=" & Server.URLEncode(var_categoria) & "&f_tipo=" & Server.URLEncode(var_tipo) & "&f_local=" & Server.URLEncode(var_local) & " class='link01'>" & i & "</a> " end if NEXT

Não entendi o q você quer!!!

1 - 2 - 3 Infelizmente nunca utilizei tais métodos. 4 A lógica é essa mesmo 5 com MID você pega os 150 da direita para pegar os 150 da esquerda é na base da matematica tipo: descobre a posição com InStr: vamos supor que o resultado seja 200 então você que exibir do 50 ao 200( ou seja InStr - 150) então é so exibir com MID.

Eu pelo menos não conheço outra forma. Só acho que voce deveria usar LIKE na instrução SQL para facilitar a busca, ou seja não é necessário digitar todo o titulo da noticia por exemplo.

Bom! a decisão é sua. Mais analisando os seus posts, você esta "cuspindo no prato q comeu" Se você critica tanto assim a SB, porque você até se ofereceu para ser moderador? conforme o post abaixo: http://scriptbrasil.com.br/forum/index.php...=0entry184626

Retirado da ajuda do Office:

Como diria padre kevedo "Isto não exxiziste". esse negocio de o q é possível com um q não é possivel com outro, pois isto depende do programador, acredito que não exista algo impossível de ser feito em termos de programação. Não sei o propósito de sua duvida, mais caso seja aprender, caso voce conheca ASP vale a pena o UPGRADE pois conhecimento nunca é demais, além do fato do ASP.NET ser uma linguagem mais nova então pressupoe-se que tera mais vida util no mercado.

O servidor é gratis???

Não consegui entender o q você deseja?? você tem experiencia em ASP??

<% Function Fatorial( num ) 'declara a função Dim i, result 'declara as variaveis i e result result = 1 ' atribui valor inicial 1 a variavel result If( num > 0 ) Then 'caso o numero informado seja maior que 0 execute: For i = num to 1 Step -1 'abre um contador do numero informado até -1 result = result * i ' resultado sera igual result multiplicado pelo valor de i Next ' faz o loop ElseIf( num = 0 ) Then 'caso o valor informado seja menor que zero, atribui valor 0 ao resultado result = 0 Else For i = num To -1 Step +1 'abre um contador do numero informado até -1 result = result * i ' resultado sera igual result multiplicado pelo valor de i Next 'faz o loop End If Fatorial = result 'atribui o sesultado da função para a variavel fatorial End Function 'fim da função

Os 5 sites vão estar no mesmo diretório virtual???

Nos componentes de upload existe um parametro que informa o tamanho máximo para upload. Quanto a extensão, ai é por comparação mesmo, é so pegar o nome do arquivo e usar um Right() para pegar a extensão e comparar.

Realmente a variavel esta sem valor: O ideal é você colocar no link para as paginas 2,3, etc o valor da variavel tipo que é passado através da pagina prinicipal, ex:

você tem que postar o código de criptografia pra ver se alguém consegue interpretar.

Sera que este código serve?? Pois pelo que vi ele exibe apenas 1 registro, é isso? Pelo o que entendi da duvida do AlexCT ele quer mostrar vários registros.

Fica dificil resolver sem ir testando, to postando abaixo um código com paginação funcionando, tente comparar os codigo pra ver o q "ta pegando" <% ' Definindo o caminho do banco de dados caminho = server.mappath("vendas.mdb") ' Fazendo a conexão com o banco de dados (paginacao.mdb) set objconn = Server.CreateObject("ADODB.Connection") DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & caminho objconn.Open DSN ' String SQL para consulta SQL = "select * from vendas" ' Abrindo o registro SET objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objconn,3 ' Se não encontrar nada escreve a mensagem ' Senão lista os registros If objRS.EOF Then Response.Write("Nenhum registro foi encontrado") Else ' Definindo o número de registros por página objRS.PageSize = 1 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If %> <% ' Imprime o número de registros, o total de páginas e a página atual Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf ) Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf ) Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>") %> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") Else Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior") End If ' Lista todas as páginas encontradas if objRs.PageCount < 11 then For i = 1 To objRS.PageCount response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") Next end if if objRs.PageCount > 10 then inicio=pagina fim=pagina + 9 tot = pagina + 9 if tot > ObjRS.PageCount then inicio = pagina-((pagina+9)-ObjRs.PageCount) fim = inicio+9 end if for i = inicio to fim response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") next end if ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < objRS.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>") Else Response.Write("Próxima</B></FONT></center>") End If End If %> <%While Not objRS.EOF AND cont < objRS.PageSize response.write objRS.fields("data") & "<br>" response.write objRS.fields("nome") & "<br>" cont = cont + 1 objRS.MoveNext Wend %> </tr> </table> <% ' Fecha e destroi os objetos RS e conn objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing %>

Verificando o action de seu formulário <form name="form" method="post" action="http://www.scriptgratis.com.br/servicos/formMail/contatoForm.php"> realmente é em PHP, to movendo o tópico pra sessão de PHP.

Posta o código e o erro. Só pra constar, acessei o link q você passou e a pagina de resposta estava no seguinte link. http://www.scriptgratis.com.br/servicos/fo...contatoForm.php percebeu a extensão contatoForm.php Pegunto: O Script realmente é em ASP??

o Servidor WEB é seu ou de terceiros??

KD a linha contendo o código: exe.AbsolutePage = intCurrentPage .? Faz um teste pra mim, informe direto o numero da pagina, tipo: exe.AbsolutePage = 2 ' mostra a pagina 2 só pra ver c da erro.

Como já foi alterado D+ poste todo o script novamente para avaliação.

Voce já postou isso antes!! mesmo não sendo moderador desta seção devo avisar-lhe que isso é flood e não é permitido de acordo com as regras da Script Brasil, tenha paciencia que certamente se algum membro conhecer a solução do seu problema você será ajudado.

tire a comparação deixe só a informação de numero da pagina deve ter tambem um endif em algum lugar pra você apagar

já verificou se o overflow não esta ocorrendo no banco de dados?? o tamanho dos campos estão de acordo??

Respondido em outro tópico: http://scriptbrasil.com.br/forum/index.php...ndpost&p=194534