<% if session("userid")="" then response.Redirect("login.asp?loginmsg=Please enter user and password") %>
<%
if Request.Form("submit")<>"" then
if Request.Form("submit")="Send" then
%>
<%
sql = "select * from dealer"
'response.Write("select * from dealer where d_code=" & dcode)
rs.open sql,cn
Dim demail1
Dim demail
if not rs.eof then
do while not rs.eof
demail=rs("d_email")
dim mBody
mBody="
"
mBody=mBody & "
"
mBody=mBody & Request.Form("subject") & "
"
mBody=mBody & "
" & Request.Form("msg") & "
"
mbody=mBody & "
"
set mail1= server.CreateObject("cdonts.newmail")
mail1.from = "Admin - S&T ENGINEERS"
mail1.BodyFormat=0
mail1.MailFormat =0
mail1.To=demail
mail1.subject = "Message from S&T ENGINEERS"
mail1.Body=mBody
mail1.Send
set mail1=nothing
rs.movenext
loop
else
response.Redirect "Dlist.asp?opt=4"
end if
%>
<%
response.Redirect "thankyou.asp"
end if
else
%>
Product Info | Admin Area
<% end if %>