<%@ Language=VBScript %>
<%
if session("userid")="" then
response.Redirect("login.asp")
end if
%>
<%
select case Request.QueryString("opt")
case "1"
h1="
New Dealer Information Added to List
"
case "2"
h1="
Dealer Information Updated
"
case "3"
h1="
Dealer Information Removed from List
"
case "4"
h1="
Sorry! Your Mail have not been sent
"
end select
cpage=trim(Request.QueryString("cPage"))
if cpage="" then cpage=1
select case Request.Form("dealer")
case "Add new dealer"
cn.Close
set cn=nothing
set rs=nothing
set rs1=nothing
cpage=request("cpage")
Response.Redirect "Dnew.asp?cpage=" & cpage
case "Delete"
for each x in Request.Form
if x="Mid" then
allSelected=trim(Request.Form(x)) & ","
pos=1
do while pos<>0
pos=instr(1,allSelected, ",")
if pos=0 then exit do
var1=cint(left(allSelected, pos-1))
allselected=mid(allSelected, pos+1)
cn.Execute "delete from dealer where d_code=" & var1
loop
end if
next
if Request.Form("mid")="" then
h1="
Select atleast one dealer
"
else
h1="
Selected dealers Deleted
"
end if
case "Send message to all"
cn.Close
set cn=nothing
set rs=nothing
set rs1=nothing
cpage=request("cpage")
Response.Redirect "send_mails.asp?"
end select
%>
Dealer List | Admin Area
<%
select case Request.QueryString("opt")
case "1"
head1="
Delear details added to List
"
case "2"
head1="
Delear details Updated
"
end select
rs.cursorlocation=3
rs.pagesize=20
sql="select * from dealer"
rs.open sql,cn
if not rs.eof then rs.AbsolutePage=cint(cPage)
if rs.EOF then
rs.Close
cn.Close
set cn=nothing
set rs=nothing
%>
<%
Response.End
end if
%>
