<% Set conn = Server.CreateObject ("ADODB.Connection") conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("bbg/bbg.mdb") conn.Open Function valid_sql(s) For i = 1 To Len(s) If Mid(s, i, 1) = "'" or Mid(s, i, 1) = "*" or Mid(s, i, 1) = "%" Then temp = temp + "" else temp = temp + Mid(s, i, 1) end if Next valid_sql=trim(temp) End Function function sql_filter(str) str = trim(str) if str = "" then exit function str = replace(str,"<","<",1,-1,1) str = replace(str,">",">",1,-1,1) str = replace(str,"""","""",1,-1,1) str = replace(str,"'","""",1,-1,1) str = replace(str,"=","=",1,-1,1) str = replace(str," "," ",1,-1,1) str = replace(str,"select","sel_ect",1,-1,1) str = replace(str,"join","jo_in",1,-1,1) str = replace(str,"union","un_ion",1,-1,1) str = replace(str,"where","wh_ere",1,-1,1) str = replace(str,"insert","ins_ert",1,-1,1) str = replace(str,"delete","del_ete",1,-1,1) str = replace(str,"update","up_date",1,-1,1) str = replace(str,"like","lik_e",1,-1,1) str = replace(str,"drop","dro_p",1,-1,1) str = replace(str,"create","cr_eate",1,-1,1) str = replace(str,"modify","mod_ify",1,-1,1) str = replace(str,"rename","ren_aMe",1,-1,1) str = replace(str,"alter","alt_er",1,-1,1) str = replace(str,"cast","ca_st",1,-1,1) sql_filter = str end function %> African American Wedding Planning - BlackBridalGuide.com
<% set rsbanner = server.CreateObject("adodb.recordset") if Request.ServerVariables("SCRIPT_NAME") = "/black/index.asp" then banner = " select * from banners where page_name = 'Home'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/wedding_gown.asp" then banner = " select * from banners where page_name = 'Wedding_Gowns'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/bridesmaid_gown.asp" then banner = " select * from banners where page_name = 'Bridesmaids_Gown'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/mens_wear.asp" then banner = " select * from banners where page_name = 'Menswear'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/jewelry.asp" then banner = " select * from banners where page_name = 'Jewelry'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/product.asp" then banner = " select * from banners where page_name = 'Wedding_Shop'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/local_vendors.asp" then banner = " select * from banners where page_name = 'Local_Vendors'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/articles.asp" OR Request.ServerVariables("SCRIPT_NAME") = "/black/article_detail.asp" then banner = " select * from banners where page_name = 'Articles'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/poll_result.asp" then banner = " select * from banners where page_name = 'Poll'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/aboutus.asp" then banner = " select * from banners where page_name = 'AboutUs'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/contactus.asp" then banner = " select * from banners where page_name = 'ContactUs'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/disclaimer.asp" then banner = " select * from banners where page_name = 'disclaimer'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/shipping_policy.asp" then banner = " select * from banners where page_name = 'Shipping'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/signup.asp" then banner = " select * from banners where page_name = 'SignUp'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/email_friend.asp" then banner = " select * from banners where page_name = 'Email Friend'" elseif Request.ServerVariables("SCRIPT_NAME") = "/black/products.asp" then if Request.QueryString("categoryid") <> "" then banner = " select * from cart_banners where cat_id = "& Request.QueryString("categoryid") else banner = " select * from cart_banners" end if else banner = " select * from banners where page_name is Null" end if rsbanner.open banner, conn if not rsbanner.eof then %> <%else%> <%end if rsbanner.close set rsbanner = nothing %>
" target="<%=rsbanner("target")%>" >" alt="<%=rsbanner("alt_text")%>" border="0" width="460" height="60"/>
 
Home | About Us | Contact Us |Privacy policy/Terms of use | Shipping Policy | Investment Info
Copyrights © 2009 - All rights reserved by BlackBridalGuide.com Site Developed by: Balianti, Inc