Ir para conteúdo

POWERED BY:

Arquivado

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

angus

terraempresas.com.br

Por , em ASP Clássico

Recommended Posts

angus    0

angus
Postado

Uso o bacno de dados msde no plano terraempresas.com.bre importo um arquivo em access por que dá esse erro?Microsoft OLE DB Provider for ODBC Drivers error '80004005' Specified driver could not be loaded due to system error 126 (Microsoft Access Driver (*.mdb)). /noticias/noticia.asp, line 26 ------------------------------ vew.asp ---------------------<!--#include file="../lib/config.asp"--><html><head><title><%=TS%></title><link rel="stylesheet" type="text/css" href="estilo.css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><% id = request.querystring("id") Set rs = Server.CreateObject("ADODB.Recordset") sqlstmt = "select count(id) as total from noticias" rs.Open sqlstmt, Dados, 3, 3 total = rs("total") rs.close() sqlstmt = "SELECT Max(id) as codigo FROM noticias n2 WHERE n2.id < " & request.QueryString("id") rs.Open sqlstmt, Dados, 3, 3 if not rs.eof then anterior = rs("codigo") else anterior = "" end if rs.close() sqlstmt = "SELECT Min(id) as codigo FROM noticias n2 WHERE n2.id > " & request.QueryString("id") rs.Open sqlstmt, Dados, 3, 3 if not rs.eof then proximo = rs("codigo") else proximo = "" end if rs.close() sqlstmt = "SELECT * FROM noticias where id =" & id & " ORDER BY id DESC" rs.Open sqlstmt, Dados, 3, 3 TotalRecs = rs.recordcount date1 = rs("data") id = rs("ID") name1 = rs("titulo") p1= rs("materia") visualiza = rs("acessos") fonte = rs("fonte") description = p1 %><table border="0" cellpadding="4" cellspacing="0" width="495" bordercolor="#000000" align="center"> <tr> <td width="487" align="center" bgcolor="#CCCCCC"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><div align="left"><strong>::: <%=name1%></strong></div></td> </tr> </table> </td> </tr> <tr> <td valign="top" bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>Visualizações: <font color="#FF0000"><%=visualiza%></font></td> </tr> <tr> <td><div align="left"></div></td> </tr> <tr> <td height="296"> <p> <% if rs("foto") = "N" then %> <img src="imagens/semfoto.gif" border="0" align="left" hspace="8" vspace="2"> <% else %> <img src="imagens/<%=rs("foto")%>" border="0" align="left" hspace="8" vspace="2"> <% end if %> <strong>Data:</strong> <%=date1%><br> <br> <%=description%> <br> <br> <br> <font color="#990000">Fonte: </font><a href="<%=fonte%>"><%=fonte%></a> <br> </p> <p><br> </p> <div align="center"> <table width="97%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><div align="left"><strong><font size="2"> <img src="/noticias/imagens/env_not.gif" width="15" height="12"></font></strong><font size="2"><font color="#000000" size="1"><a href="enviar.asp?id=<%=request.querystring("id")%>"> Envie essa notícia para seu amigo</a></font></font></div></td> </tr> <tr> <td align="center"> </td> </tr> <tr> <td align="center"><font color="#000000">Foram encontradas <strong><font color="#FF0000"><%=total%></font></strong> notícias.</font></td> </tr> <tr> </tr> <tr> <td align="center"> </td> </tr> <tr> <td align="center"><div align="center"><b><<< <%if anterior <> "" then %> <a href="view.asp?id=<%=anterior%>">Anterior</a> <%end if%> <%if proximo <> "" then %> <a href="view.asp?id=<%=proximo%>">Próximo</a> <%end if%> >>></b></div></td> </tr> <tr> <td align="center"> </td> </tr> <tr> <td align="center"><div align="left"><strong><font size="1">Veja aqui as Ultimas Notícias</font></strong></div></td> </tr> <tr> <td align="center"><div align="left"><br> <% sqlstmt = "SELECT top 5 * FROM noticias ORDER BY data, id DESC"Set rs = Server.CreateObject("ADODB.Recordset")rs.Open sqlstmt, Dados, 3, 3%> <% do while not rs.eof %> <%=rs("data")%> - <a href="view.asp?id=<%=rs("id")%>"><%=left(rs("titulo"),56) & "..."%></a><br> <%rs.movenext%> <% loop %> </div></td> </tr> </table> </div> </td> </tr> </table></td> </tr> <tr> <td height="29" valign="top"><div align="center"></div></td> </tr></table> </body></html><%rs.close()sqlstmt = "update noticias set acessos = " & (cint(visualiza) + 1) & " where id = " & request.querystring("id")Set rs = Server.CreateObject("ADODB.Recordset")rs.Open sqlstmt, Dados, 3, 3 %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Twunay    1

Twunay
Postado

Olá,Quando trabalhei com o terra, lembro que o banco era um SqlServer e não Access. Ao fazer a importação do banco, a página gera o Source, User ID e Password para que você possa colocar no seu script de conexão.Ex.:"Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=Aron1;Initial Catalog=pubs;User ID=sa;Password=asdasd;" Mas, tente entrar em contato com o suporte do terra empresas...BS,Twunay

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito