<%@LANGUAGE="VBSCRIPT"%>
<%
if request.form("mode") = "submit" and request.form("txtPrayer") <> "" then
dim Conn, strSql, rs, strMessage
set Conn = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")
Conn.open strConn
strSql = "select prayerTo from tblSetting"
rs.open strSql, Conn
SendEmail trim(request.form("txtName")), rs("prayerTo"), "prayer request from " & trim(request.form("txtName")), "TXT", request.form("txtPrayer")
rs.close : set rs = nothing : Conn.close : set Conn = nothing
response.write "Your prayer request is sent.
"
else
%>
<%
end if
%>
