![]() |
|
||||||||||
|
|||||
|
Всем привет) Всем спасибо)
Есть задача через Flash форму отправить письмо на почту. Проблема в том что нет php. Сервер под Windows ... Есть ли какие нибудь мысли возможно ли это сделать)?
__________________
ОСТОРОЖНО!!! Нестандартное мышление |
|
|||||
|
Modus ponens
|
http://www.bytearray.org/?p=27
Это как отправить до сервера ![]() Но на сервере все равно как-то надо будет отправить дальше.
__________________
Hell is the possibility of sanity |
|
|||||
|
wvxvw спасибо крутая ссылка...
Но на данный момент интересует реализация серверная. пробовал через asp но как то непрокатило.... <%
dim themail, thename, themessage, i
'Gets the incoming variables from flash
themail = Request("email_txt")
thesubject = Request("subject_txt")
themessage = Request("message_txt")
'Decalre and create email object
dim objmail
set objmail = Server.CreateObject("CDONTS.Newmail")
'error handler, if error encountered, ignore it and proceed
On Error resume next
'build the email using the variables from flash
objmail.From = themail
objmail.To = "petrashkok@gmail.com"
objmail.Subject = thesubject
objmail.Body = themessage
objmail.Send()
'error handler, if error encountered, ignore it and proceed
On Error resume next
'If any errors were encounter then run this code
If Err.Number <> 0 then
'tells flash ASP failed and terminates the ASP file.
Response.Write "&server_mes=fail"
Response.End
else
'Send message back to flash saying everything was ok.
Response.Write "&server_mes=ok"
End if
%>
__________________
ОСТОРОЖНО!!! Нестандартное мышление |
![]() |
![]() |
Часовой пояс GMT +4, время: 01:46. |
|
|
« Предыдущая тема | Следующая тема » |
|
|