Não existe "Rename..." no FSO, você deve mover dando um novo nome, veja um exemplo:

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test")
fo.Move("c:\NovoTest")
set fo=nothing
set fs=nothing
%>

Retirado do site da w3schools

Fiz assim..

<%

TMax = 10
Texto = "Se você pensa que caxaça é água, caxaça não é água não, caxaça vem do alambique, e água vem do ribeirão."

x = 10
y = 1

Response.Write Left(Texto,TMax) & "<br>"
Do until x > Len(Texto)
Text = Mid(Texto,x,TMax)
Response.Write Text & "<br>"
Text = ""
y = y + 1
x = y * TMax
Loop

%>

Esse corta independente de a palavra ter mais que o limite.


E bareta, como você testou, por favor informe o erro que poderemos corrigir a função.

Response.Write(QuebrarTexto(RS("texto"),30)))

Não é uma tradução de PHP para ASP, dei uma olhada mas me baseei em outra lógica:

Function QuebrarTexto(Texto, TMax)

	Texto = Split(Texto," ")

	For x = LBound(Texto) to UBound(Texto)

  If Len(Texto(x)) > TMax Then

 	 Ini = Left(Texto(x),TMax) & "<BR>"

 	 Fim = Right(Texto(x), Len(texto(x) - TMax))

 	 While Len(Fim) > TMax

    Ini = Ini & Left(Fim,TMax)

    Fim = Right(Fim, Len(Fim - TMax))

 	 Wend

 	 Texto(x) = Ini & Fim

  End If

	QuebrarTexto = QuebrarTexto & Texto(x) &" "

	Next

QuebrarTexto = Texto

End Function

Verifique se a Pasta e/ou o .mdb não estão como somente leitura.

Seu e-mail é contato@site.com.br? Foi esse que retornou o erro de recebimento, e não de envio do e-mail.

Dá uma olhada no detalhe do email que vc recebeu:
Essa caixa postal excedeu sua cota de espaço em disco

Limpa sua caixa postal. E, se não me engano, se estiver linkado corretamente o css será carregado não?

Para que se pareça, vc vai ter que montar a página dentro da variável, com todos os links e imagens com o endereço absoluto de seu site.

Algo +/- assim que de ser:

SET numeros = new RegExp

   numeros.Pattern = "^[0-9.\-]+$"





IF numeros.Test(vbusca) THEN   'para cpf

incluir = "Select * from tbsocios where cpf = '"&vbusca&"'"

Set RS = conObj.Execute(incluir)

ELSE   'para nome

incluir = "Select * from tbsocios where nome = '"&vnome&"'"

Set RS = conObj.Execute(incluir)

END IF



 If Not RS.EOF Then

  response.write(vbusca)' Exibe o que vc quer do banco

 Else

  response.Write("inexistente")' Não tem nada

 End If

Use o

If Not RS.EOF Then

' Exibe o que vc quer do banco

Else

' Não tem nada

End If

A linha 24 é a da execução do SQL? Se for, o campo CPF no BD é Numero ou texto?

Para CPF, poderia ser usado o IsNumeric, caso fosse digitado só numeros.

Como alternativa um RadioButon para o usuário dizer o que está entrando, e usar regras de digitação e verificação.

Coloca toda a linha ai, se tiver usuário e senha troca por "******" para não sabermos.

Olha, se a pessoa é um bom programador Web, não precisará de softs adicionais aos que vem com o Windows (o bloco de notas é mais ue suficiente, caso se conheça bem o ASP), mas para Banco de Dados, precisará do Access (parte integrante de pacotes do Office) e do SQLServer (tb chamado de MSSql). No minimo adquirir esses.

Para inserir no Banco só tome cuidado com as ' mesmo, para exibir na tela use o Server.HTMLEncode, que irá substituir todos os caracteres especiais pelos códigos interpretados para HTML, isso irá te proteger das tags html.

Cara esses componentes são estritamente essenciais....





Para envio de emails com ASP, seu uso não é para lojas virtuais e sim para qualquer sistema que precise enviar e-mails. Para saber qual usar depende de ser server, qual ele disponibiliza.

Criação e edição de noticias?, paea o caso de criação (sem upload) vc deve pensar na facilidade de utilização.
Como será uma área administrativa on line, isso lhe dará a mobilidade de usar e editar noticias em qualquer PC com acesso a internet, correto? Então o ideal é que sua TextArea seja bem completa, um editor html em html e JavaScript (existem alguns para download), onde vc fará toda a edição, aplicação de formatação, links e coisas afins.

Clica lá, tá na própria página!

Não pode colocar via Post seu Form? Creio que em POST esse limite é maior.

Vc clica no Submit e nada acontece?

No DELETE não se passa quais campos serão deletados, a SQL vai excluir todo o Registro, retire os campos que aparecem depois do DELETE e antes do FROM

Recentemente dando uma passeada descobri o ASC(Var), ele retorna o numero ANSI do primeiro caractere de uma string contida nele, com isso é só criar um Form com um TextÁrea e usá-lo para escrever na tela o valor.

Caso alguém queira testar é só ver esse Link

Além do dito acima, o ";" só deve ser usado no final da SQL. Repare que você usou o ";" como ",". Troque-os e verifique sobre as concatenações.

Olha fiz umas pequenas alterações aqui

<%

dim dataregistro

dsn = "Driver={Microsoft Access Driver (*.mdb)};DBQ= " & Server.MapPath("textos.mdb")

set conexao = createobject("adodb.connection")

conexao.open dsn



sql = "SELECT Assuntos.*, Textos.* FROM assuntos,textos where assuntos.assunto_id = textos.assuntoid order by Textos.data desc, Textos.assuntoid;"

set rs = conexao.execute(sql)



do while not rs.eof



	data = rs("data")

'	assuntoid = rs2("assunto_id")

	assuntoid = rs("assuntoid")

	id = rs("ID")

	titulo = rs("titulo")

'	link = ""& titulo &"</a>"

	assunto = rs2("assunto")

'	link2 = "["& assuntoid &"]</a>"

   

	if dataregistro <> data then

  dataregistro = data

  response.write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td height='20' background='../imagens/fundotopicos.gif' align='center'><b><font class='festa'>"& data &"</font></b></td></tr></table>"

  response.write "<table width='100%' border='0' cellpadding='0' cellspacing='5'><tr><td height='20' align='left'><a class='festa' href='index.asp?acao=filtrar&assuntoid="& assuntoid &"' target='_parent'>["& Assunto &"]</a> <a class='linker' href='ver.asp?id="& id &"'>&nbsp;"& titulo &"</a></td></tr></table>"

	else

  response.write "<table width='100%' border='0' cellpadding='0' cellspacing='5'><tr><td height='20' align='left'><a class='festa' href='index.asp?acao=filtrar&assuntoid="& assuntoid &"' target='_parent'>["& Assunto &"]</a> <a class='linker' href='ver.asp?id="& id &"'>&nbsp;"& titulo &"</a></td></tr></table>"

	end if

	rs.movenext

loop

%>

Testa e retorne informando, OK?

Poste o código de seu ultimo teste, e o erro que dá.