spy-profi
13.02.2008, 05:05
Скачал темплейт - TM-15418 (флеш)...
и вот там есть форма отправки админу мыла..
и вот чёт не роботает...чё я ваще ничего не понял..есть 2 файлы... контакт.рнр и контакт.асп...
В чём дело?
contact.php
<br />
<b>Warning</b>: reset(): Passed variable is not an array or object in <b>/contact.php</b> on line <b>15</b><br />
<br />
<b>Warning</b>: current(): Passed variable is not an array or object in <b>/contact.php</b> on line <b>20</b><br />
No recipient addresses found in header
Your message was successfully sent!<script>
resizeTo(300, 300);
</script>
contact.asp
<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "smtp.mail.ru"
smtpPort = 25
name = Request("Your_Name:")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("Your_Email:")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Письмо www.SPY-profi.net</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 файлы... контакт.рнр и контакт.асп...
В чём дело?
contact.php
<br />
<b>Warning</b>: reset(): Passed variable is not an array or object in <b>/contact.php</b> on line <b>15</b><br />
<br />
<b>Warning</b>: current(): Passed variable is not an array or object in <b>/contact.php</b> on line <b>20</b><br />
No recipient addresses found in header
Your message was successfully sent!<script>
resizeTo(300, 300);
</script>
contact.asp
<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "smtp.mail.ru"
smtpPort = 25
name = Request("Your_Name:")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("Your_Email:")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Письмо www.SPY-profi.net</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
%>
Заранее благодарен!