Problemas com Cdosys

NaNDa.Net · Janeiro 28, 2011

Olá,

Como sou webdesigner, desenvolvi o site da Pousada Caminho do Sol, recebi o e-mail do servidor LOCAWEB: http://ajuda.locaweb.com.br/pt-br/Cdosys

Gostaria de tirar dúvidas para melhorias de programação de servidor de e-mails para seguir regras de anti-spam.

O servidor é CDONTS.NewMail

Arquivo reservas.asp

Formulário

Nome Completo:

E-Mail:

Endereço:

Cidade/Estado

CEP

País

Telefone

Fax:

Chegada em:

Partida em:

Categoria de Suite:

Acima de 04 anos:

Acima de 12 anos:

Outras Informações:

--------------------------------------------------------------------------------------------------------------------

reservas.asp

[color="#000099"]<script>[/color]
[color="#000099"]function formatar(mascara, documento){[/color]
[color="#000099"]  var i = documento.value.length;[/color]
[color="#000099"]  var saida = mascara.substring(0,1);[/color]
[color="#000099"]  var texto = mascara.substring(i)[/color]

[color="#000099"]  if (texto.substring(0,1) != saida){[/color]
[color="#000099"]	documento.value += texto.substring(0,1);[/color]
[color="#000099"]  }[/color]

[color="#000099"]}[/color]
[color="#000099"]</script>[/color]

