<% if session("userid")="" then response.Redirect("login.asp?loginmsg=Please enter user and password") %>
<%
dcode=Request.QueryString("dcode")
'response.Write(request.QueryString("dcode"))
if Request.Form("submit")<>"" then
if Request.Form("submit")="Send" then
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 = demail
mail1.BodyFormat=0
mail1.MailFormat =0
mail1.To="support@ocs.in"
mail1.subject="Message from Dealer - " & dname
mail1.Body=mBody
mail1.Send
set mail1=nothing
response.Redirect "thankyou.asp"
end if
else
%>
<%
sql = "select * from dealer where d_code=" & dcode
'response.Write("select * from dealer where d_code=" & dcode)
rs.open sql,cn
if not rs.eof then
dname=rs("d_name")
demail=rs("d_email")
end if
end if
%>
Product Info | Admin Area