Показать сообщение отдельно
Старый 24.04.2009, 20:42
Azazel7 вне форума Посмотреть профиль Отправить личное сообщение для Azazel7 Найти все сообщения от Azazel7
  № 6  
Ответить с цитированием
Azazel7

Регистрация: Apr 2009
Сообщений: 1
У меня схожая проблема. Установил сайт шаблонный. Изменил дизайн, залил контент. Все вроде бы здорово но вот форма обратной связи отказывается работать. Есть подозрения что код обратной связи присутствует в шаблоне не полностью.

К флешке есть файл contact.asp и contact.php

код из флешки
Код:
rec="ice@template-help.com";
serv="php";

var fields_descriptions= Array ("", 
									Array("t1", "your_name", "Ваше имя:"), 
									Array("t2", "your_email", "E-mail адрес:"),
									Array("t3", "telephone", "Телефон:"),
									Array("t4", "message", "Ваше сообщение:"),
									Array("t5", "field_2", "E-mail:"),
									Array("t6", "field_3", "Address:"),
									Array("t7", "field_4", "fax:")
								);

function reset_txt(name,name2,value) {
		path=eval(_target);
		path[name2]=value;
	
	this[name].onSetFocus=function() {
		path=eval(_target);
		if(path[name2]==value) { path[name2]="";} 
	}
	
	this[name].onKillFocus=function() {
		path=eval(_target);
		if(path[name2]=="") { path[name2]=value;} 
	}
}


for (i=1; i<=fields_descriptions.length; i++) {
	reset_txt("t"+i, fields_descriptions[i][1], fields_descriptions[i][2]);
}
код contact.php
Код:
<center>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p><strong>Ваше сообщение успешно отправлено!</strong></p>
</center>
<script>
	resizeTo(300, 300);
</script>
и код contact.asp
Код:
<%
	for i=1 to 7
	 	message=Request("message")
	next
	 	message=message + Request("message")	
		smtpServer = "mail.l-ka.ru"
		smtpPort = 25
		

		name = Request("Your_Name:")
		Set myMail = CreateObject("CDO.Message") 
		myMail.Subject = "from " & name
		myMail.From = Request("Your_Email:")
		myMail.To = Request("profoto@l-ka.ru")
		myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
		myMail.Configuration.Fields.Update 
		myMail.Send
	
%>
Добавлено через 2 минуты
При отправке формы пишет Ваше сообщение успешно отправлено! но письмо ессно не приходит.