Aê Civ, usando seu próprio código como exemplo:

somente o último registro, basta não executar dentro de uma instrução while:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
%>
<font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.close
FechaConexao
Set rs = nothing %>

mostrando todos menos o último registro:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
rs.MoveNext
While not rs.EOF %><font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

Você pode mudar a posição do ponteiro dentro dos registros usando as seguintes instruções:
rs.MoveNext = vai para o próximo registro
rs.MovePrevious = volta ao registro anterior
rs.MoveFirst = vai para o primeiro registro
rs.MoveLast = vai para o último registro

QQ dúvida estamos aí, inclusive fiquei até te devendo uma satisfação de outras coisas que tinha me pedido, mas não consegui, desculpa cara!!!

exatamente, um include está interferindo com o outro abra a conexão com o bd antes deles, então retire do primeiro as 3 últimas linhas

rs.close
FechaConexao
Set rs = nothing

e coloque:
rs.MoveFirst

No segundo escreva apenas isto:

<% While not rs.EOF %><font size="2">
<a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

putz, andei feito um louco procurando um código desses uns tempos atrás, valeu yaru

Vou colocar a url pra download direto aki:

http://paginas.terra...ws_completo.zip

Também existe o iphotel, eu hospedo lá e nunca tive problemas.

No site http://www.construin...br/pws/pws.shtm você encontra o pws, e uma matéria sobre o iis que já deve existir no cd de instalação caso seu windows o suporte.

Vejo que está hospedando no brinkster, lá os bancos de dados devem ficar na pasta db, que é a única que tem permissão de escrita.

O brinkster não aceita esse tipo de declaração nas páginas pois pode criar um loop infinito no servidor e talz, mas eles explicam como modificar isso, é só no final da instrução você colocar "On Error GoTo 0", por exemplo:

On Error Resume Next
if blablabla then
blablabla
end if
On Error GoTo 0

Isso tá me parecendo somente permissão de leitura/gravação do arquivo, faça o seguinte, como administrador, clique com o botão direito do mouse sobre a pasta onde está o bd, vá até propriedades, então clique na guia segurança e dê permissão total a todos, mas faça somente na pasta onde está o bd.

QQ coisa estamos aí!!!

Não tenho certeza, mas acho que a definição é IDENTITY, como não conheço bem a sintaxe e aonde estou não posso testar, vou postar aí depois você testa ok?

minha_sql = "CREATE TABLE TESTE(id INT IDENTITY,Idade integer PRIMARY KEY,Nome Text(60));"

encontrei também outra referência, que também não sei se está certa:

minha_sql = "CREATE TABLE TESTE(id INT NOT NULL IDENTITY ,Idade integer PRIMARY KEY,Nome Text(60));"

Bom como você queria um que fosse em ASP, tem um aki também, vou postar só como referência, já que você já conseguiu utilizar este outro:

<%
'FUNÇÃO QUE VALIDA O EMAIL
Function Valida_Email(strEmail)

Dim bIsValid

bIsValid = True

If Len(strEmail) < 5 Then

bIsValid = False

Else

If Instr(1, strEmail, " ") <> 0 Then

bIsValid = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

bIsValid = False

Else

If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then

bIsValid = False

End If

End If

End If

End If

Valida_Email = bIsValid

End Function

para fazer a verificação

if Valida_Email(nomedastrigdeemail) = true then
response.write "email válido"
else
response.write "e-mail inválido"
end if

hehe... posso me meter?
Segue um código legal também:

Esse seu é legal mesmo, já que verifica se o endereço tem outros caracteres inválidos também, tipo * / \ e outros, legal!!!!

Pessoal, alguém sabe se dá pra pegar o conteúdo dos "meus favoritos" do cliente? Mesmo que exista uma caixa de diálogo pra confirmação, ou algo parecido...

Por exemplo... eu tenho em meus favoritos, http://www.wmonline.com.br e http://forum.wmonline.com.br, então uma função que pegue esse conteúdo e mande pra uma caixa de texto, ou algo parecido.

Eu tenho um script em ASP.Net pra upload que roda no brinkster, se servir este eu posso passar, mas se for somente em ASP nunca consegui fazer um script desses de upload sem componente funcionar em um server gratuito.

Bom, eu consegui ver o código dele, agora só estou esperando a resposta, huahuahua...........

É isso aí, não existe nada que você faça em PHP que você não possa fazer em ASP, você pode perfeitamente trabalhar com arquivos de texto, imagens, doc, excel entre outros usando somente ASP.

danilo.max, a forma mais fácil de trabalhar com arquivos de texto é realmente usando filesystemobject.

primeiramente verifique se você está digitando o endereço correto, o brinkster grava cada usuário em um server diferente, por isso os endereços podem variar http://www12.brinkster.com/seusite ou http://www31.brinkster.com/seusite, etc. Se estiver correto verifique se a página inicial está como default.asp ou default.html, que é o padrão para windows, se não for nada disso passe a url pra olharmos.

Cara, hoje eu fiz uma função em JavaScript para meu site, tá bem simples mas funciona com certeza, ela pega a definição de vídeo do cliente e depois coloca o layer "em seu devido lugar", dá uma olhada:

function layer(){
var tela_width,meulayer

//aqui estou pegando a definição do vídeo do cliente e atribuindo a uma variável
tela_width = screen.width

//aqui eu declaro qual o layer será modificado, onde está XXX vc coloca a id de seu layer
meulayer = document.getElementById('XXX')

//lembre-se que aqui somente está atribuido o valor horizontal do layer, caso você precise do valor vertical também o atributo é top no lugar de left
if(tela_width == 1024){
   meulayer.style.left = 855
} else if(tela_width == 1152){
   meulayer.style.left = 935
} else if(tela_width != 800 && tela_width != 640){
   alert("Suas definições de vídeo não permitem que essa página seja corretamente exibida. \n As melhores definições são: \n \t 640X480(pouca definição mas conteúdo intacto) \n \t 800X600(boa visualização) \n \t 1024X768(boa visualização) \n \t 1152X864(média visualização)")
} 

}

depois é só chamar a função em:

<body onLoad="layer()">

pelo q eu entendi vc quer adicionar um site aos favoritos e mais tarde visitá-lo sem entrar na net...
existem vários programas para baixar websites... tente achar no Superdownloads e noBaixaki
se naum for isso, me corrija!!

Na verdade não é bem isso que estou procurando, quero salvar o conteúdo dos meus favoritos do cliente em algum lugar entendeu? Eu até encontrei alguma coisa, mas não estou conseguindo dar partida nisso, vejam o que eu encontrei:

// 'true' indica que os favoritos serão importados do server(o nome do arquivo é bookmark.html.
window.external.ImportExportFavorites(
     true,"http://www.seusite.com.br");

// 'false' indica que os favoritos serão exportados do server(o nome do arquivo é bookmark.html.
window.external.ImportExportFavorites(
     true,"http://www.seusite.com.br");



// Se a string que recebe o endereço estiver vazia uma caixa para procurar o arquivo bookmark.html é aberta
window.external.ImportExportFavorites(false, "");

A partir daí acho que tem uma solução, mas não estou conseguindo pensar, se alguém souber...

xxxxx... q q eh isso.. eaAEHeaHhaeaeh

asp funciona junto com php?

Não na mesma aplicação, mas não entendi o porque da pergunta....!!!???

Cara, realmente o brinkster não possui componentes para upload de arquivo mas tem uma solução é em Asp.Net, com esse código que vou passar você vai conseguir fazer uploads no brinkster, só outra coisa, como a única pasta que tem permissão de gravação é a db, somente lá funcionará esse código, mas dentro dessa pasta você também pode criar outros diretórios que vão possuir também permissão de gravação.

arquivo upload.aspx

<script language="VB" runat="server">

	Sub Upload( Sender As Object, e As System.EventArgs )

  Dim sPath as String
  Dim sFile as String
  Dim colFiles As System.Web.HttpFileCollection   
  Dim i As System.Int32

    sPath = Server.MapPath(".")
      If Right(sPath, 1) <> "\" then sPath = sPath & "\"

    msg.Text=""
    colFiles = System.Web.HttpContext.Current.Request.Files 
    
   Try

  For i = 0 To colFiles.Count - 1 

    sFile = System.IO.Path.GetFileName( colFiles(i).FileName )         
   If sFile <> "" then 	 
    colFiles(i).SaveAs( sPath & sFile )
    msg.Text = msg.Text & "<br>" & sFile & " - <font color=red>Salvo</font>"
   End If

  Next

  Catch Ex as Exception
    msg.Text = msg.Text & "<br>???? " & sFile & " ??,?????: " & Ex.Message

   End Try

   If msg.Text = "" then msg.Text = "<br> - Salvo"

	End Sub

</script>
<html>
<head>
<title>Multiple File Upload Example</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>

      <form enctype="multipart/form-data" runat=server>
          
  <table border="0" cellspacing="0" cellpadding="4" style='border:1 solid #4358BE'>
    <tr>
      <td style='border-bottom:1 solid #4358BE;background-color:#7a96df;color:white'><b>????</b></td>
    </tr>
    <tr>
   <td><input id="file1" type=file runat=server><br>
    <input id="file2" type=file runat=server><br>
    <input id="file3" type=file runat=server><br>
    
      </td>
	</tr>
    <tr>
      <td align=right><asp:button id=Uploadbtn Text="Enviar" OnClick="Upload" width="70px" height="20px" runat=server/></td>
    </tr>
  </table>
  
<asp:label id="msg"  Font-Bold="True" runat=server/>

     </form>

   </body>
</html>

Você pode acrescentar quantos campos quiser, só modificar o id do campo: <input id="file3" type=file runat=server>, por exemplo file4, file5, etc...

E Tarkan, quanto ao FSO, o brinkster aceita, mas também somente na pasta db...

Qualquer dúvida poste aí novamente ok??????????

Oi cinraq, eu uso o windows XP Professional, e eu já tentei isso, o problema é que não aparece nenhuma informação, fica só a primeira opção Internet Information Services sem a possibilidade de expansão , qual será meu problema???

Olha só, não sei se o XP Professional funciona como o Win2000 ( que é o que eu uso), mas se não tem a possibilidade de expansão é porque você está tentando acessar usando um usuário que não é o administrador, tente se logar como administrador e faça novamente, ok??

Aê Edu, o pessoal dessa comunidade tá se organizando para construir um fórum em português, o tópico está pendurado nesse mesmo fórum, só entrar lá e dar suas opiniões e se quiser pode ajudar também. O link é:

http://forum.wmonlin...t=ST&f=5&t=2196

Guilherme o erro tá que acontece é só que o campo de senha tem name=pass, só fazer o seguinte na index2.asp:

password = Request.Form("pass")