<%@ Language=VBScript %>
<%
id = Request("id")
Dim rs, idParam
Dim sites_id, collections_id, titles_id, themes_id
Dim left_tab, id, users_id, private_id, question_id, title, message, emotions_id, addtime
Dim strSQL, bAdded
If Len(id) > 4 AND IsNumeric(id) Then idParam = Mid(id, 3, Len(id) - 4)
strMailFromName = Request("sender")
strMailFrom = Request("email")
strMailSubject = Request("subj")
strMailText = Request("message")
addtime = Now
%>
�������� ������
<%
OpenConnection cn, dsn_webdb, login_webdb, passw_webdb
strSQL = "Email_details " & idParam
Set rs = cn.Execute(strSQL)
If NOT rs.EOF Then
named = Trim(rs("firstname")) & " " & Trim(rs("lastname"))
email = Trim(rs("email"))
End If
Set rs = Nothing
Call CloseConnection(cn)
%>
���������� ������: <%=named%>
<%
If strMailText <> "" Then
strMailTo = email
SendMail strMailTo, strMailFrom, strMailFromName, strMailSubject, Replace(ClearTags(strMailText), vbCrLf, " ")
%>