[color="#000099"]<script language=JavaScript>[/color]
[color="#000099"]<!--[/color]
[color="#000099"]function submit_onclick(theForm){[/color]
[color="#000099"]	errMsg="";[/color]
[color="#000099"]	valida=true;[/color]
[color="#000099"]	errMsg="";[/color]
[color="#000099"]	valida=true;[/color]
[color="#000099"]	    if (theForm.nome.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo NOME ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} 		[/color]
[color="#000099"]    	if (theForm.email.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo E-MAIL ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} 		[/color]
[color="#000099"]    	if (theForm.termo.value==""){[/color]
[color="#000099"]		errMsg=" Por favor leia e aceite os termos de reserva ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		}[/color]
[color="#000099"]		if (theForm.telefone.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo TELEFONE ";[/color]
[color="#000099"]		valida = false; [/color]
[color="#000099"]		} 	[/color]
[color="#000099"]    	if (theForm.cheg_dia.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo CHEGADA (DIA) ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		}[/color]
[color="#000099"]		if (theForm.cheg_mes.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo CHEGADA (MÊS) ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} [/color]
[color="#000099"]		if (theForm.cheg_ano.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo CHEGADA (ANO) ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} [/color]
[color="#000099"]		if (theForm.part_dia.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo PARTIDA (DIA) ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		}[/color]
[color="#000099"]		if (theForm.part_mes.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preecha o campo PARTIDA (MÊS) ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} [/color]
[color="#000099"]		if (theForm.part_ano.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha o campo PARTIDA (ANO) ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} [/color]
[color="#000099"]	    if (theForm.categoria.value==""){[/color]
[color="#000099"]		errMsg=" Por favor selecione uma das categorias de SUÍTE ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} [/color]
[color="#000099"]	    if (theForm.criancas_04anos.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha a quantidade de crianças ACIMA DE 04 ANOS ";[/color]
[color="#000099"]		valida = false;[/color]
[color="#000099"]		} [/color]
[color="#000099"]	    if (theForm.criancas_12anos.value==""){[/color]
[color="#000099"]		errMsg=" Por favor preencha a quantidade de crianças ACIMA DE 12 ANOS ";[/color]
[color="#000099"]		valida = false;	[/color]
[color="#000099"]		} [/color]


[color="#000099"]	if (valida){[/color]
[color="#000099"]		theForm.target = "_self";[/color]
[color="#000099"]		theForm.action = "reservas_resp.asp";[/color]
[color="#000099"]		theForm.submit();[/color]
[color="#000099"]		return true;[/color]
[color="#000099"]	}else{[/color]
[color="#000099"]		alert(errMsg);[/color]

[color="#000099"]		}[/color]
[color="#000099"]	}[/color]

[color="#000099"]function limpa(form) [/color]
[color="#000099"]{[/color]
[color="#000099"]	form.reset()[/color]
[color="#000099"]} 	[/color]
[color="#000099"]// stop hiding -->[/color]
[color="#000099"]function validaemail(campoemail)[/color]
[color="#000099"]{[/color]
[color="#000099"]	var checkStr = campoemail.value;[/color]
[color="#000099"]	var ix = (checkStr.length - 4)[/color]
[color="#000099"]	var x = AtSignValid = DoublePeriod = PeriodValid = SpaceValid = ExtValid = 0;[/color]
[color="#000099"]	//alert(campoemail.value);[/color]
[color="#000099"]	//alert(checkStr.length);[/color]
[color="#000099"]	for (i = 0; i < checkStr.length; i++) [/color]
[color="#000099"]	{ [/color]
[color="#000099"]		if (checkStr.charAt(i) == "@")[/color]
[color="#000099"]			AtSignValid++; [/color]
[color="#000099"]		else if (checkStr.charAt(i) == ".") [/color]
[color="#000099"]			{[/color]
[color="#000099"]			if (x == (i-1) && i > 1) [/color]
[color="#000099"]				DoublePeriod++; [/color]
[color="#000099"]			else [/color]
[color="#000099"]			{ [/color]
[color="#000099"]				x = i;[/color]
[color="#000099"]				PeriodValid++; [/color]
[color="#000099"]			} [/color]
[color="#000099"]		} [/color]
[color="#000099"]		else if (checkStr.charAt(i) == "" || checkStr.charAt(i) == ";" || checkStr.charAt(i) == ":" || checkStr.charAt(i) == "," || checkStr.charAt(i) == "/")[/color]
[color="#000099"]			SpaceValid ++; [/color]
[color="#000099"]	}[/color]
[color="#000099"]	if (AtSignValid != 1)[/color]
[color="#000099"]		return(false);[/color]
[color="#000099"]	if (PeriodValid == 0)[/color]
[color="#000099"]		return(false);[/color]
[color="#000099"]	if (SpaceValid != 0)[/color]
[color="#000099"]		return(false);[/color]
[color="#000099"]	if (DoublePeriod != 0)[/color]
[color="#000099"]		return(false);[/color]
[color="#000099"]	if (checkStr.length > 120)[/color]
[color="#000099"]		return(false);[/color]
[color="#000099"]	return(true);[/color]
[color="#000099"]}[/color]
[color="#000099"]function vemail(email){[/color]
[color="#000099"]	if (!validaemail(email)) {[/color]
[color="#000099"]		 email.value="";[/color]
[color="#000099"]		 alert("O texto digitado não é um e-mail válido!");[/color]
[color="#000099"]		 email.focus();[/color]
[color="#000099"]		 return false;[/color]
[color="#000099"]	}else[/color]
[color="#000099"]		 return true;[/color]
[color="#000099"]}[/color]
[color="#000099"]function BloqueiaLetras(evento)[/color]
[color="#000099"]{[/color]
[color="#000099"]var tecla;[/color]

[color="#000099"]if(window.event) { // Internet Explorer[/color]
[color="#000099"]  tecla = event.keyCode;[/color]
[color="#000099"]}[/color]
[color="#000099"]else { // Firefox[/color]
[color="#000099"]  tecla = evento.which;[/color]
[color="#000099"]} [/color]

[color="#000099"]  if(tecla >= 48 && tecla <= 57) return true;[/color]
[color="#000099"]   return false;[/color]
[color="#000099"]}[/color]
[color="#000099"]</SCRIPT>[/color]

-------------------------------------------------------------------------------------------

reservas_resp.asp

[color="#3333FF"]<%[/color]
[color="#3333FF"]	nome = Request("nome")[/color]
[color="#3333FF"]	email = Request("email")[/color]
[color="#3333FF"]	endereco = Request("endereco")[/color]
[color="#3333FF"]	cidade = Request("cidade")[/color]
[color="#3333FF"]	uf = Request("uf")[/color]
[color="#3333FF"]	cep = Request("cep")[/color]
[color="#3333FF"]	pais = Request("pais")[/color]
[color="#3333FF"]	telefone = Request("telefone")[/color]
[color="#3333FF"]	fax = Request("fax")[/color]
[color="#3333FF"]	cheg_dia = Request("cheg_dia")[/color]
[color="#3333FF"]	cheg_mes = Request("cheg_mes")[/color]
[color="#3333FF"]	cheg_ano = Request("cheg_ano")[/color]
[color="#3333FF"]	part_dia = Request("part_dia")[/color]
[color="#3333FF"]	part_mes = Request("part_mes")[/color]
[color="#3333FF"]	part_ano = Request("part_ano")[/color]
[color="#3333FF"]	criancas_04anos = Request("criancas_04anos")[/color]
[color="#3333FF"]	criancas_12anos = Request("criancas_12anos")[/color]
[color="#3333FF"]	termo = Request("termo")[/color]
[color="#3333FF"]	mensagem = request("mensagem")[/color]
[color="#3333FF"]	categoria = request("categoria")[/color]

[color="#3333FF"]	partida = part_dia & "/" & part_mes & "/" & part_ano[/color]
[color="#3333FF"]	chegada = cheg_dia & "/" & cheg_mes & "/" & cheg_ano[/color]

[color="#3333FF"]	strMail = "Nome: "&nome&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "E-mail: "&email&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Endereco: "&endereco&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Cidade: "&cidade&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "UF: "&UF&"<br>"	[/color]
[color="#3333FF"]	strMail = strMail & "Cep: "&cep&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Pais: "&pais&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Telefone: "&telefone&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Fax: "&fax&"<br>"	[/color]
[color="#3333FF"]	strMail = strMail & "Chegada: "&Chegada&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Ida: "&partida&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Categoria de Suite: "&categoria&" <br>"[/color]
[color="#3333FF"]	strMail = strMail & "Acima de 04 anos: "&criancas_04anos&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Acima de 12 anos: "&criancas_12anos&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Outras informações: "&mensagem&"<br>"[/color]
[color="#3333FF"]	strMail = strMail & "Li e aceito os termos de reserva e hospedagem."&termo&"<br>"	[/color]

[color="#3333FF"]	Set Mail = Server.CreateObject ("CDONTS.NewMail")[/color]
[color="#3333FF"]	Mail.From = email[/color]
[color="#3333FF"]	Mail.To = "[email="reservas@caminhodosol.com.br"]reservas@caminhodosol.com.br[/email], [email="contato@caminhodosol.com.br"]contato@caminhodosol.com.br[/email]"[/color]
[color="#3333FF"]	Mail.Subject = "Central de Reservas - Caminho do Sol"[/color]
[color="#3333FF"]	Mail.Body = strMail[/color]
[color="#3333FF"]	Mail.BodyFormat = 0[/color]
[color="#3333FF"]	Mail.MailFormat = 0[/color]
[color="#3333FF"]	Mail.Send[/color]


[color="#3333FF"]%>[/color]

Vinicius Ianni · Janeiro 28, 2011

Aparentemente, o codigo está tranquilo.

Ele apresenta algum erro ?

Ou não envia o e-mail ?

xanburzum · Janeiro 29, 2011

para otimizar seu code, você pode:

1. Uso de comentários no código

O uso de comentários em páginas HTML não é algo muito interessante pois aumenta a quantidade de informações que é transferida do Servidor Web para o Browser, e só tem utilidade para os programadores da página. Entretanto, os comentários no código ASP não representam uma mudança significativa na performance das páginas pois são simplesmente ignorados pelo interpretador e não são transferidos para o browser.

2. Scripts muito longos

Obviamente, você pode incluir suas regras de negócio em páginas ASP, pois elas são processadas no Servidor Web. Entretanto, isto pode tornar os seus scripts muito longos.

Não podemos perder de vista que todo código ASP é interpretado linha a linha. Dessa maneira, scripts muito longos podem se tornar muito lentos. Nestes casos, a melhor maneira é usar Componentes que encapsulem as regras de negócio em código compilado.

3. Uso de variáveis globais

Sempre que possível, evite o uso de variáveis globais. As variáveis declaradas dentro de subrotinas ou funções são acessadas mais rapidamente e deixam o código mais limpo e organizado.

4. Tratamento de erro

Tratamento de Erros é essencial em aplicações sérias. Mas existe uma pequena queda na performance das páginas que possuem tratamento de erro. Dessa maneira, o bom senso diz que o tratamento de erro deve ser usado sempre que você não tiver controle sobre os erros que possam acontecer em sua aplicação. Um bom exemplo é quando você usa objetos que acessam outros recursos, tais como ADO ou FileSystem.

5. Uso de transações

O uso de transações (<%@ TRANSACTION = REQUIRED %>) causa uma queda dramática da performance de páginas ASP. Dessa forma, apenas use transações quando duas ou mais operações precisem ser realizadas de uma única vez.

6. Uso de buffer

Você pode determinar que o conteúdo de sua página ASP seja exibido somente depois de todo o processamento da página através da propriedade Response.Buffer = True.

Isto é uma boa prática, pois aumenta a performance de processamento das páginas ASP. Mas em alguns casos, é necessário enviar alguma informação ao cliente durante o processamento das páginas. Nestes casos, use Response.Buffer = False ou use o método Response.Flush para enviar as informações processadas até o momento para o browser.

7. Desabilitar o controle de estado quando possível (Local e Server)

O controle de estado é algo muito interessante que as páginas ASP nos proporcionam. Entretanto, existe uma queda na performance de páginas que fazem uso deste recurso.

Desta maneira, sempre que o controle de estado não se fizer necessário em uma página, use a seguinte instrução para desabilitá-lo: <%@ENABLESESSIONSTATE = FALSE %>.

Se nenhuma das páginas de seu site fizer uso de controle de estado, você pode configurar diretamente nas propriedades do site. Para isto, selecione a caixa de diálogo Properties do site em questão. Em seguida, selecione o botão Configuration na aba Home Directory. Desmarque, então, a opção enable session state em App options.

8. Uso de arrays dinâmicos

O uso da instrução Redim nos economiza um pouco de memória e a preocupação de estourar o número limite de elementos dos arrays em nossos códigos. Entretanto, o uso de Redim provoca uma queda na performance. O ideal é usar a instrução Dim já com a quantidade de elementos que será usada. Mesmo nos casos em que você não sabe a quantidade exata, o uso de uma ordem de grandeza, com o risco de ocupar alguns espaços desnecessários da memória, compensa em função da velocidade.

9. Uso da propriedade IsClientConnected

Sempre que sua página ASP tiver um longo processamento, use o método Response.IsClientConnected para verificar se o cliente ainda está conectado. Caso contrário, você poderá abortar o processamento evitando, assim, o consumo desnecessário de recursos do servidor.

10. Uso de índices

Sempre que possível, faça uso de índices em seus bancos de dados. Os índices aumentam incrivelmente a performance de consultas e stored procedures acessadas via ADO em páginas ASP. O uso de índices é recomendado principalmente se você estiver usando o SQL Server.

11. Retornando apenas o necessário

Certifique-se que suas consultas estão retornando apenas os campos necessários. Nos casos de consultas que retornam muitos registros, tente paginar a consulta de forma que ela retorne apenas alguns registros de cada vez. Isto poderá aumentar bastante a performance de suas páginas ASP.

12. Armazenando Connections ADO em variáveis de aplicação ou de sessão

Jamais armazene objetos Connection em variáveis de Aplicação ou de Sessão. O ADO já possui um mecanismo chamado pooling que otimiza o uso de instâncias de conexões. Além do mais, não é uma boa idéia armazenar instâncias de objetos em variáveis de Sessão.

13. Instancie suas conexões diretamente na página em questão e não esqueça de atribuir Nothing a elas quando terminar o uso.

14. Fechar explicitamente Recordsets e Connections

Tanto objetos Recordset como Connection devem ser fechados explicitamente através do método Close assim que termine o seu uso. Desta forma, você os disponibiliza para o pooling do ADO.

15. Reutilização de Recordsets e Commands

Evite a reutilização de objetos Recordset e Command. Isto não necessariamente irá aumentar a performance de suas aplicações, mas sua aplicação ficará mais clara e mais fácil de dar manutenção.

16. Utilizando o tipo de cursor (Cursor Type) e o tipo de bloqueio (Lock Type) mais eficientes

Use sempre o tipo de cursor e o tipo de bloqueio mais simples para a tarefa que você deseja realizar.

17. Uso de GetRows

O método GetRows atribui todo o conteúdo de um Recordset para um vetor bidimensional, cuja primeira dimensão representa os campos e a segunda representa os registros. Logo em seguida, o Recordset pode ser fechado. O uso de GetRows aumenta muito a performance de páginas ASP:

...

If objRS.EOF Then

Response.Write ("Não foram encontrados registros.")

objRS.Close

Set objRS = Nothing

Else

Dim arrRS

arrRS = objRS.GetRows

objRS.Close

Set objRS = Nothing

Dim NumRegistros

Dim NumCampos

Dim RegistroAtual

Dim CampoAtual

NumCampos = Ubound(arrRS, 1)

NumRegistros = Ubound(arrRS, 2)

Response.Write "<TABLE>"

For RegistroAtual = 0 To NumRegistros

Response.Write "<TR>"

For CampoAtual = 0 To NumCampos

Response.Write "<TD>" & arrRS(CampoAtual, RegistroAtual) & Ä"</TD>"

End If

...

18. Conexões sem DSN

As conexões sem DSN normalmente são mais rápidas que as conexões usando DSN de sistema, que por sua vez são mais rápidas que as conexões usando DSN de arquivo.

As conexões em DSN são aquelas cujos parâmetros de conexão são passados diretamente no momento da criação da conexão.

19. Uso do Access

Se você estiver usando o Access como base de dados, não espere grandes ganhos de performance já que ele é um banco de dados baseado em arquivo e não é cliente servidor.

20. Uso do Provider OLEDB SQL (SQLOLEDB)

Se você estiver usando o SQL Server, use o provider SQLOLEDB para aumentar a performance de sua aplicação.

21. Uso do arquivo ADOVBS.inc

Evite o uso do arquivo ADOVBS.inc que contém as declarações das constantes usadas pelo ADO. Ao invés disso, declare apenas as constantes que você irá usar ou coloque a seguinte referência em seu arquivo global.asa:

<!–METADATA TYPE="typelib" FILE="c:\arquivos de programas\arquivos comuns\system\ado\msado15.dll" NAME="ADODB Type Library" –>

Ou:

<!–METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4″ NAME="ADODB Type Library" –>

Ou uma versão superior.

22. Uso de um objeto Connection separado quando trabalhar com Recordsets

Se você estiver usando um único Recordset, passe a string de conexão diretamente para a propriedade ActiveConnection:

objRS.ActiveConnection = Application("ConexaoString")

Quando você estiver utilizando vários Recordsets, crie um objeto Connection e use-o na propriedade Active Connection:

...

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open Application("ConexaoString")

Dim intContador

For intContador = 1 To 10

Set objRS = Server.CreateObject("ADODB.Recordset")

Set objRS.ActiveConnection = objConnection

objRS.CursorType = 0 ‘adOpenForwardOnly

objRS.LockType = 1 ‘adLockReadOnly

objRS.Open Application("SQL")

If objRS.EOF Then

Response.Write "Não Foraam Encontrados Registros"

Else

‘Escreve o Conteúdo

...

End If

objRS.Close

Set objRS = Nothing

Set objConn = Nothing

...

Conclusão

O ganho de performance de cada um dos itens abordados pode não ser significante quando vistos isoladamente. Mas o uso conjunto dessas dicas pode trazer um aumento expressivo na performance de suas aplicações ASP.

fonte:http://www.htmlstaff.org/ver.php?id=2738

NaNDa.Net · Janeiro 29, 2011

Aparentemente, o codigo está tranquilo.

Ele apresenta algum erro ?

Ou não envia o e-mail ?

Sim, o código estava certo, mas como o site estava hospedado na Locaweb e mudaram as regras, bloquearam os formulários e pediram correção de código devido ao regra anti-spam.

Me mandaram o e-mail com link: http://ajuda.locaweb...br/pt-br/Cdosys e pediram para eu usar com FROM como uso obrigatório.

Como não saco nada de ASP, sou apenas webdesigner e necessito ajuda...

Obrigada!

xanburzum · Janeiro 29, 2011

segue um dos exemplos que ela mesma forneceu na página, ao invés de usar CDONTS, use o CDOSYS, que é o sucessor do CDONTS.

NaNDa.Net · Fevereiro 1, 2011

segue um dos exemplos que ela mesma forneceu na página, ao invés de usar CDONTS, use o CDOSYS, que é o sucessor do CDONTS.

Olha, eu até tentei reprogramar e não tive sucesso. Pois o formulário é criado em javascript nos campos e para enviar, utiliza asp.

Segue o site: http://caminhodosol.com.br/brazilian/reservas_bkp.asp

http://caminhodosol.com.br/brazilian/reservas_resp.asp

Tem como me dar referencia? Realmente não entendo bem de programação pois foi programado por outra pessoa.

segue um dos exemplos que ela mesma forneceu na página, ao invés de usar CDONTS, use o CDOSYS, que é o sucessor do CDONTS.

Olha, eu até tentei reprogramar e não tive sucesso. Pois o formulário é criado em javascript nos campos e para enviar, utiliza asp.

Segue o site: http://caminhodosol.com.br/brazilian/reservas_bkp.asp

http://caminhodosol.com.br/brazilian/reservas_resp.asp

Tem como me dar referencia? Realmente não entendo bem de programação pois foi programado por outra pessoa.

Entrar

Arquivado

Problemas com Cdosys

Recommended Posts

NaNDa.Net 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

NaNDa.Net 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

NaNDa.Net 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante