@AOTE

Есть какая-нибудь прибулда позволяющая из винды отправлять мыло, через Telnet, по заранее описанному сценарию? Telnet даже не обязателен, главное, что бы не нужно было устанавливать всякие Апачи, ИИС, и почтовые клиенты.
Притом реализовать это надо либо batником, либо vbs.

0

@bazile

Попробовал этот пример. У меня ошибок не возникает. Надо попробовать понять что точно скрывается за ошибкой с номером 0x80040211. Для этого возьми приложеный файл 500-100.asp.txt, переименуй его в asp. Выложи его на свой сайт. Затем подключи его в настройках IIS для этого сайта как обработчик ошибки 500;100. Запусти скрипт и посмотри что какую ошибку он тебе выдаст.

Еще пара комментариев по твоему коду:
1. Вместо условия If request("Content_Length")<>0 then лучше писать If "POST"=Request.ServerVariables("HTTP_METHOD") Then. То есть мы явно проверяем что используется метод POST. Это более наглядно по моему.

2. Раз ты используешь метод POST, то для получения данных формы пользуйся коллекцией Request.Form, а не Request. Дело в том что если параметр был передан в строке запроса и в формой (POST), то ты получишь параметр из строки запроса. Это потенциальая дырка в твоем сайте.
Поэтому пишем
.From = Request.Form("femail")
.To = Request.Form("semail")
.Subject = Request.Form("subj")

3. При отправке формы на саму себя удобно использовать такую форму записи
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post
Здесь имя файла подставляется автоматически так, что если ты переименуешь файл с формой, тебе не придется вносить изменений в код. Очень удобно.

0

@MasterDzen

от веть..
применил "комментарии" к файлику и все заработало..
может и правда дело в том, что запрос брался с формы нехорошо
[underline]Спасибо![/underline] пойду покорять просторы интернета ))

зыж а вложенный файлик можно применять для детального отображения тока данной ситуации или впринципе всегда?

0

@bazile

Всегда. Это универсальный обработчик ошибок. Только не надо применять его на рабочем сервере по той простой причине что нельзя показывать всем посетителям своего сайта настоящий текст ошибки. Это подарок хакерам. Модифицируй этот файл так чтобы он отправлял сообщение о ошибке по почте или скидывал в лог, а посетителю показывай текст типа "Извините, на сервере произошла внутренняя ошибка".

0

@MasterDzen

удобно )
а как можно получить путь к дирректории где находится документ?
или может есть список всех ServerVariables'ов?

0

@bazile

Наверняка где-то есть, но я всегда их просто распечатывал
Сткроковыми функциями можно его выделить (получив позицию последнего ) или методом GetParentFolderName объекта Scripting.FileSystemObject.

0

@MasterDzen

эхх..
пробовал найти тему, где говорят про запись файлов, поиск почему то обрывается
ничего не нашлось, потому пишу суда )

можно ли при использовании:

fname = Server.MapPath("/oFice/test") + "file.xml"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
set out = fs.CreateTextFile(fname, TRUE, FALSE)
out.WriteLine(sReg1)
out.close

записывать текст в файл определенной кодировкой?
он пишется в DOS, а надо UTF-8..

0

@bazile

Scripting.FileSystemObject может работать только с Unicode (UTF-16), третий аргумент CreateTextFile как раз и указывает использовать кодировку Unicode или ASCII.

Если нужна именно кодировка utf-8, то пользуйся объектом ADODB.Stream
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Mode = 3 ' adModeReadWrite
adoStream.Type = 2 ' adTypeText
adoStream.Open
adoStream.WriteText("Привет! Hello")
Call adoStream.SaveToFile("test.txt", 2)
adoStream.Close

И пожалуйста, MasterDzen, в будущем для новых вопросов создавай отдельную тему.

0