<%
set rs=server.createobject("adodb.recordset")
%>
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if Request.Form("txtemail1")<> "" then
rs.open "select * from reg_advertise where email1='" & Request.Form("txtemail1") & "'",con
if not (rs.bof and rs.eof)then
Response.redirect("advertform.asp?err=y")
end if
rs.close()
end if
if request.form("txtemail2")<>"" then
email2=request.form("txtemail2")
else
email2="n/a"
end if
if request.form("txtcompdes")<>"" then
compdes=request.form("txtcompdes")
else
compdes="n/a"
end if
if request.form("txtadd2")<>"" then
add2=request.form("txtadd2")
else
add2="n/a"
end if
if request.form("txtadd3")<>"" then
add3=request.form("txtadd3")
else
add3="n/a"
end if
if request.form("txtstate")<>"" then
state=request.form("txtstate")
else
state="n/a"
end if
if request.form("txtzip")<>"" then
zip=request.form("txtzip")
else
zip="n/a"
end if
if request.form("txtcompph")<>"" then
compph=request.form("txtcompph")
else
compph="n/a"
end if
if request.form("txtconph")<>"" then
conph=request.form("txtconph")
else
conph="n/a"
end if
if request.form("txtcompfax")<>"" then
compfax=request.form("txtcompfax")
else
compfax="n/a"
end if
if request.form("txtwebsite")<>"" then
website=request.form("txtwebsite")
else
website="n/a"
end if
if request.form("photo1")<>"" then
photo1=request.form("photo1")
else
photo1="default.jpg"
end if
set rsid=server.createobject("adodb.recordset")
if Request.Form("sb_directory")<>"" then
rsid.Open "select name from Directory_Super_cate where id="&Request.Form("sb_directory")&"",con
if not(rsid.BOF and rsid.EOF)then
session("selected_category_by_vendrer")=rsid("name")
session("advertFormCateID")=Request.Form("sb_directory")
end if
rsid.Close()
end if
con.BeginTrans()
con.execute("insert into reg_advertise(category_id,fname,lname,email1,email2,pass,compname,compdes,add1,add2,add3,city,state,zip,country,compony_phone,contact_phone,company_fax,website,logo,added_date)values(" & request.form("sb_directory") & ",'" & request.form("txtfname") & "','" & request.form("txtlname") & "','" & request.form("txtemail1") & "','" & email2 & "','" & request.form("txtpass") & "','" & request.form("txtcompname") & "','" & compdes & "','" & request.form("txtadd1") & "','" & add2 & "','" & add3 & "','" & request.form("txtcity") & "','" & state & "','" & zip & "','" & request.form("txtcountry") & "','" & compph & "','" & conph & "','" & compfax & "','" & website & "','" & photo1 & "','" & date() & "')")
rsid.Open "select max(id) from reg_advertise",con
Session("reg_id")=rsid(0)
rsid.Close()
con.CommitTrans()
set pop=server.createobject("adodb.recordset")
pop.open "select page_name from Directory_Super_cate where id=" & request.form("sb_directory") & "",con
if not(pop.bof and pop.eof)then
if pop("page_name")<>"" then
response.redirect(pop("page_name"))
else
response.redirect("addconfirm.asp?eml=" & request.form("txtemail1") & "")
end if
end if
pop.close
end if
%>
Advertisement form
<%if Request.QueryString("err")="y" then%>
-- We are sorry. This email id is already exist in our system. Please try diffrent.