<%@ Language=VBScript %>
<%
if session("userid")="" then
response.Redirect("login.asp")
end if
%>
<%
dcode=Request("dcode")
submit=Request("submit")
if submit="" then
sql="select * from dealer where d_code=" & dcode
rs.open sql,cn
if not rs.eof then
dcname=rs("d_cname")
ddname=rs("d_name")
dtype=rs("d_type")
dadd1=rs("d_add1")
dadd2=rs("d_add2")
dpin=rs("d_pin")
dcity=rs("d_city")
dstate=rs("d_state")
dcountry=rs("d_country")
dphno=rs("d_phno")
dcell=rs("d_cell")
demail=rs("d_email")
duid=rs("d_uid")
dpwd=rs("d_pwd")
dstatus=rs("d_status")
end if
rs.Close
set rs=nothing
cn.Close
set cn=nothing
else
dcode=Request("dcode")
if submit="Delete" then
cn.execute "delete from dealer where d_code=" & dcode
set rs=nothing
cn.Close
set cn=nothing
response.Redirect("Dlist.asp?opt=3")
elseif submit="Send Message" then
set rs=nothing
cn.Close
set cn=nothing
response.Redirect("mail.asp?dcode="&dcode)
else
cname=Request("cname")
dname=Request("dname")
dtype=Request("dtype")
add1=Request("add1")
add2=Request("add2")
pin=Request("pin")
city=Request("city")
state1=Request("state")
country=Request("add2")
phno=Request("phno")
cell=Request("cell")
email=Request("email")
uid=Request("uid")
pwd=Request("pwd")
dstatus=request("status")
sql="Update dealer set d_cname='"&cname&"',d_name='"&dname&"',d_type='"&dtype&"',d_add1='"&add1&"',d_add2='"&add2&"',d_pin='"&pin&"',d_city='"&city&"',d_state='"&state1&"',d_country='"&country&"',d_phno='"&phno&"',d_cell='"&cell&"',d_email='"&email&"',d_uid='"&uid&"',d_pwd='"&pwd&"' where d_code="&dcode&""
cn.Execute(sql)
set rs=nothing
cn.Close
set cn=nothing
response.Redirect("Dlist.asp?opt=2")
end if
end if
%>
st
