Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fernando182

Banco de Dados

Recommended Posts

E ae galera, blza?Gostaria de saber qual erro é esse:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x5d4 Thread 0xa04 DBC 0x21f2f14 Jet'. /banner/banner.asp, line 19

O código completo da pagina banner.asp eh o seguinte:

<%Sub Rnd_Banner()'Criação das variáveisDim strSQLDim strBannersDim intCounterDim intIDDim strDisplayDim strDefault'Os objetos de conexão não são declaradosintCounter = 0strDefault = "Default.swf"'Caminho e detalhes do banco de dadosstrconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../database/banner.mdb")set conn = server.createobject("adodb.connection")conn.open strconnset rs = server.createobject("adodb.recordset")'Cria o SQL necessário para que possa exibir os bannersstrSQL = "SELECT * FROM banners ORDER BY ID"'Abre a conexão com o banco de dadosrs.open strSQL, conn'Verifica quantos banners estão cadastrados no banco de dadosIf not rs.EOF Then strBanners = rs.getrows() rs.movefirst Do While Not rs.EOF intCounter = intCounter + 1 rs.movenext Loop If intCounter < 2 Then 'Se possuir somente um banner, ele é exibido IF strBanners(3,0)="swf" Then strDisplay = "<a href="&strBanners(2,0)&" target=new><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width=468 height=60><param name=movie value='banner/banners/"&strBanners(1,0)&"'><param name=quality value=high></object></a>" 'Código para que o banner seja um link Else strDisplay = "<a href="&strBanners(2,0)&" target=new><img src='banner/banners/"&strBanners(1,0)&"'></a>" End IF Else 'Se possuir mais de 1 banner, eles são exibidos de forma randômica Randomize intID = Int(Rnd * intCounter) IF strBanners(3,intID)="swf" Then strDisplay = "<a href="&strBanners(2,intID)&" target=new><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width=468 height=60><param name=movie value='banner/banners/"&strBanners(1,intID)&"'><param name=quality value=high></object></a>" 'Código para que o banner seja um link Else strDisplay = "<a href="&strBanners(2,intID)&" target=new><img src=banner/banners/"&strBanners(1,intID)&"'></a>" End IF End IfElse 'Se não possuir nenhum banner no Banco de Dados, é exibido um padrão(Default) strDisplay = "<a href='#' target=new><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width=468 height=60><param name=movie value='banner/banners/"&strDefault&"'><param name=quality value=high></object></a>" 'Código para que o banner seja um linkEnd Ifrs.closeset rs = nothingset conn = nothing'É exibido o banner com o link, mas somente se ele não for o banner padrãoResponse.Write(strDisplay)End Sub%><%Rnd_Banner()%>

Por Favor me ajudem http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

veja este link que o rockLoko postou

 

http://www.attention-to-details.com/newslo...for-process.asp

Compartilhar este post


Link para o post
Compartilhar em outros sites

E Ae Brother, cara consegui arrumar, foi um erro mto escroto ehehhe...

Eu tava colocando a pagina e o banco de dados dos banners em pasta errada...hehehe

Mas valew ae

 

[]'s

opa beleza http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.