<%
if request.form("txtHmember")="1" then
set rs=server.createobject("adodb.recordset")
rs.open "select reg_advertise.fname,reg_advertise.id,Directory_Super_cate.name from reg_advertise,Directory_Super_cate where reg_advertise.email1='" & request.form("txtuname") & "' and reg_advertise.pass='" & request.form("txtpass") & "' and reg_advertise.category_id=Directory_Super_cate.id",con
if not rs.bof and not rs.eof then
session("uname")=rs("fname")
session("auid")=rs("id")
session("vender_category_name")=rs("name")
rs.close
response.redirect("advertInbox.asp")
else
msg=1
end if
rs.close
end if
%>