Это не поддерживается ASP?

[Matew]

Делаю так:

Код: Выделить всё

<td><INPUT name="Submit" type=button onClick="<%Set SmtpRus = Server.CreateObject("smtprus.smtprus.1")
SmtpRus.Host = "smtp" 'Request.Form("host")
SmtpRus.Port = 25 'Request.Form("port")
SmtpRus.From = "Мыло1" 'Request.Form("from")
SmtpRus.To = "Мыло2" 'Request.Form("to")
SmtpRus.AdditionalHeader = "Заявка" 'Request.Form("additionalheader")
SmtpRus.Body = Request.Form("Zayavka")
If Request.Form("Zayavka")<> "" Then
SmtpRus.SendLetter
If SmtpRus.ErrorCode = 0 Then
msgbox "Письмо отправлено!" ' ... ( Сообщение об успешной отсылке )
Else
msgbox SmtpRus.ErrorMessage '( Сообщение об ошибке )
End If
Else
MSgBox "Напишите текст"
end if
%>"  value=Отправить>
</td>


Я не силен, даже слаб в HTML, но по идее это должна быть кнопка, при нажатии на которую отправляется почта. Проверяю на Narod.ru(т.к. не умею настраивать IIS, подскажите как), но там вместо кнопки вот это:
<INPUT name="Submit" type=button onClick="" value=Отправить> и все. Это потомучто Narod.ru не поддерживает ASp или потомучто у меня руки кривые?
З.Ы. Расширение у файла .asp

[Konst_One]

а с чего ты взял, что на народе поддерживается это компонент:
smtprus.smtprus.1

[Matew]

Порылся на форуме, настроил IIS - результат не изменился вместо кнопки выводится <INPUT name="Submit" type=button onClick="" value=Отправить>.
Вопрос, собственно получается такой: как мне правильно выложить запуск скрипта на нажатие кнопки?
[off]
Почему IIS не находит файл по ссылке в субкаталог(типа subcat\file.htm)?
[/off]

[Antonariy]

Видимо ты не понимаешь смысла ASP.
Все, что находится между <%%> выполняется на сервере, и из результирующего html текста вырезается. Вместо этого вставляется то, что находится в Response.Write (если есть). В твоем случае письмо пытается отправиться при загрузке страницы. Чтобы отправить письмо по клику сделай что-то вроде

Код: Выделить всё

<INPUT name="Submit" type=button onClick="javascript:window.location.href='sendmail.asp';" value=Отправить>.

sendmail.asp :

Код: Выделить всё

="<%Set SmtpRus = Server.CreateObject("smtprus.smtprus.1")
SmtpRus.Host = "smtp" 'Request.Form("host")
SmtpRus.Port = 25 'Request.Form("port")
SmtpRus.From = "Мыло1" 'Request.Form("from")
SmtpRus.To = "Мыло2" 'Request.Form("to")
SmtpRus.AdditionalHeader = "Заявка" 'Request.Form("additionalheader")
SmtpRus.Body = Request.Form("Zayavka")
If Request.Form("Zayavka")<> "" Then
SmtpRus.SendLetter
If SmtpRus.ErrorCode = 0 Then
msgbox "Письмо отправлено!" ' ... ( Сообщение об успешной отсылке )
Else
msgbox SmtpRus.ErrorMessage '( Сообщение об ошибке )
End If
Else
MSgBox "Напишите текст"
end if
Response.Redirect "someurl"
%>

[Matew]

Спасибо, разобрался. И про IIS у меня просто кривые руки

[Рома]

Код: Выделить всё

<%
Set SmtpRus = Server.CreateObject("smtprus.smtprus.1")
SmtpRus.Host = "[b]smtp.domain.com[/b]" 'Request.Form("host")
SmtpRus.Port = 25 'Request.Form("port")
SmtpRus.From = Request.Form("from") 'от кого письмо (текстовое поле с аттрибутом name="from"
SmtpRus.To = Request.Form("to") ' кому письмо (текстовое поле с аттрибутом name="to")
SmtpRus.AdditionalHeader = Request.Form("additionalheader")
SmtpRus.Body = Request.Form("Zayavka")
If Request.Form("Zayavka")<> "" Then
SmtpRus.SendLetter
If SmtpRus.ErrorCode = 0 Then
Response.Write("Письмо отправлено!") ' ... ( Сообщение об успешной отсылке )
Else
Response.Write(SmtpRus.ErrorMessage) '( Сообщение об ошибке )
End If
Else
Response.Write("Письмо не отправлено, т.к. текст письма пустой!")
end if
%>
<script language=javascript" type="text/javascript">
<!--
  timer1 = setTimeout("location.href='[b]some_url[/b]'",1000)
-->
</script>

Немного подкрутил код, чтобы заработал ) Форму надо бы сделать поконкретнее, чем кнопка, без полей )

MsgBox в ASP не работает, вместо этого используется либо строка в клиентский скрипт вот так:

Код: Выделить всё

<%
Dim strAlert
strAlert = "Hello, world!"
%>

<script language="javascript" type="text/javascript">
<!--
    alert('<%=strAlert%>');
-->
</script>


либо просто вывод на страницу, вот так:

Код: Выделить всё

<%
Response.Write("Hello World!")
%>