Ir para conteúdo

POWERED BY:

Arquivado

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

Jão Bosco de barros

error '80004005'

Por , em ASP Clássico

Recommended Posts

Jão Bosco de barros    0

Jão Bosco de barros
Postado

Eaw galera, tudo bom?

 

é o seguinte, aqui na agencia que eu trabalho tem um site muito antigo em ASP

só programo em PHP não entendo absolutamente nada de ASP.

 

esse sistema funcionava direitinho na KingHost, mas o cliente resolveu mudar a hospedagem pra LocalWeb, daqui começou

a aparecer esse erro toda vez que eu vou inserir algo no banco

 

error '80004005'

/gerenciador/admin_noticias_insert.asp, line 162

 

segue o código para análise:

 

<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="ktml2/includes/ktedit/activex.asp"-->
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
 Session.Contents.Remove("MM_Username")
 Session.Contents.Remove("MM_UserAuthorization")
 MM_logoutRedirectPage = "../index.asp"
 ' redirect with URL parameters (remove the "MM_Logoutnow" query param).
 if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
 If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
   MM_newQS = "?"
   For Each Item In Request.QueryString
     If (Item <> "MM_Logoutnow") Then
       If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
       MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
     End If
   Next
   if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
 End If
 Response.Redirect(MM_logoutRedirectPage)
End If
%>
<%
dim include: include=1
     dim useTemplates: useTemplates=1
     dim useIntrospection: useIntrospection=1
     dim KT_display
%>
<!--#include file="conn_faeal.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="bccom.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
 If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
        (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
   MM_grantAccess = true
 End If
End If
If Not MM_grantAccess Then
 MM_qsChar = "?"
 If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
 MM_referrer = Request.ServerVariables("URL")
 if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
 MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
 Response.Redirect(MM_authFailedURL)
End If
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
 MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "frm_noticias_insert") Then

 MM_editConnection = MM_conn_faeal_STRING
 MM_editTable = "tbl_noticias"
 MM_editRedirectUrl = "admin_noticias_master.asp"
 MM_fieldsStr  = "data|value|tema|value|manchete|value|leading|value|texto|value|fonte|value|imagem|value|imagem_Alt|value|Destaque|value"
 MM_columnsStr = "data|',none,NULL|tema|',none,''|manchete|',none,''|leading|',none,''|texto|',none,''|fonte|',none,''|imagem|',none,''|imagem_Alt|',none,''|destaque|',none,''"

 ' create the MM_fields and MM_columns arrays
 MM_fields = Split(MM_fieldsStr, "|")
 MM_columns = Split(MM_columnsStr, "|")

 ' set the form values
 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
   MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
 Next

 ' append the query string to the redirect URL
 If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
   If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
     MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
   Else
     MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
   End If
 End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

 ' create the sql insert statement
 MM_tableValues = ""
 MM_dbValues = ""
 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
   MM_formVal = MM_fields(MM_i+1)
   MM_typeArray = Split(MM_columns(MM_i+1),",")
   MM_delim = MM_typeArray(0)
   If (MM_delim = "none") Then MM_delim = ""
   MM_altVal = MM_typeArray(1)
   If (MM_altVal = "none") Then MM_altVal = ""
   MM_emptyVal = MM_typeArray(2)
   If (MM_emptyVal = "none") Then MM_emptyVal = ""
   If (MM_formVal = "") Then
     MM_formVal = MM_emptyVal
   Else
     If (MM_altVal <> "") Then
       MM_formVal = MM_altVal
     ElseIf (MM_delim = "'") Then  ' escape quotes
       MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
     Else
       MM_formVal = MM_delim + MM_formVal + MM_delim
     End If
   End If
   If (MM_i <> LBound(MM_fields)) Then
     MM_tableValues = MM_tableValues & ","
     MM_dbValues = MM_dbValues & ","
   End If
   MM_tableValues = MM_tableValues & MM_columns(MM_i)
   MM_dbValues = MM_dbValues & MM_formVal
 Next
 MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 If (Not MM_abortEdit) Then
   ' execute the insert
   Set MM_editCmd = Server.CreateObject("ADODB.Command")
   MM_editCmd.ActiveConnection = MM_editConnection
   MM_editCmd.CommandText = MM_editQuery
   MM_editCmd.Execute
   MM_editCmd.ActiveConnection.Close

   If (MM_editRedirectUrl <> "") Then
     Response.Redirect(MM_editRedirectUrl)
   End If
 End If

End If
%>
<%
Dim rs_noticias
Dim rs_noticias_numRows

Set rs_noticias = Server.CreateObject("ADODB.Recordset")
rs_noticias.ActiveConnection = MM_conn_faeal_STRING
rs_noticias.Source = "SELECT * FROM tbl_noticias"
rs_noticias.CursorType = 0
rs_noticias.CursorLocation = 2
rs_noticias.LockType = 1
rs_noticias.Open()

rs_noticias_numRows = 0
%>
<html>
<head>
<title>FAEAL - Federação da Agricultura e Pecuária do Estado de Alagoas: Administração do Site</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--

function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}



//-->
</script>
<meta name="generator" content="Namo WebEditor v5.0(Trial)">
<style type="text/css">
<!--
body {
background-color: #C1C3CC;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url();
}
-->
</style>
<link href="../css/sistema.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 <tr>
   <td bgcolor="#4497E7"><div align="center">
     <table width="700" height="100"  border="0" align="center" cellpadding="0" cellspacing="0" background="../images/sistema.jpg">
       <tr>
         <td width="749" height="100"> </td>
       </tr>
     </table>
   </div></td>
 </tr>
 <tr>
   <td><div align="center">
     <table width="700"  border="0" cellpadding="3" cellspacing="0" bgcolor="#D2D3DB">
       <tr>
         <td width="969"><p align="right" class="texto">[ <a href="admin_index.asp" class="leia_mais">Administração do Site</a> ] - [ <a href="javascript:history.go(-1);" class="leia_mais">Voltar</a><a href="admin_index.asp" class="leia_mais"> </a> ] - [ <a href="<%= MM_Logout %>" class="leia_mais">sair</a> ] </p>
             <div align="left">
               <table width="100%"  border="0" cellspacing="0" cellpadding="6">
                 <tr>
                   <td><p class="barr_titulos">Inserir conteúdo</p>
                       <p><span class="tema5">Atenção:</span><span class="rodape"><br>
                         </span><span class="rodape"><span class="tema5">*</span> Para modificar ou remover, clique em um dos links abaixo: Ao clicar em "apagar", você estará excluindo permanentemente o registro do banco de dados.  <br>
                         <span class="tema5">*</span> A fonte padrão para os textos é: (Arial 11Px)</span></p></td>
                 </tr>
               </table>
           </div></td>
       </tr>
     </table>
   </div></td>
 </tr>
 <tr>
   <td>	  <form ACTION="<%=MM_editAction%>" method="POST" name="frm_noticias_insert" id="frm_noticias_insert">
       <table width="700" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#D2D3DB" bgcolor="#D2D3DB">
         <tr>
           <td align="center" valign="top">              <div align="left"><span class="tema">data:</span><span class="texto3"><br>
               <input name="data" type="text" id="data2" value="<% response.Write(now)%>" size="30">
           </span></div></td>
         </tr>
         <tr>
           <td align="center" valign="top"><div align="left">
             <span class="tema">Tema:</span><br>
             <input name="tema" type="text" id="tema2" size="110">
           </div></td>
         </tr>
         <tr>
           <td align="center" valign="top"><div align="left">
             <span class="tema">Manchete:</span><br>
             <textarea name="manchete" cols="83" rows="3" wrap="virtual" id="textarea2"></textarea>
           </div></td>
         </tr>
         <tr>
           <td align="center" valign="top"><div align="left">
             <span class="tema">Leading:</span><br>
             <textarea name="leading" cols="83" rows="3" wrap="virtual" id="textarea3"></textarea>
           </div></td>
         </tr>
         <tr>
           <td align="center" valign="top"><div align="left">
             <span class="tema">Texto:</span><br>
             <input name="texto" type="hidden" id="texto">
             <%
  KT_display = "Cut,Copy,Paste,Insert Image,Insert Table,Toggle Vis/Invis,Toggle WYSIWYG,Bold,Italic,Underline,Align Left,Align Center,Align Right,Align Justify,Background Color,Foreground Color,Undo,Redo,Bullet List,Numbered List,Indent,Outdent,HR,Font Type,Font Size,Insert Link,SpellCheck,Clean Word,Style List,Introspection,TableEdit"
  call showActivex("texto", 685, 250, false, KT_display, "../ktml2/", "css/faeal.css", "../../../images/", "../../../files/", "English (UK)", -1, "english")
%>
           </div></td>
         </tr>
         <tr>
           <td align="center" valign="top"><div align="left">
             <span class="tema">Fonte:</span><br>
             <input name="fonte" type="text" id="fonte2" size="55">
           </div></td>
         </tr>
         <tr>
           <td align="center" valign="top"><div align="left">
             <span class="tema">Imagem:</span><br>
             <input name="imagem" type="text" id="imagem2" size="55">
           </div></td>
         </tr>
         <tr>
           <td align="center" valign="top"><div align="left">
             <span class="tema">Legenda da foto:</span><br>
             <input name="imagem_Alt" type="text" id="imagem_Alt" value="" size="110">
           </div></td>
         </tr>
         <tr>
           <td align="center" valign="middle"><div align="left">
           <span class="tema">Notícia em Destaque: <br>
           </span></div>              <div align="left">
               <table cellpadding="3" cellspacing="0">
                 <tr>
                   <td width="60"><label> <span class="texto3">
                     <input name="Destaque" type="radio" value="1">
       Sim</span></label></td>
                   <td width="60" class="texto3"><input name="Destaque" type="radio" value="0">
       Não</td>
                 </tr>
               </table>
             </div></td>
         </tr>
         <tr>
           <td align="center" valign="middle"><div align="left">
               <label>
               <input name="Submit" type="submit" class="leia_mais2" value="Inserir conteúdo">
               </label>
               <input type="hidden" name="MM_insert" value="frm_noticias_insert">
           </div></td>
         </tr>
       </table>
    </form></td></tr>
 <tr>
   <td bgcolor="#D9DAE1"><div align="center">
     <table width="700"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#D9DAE1">
       <tr>
         <td width="986" align="left" valign="middle"><div align="right">
             <table width="163"  border="0" cellpadding="3" cellspacing="0">
               <tr>
                 <td width="157" valign="middle"><span class="leia_mais">Bccom -</span> <a href="http://www.bccom.com.br" target="_blank" class="leia_mais">www.bccom.com.br</a></td>
               </tr>
             </table>
         </div></td>
       </tr>
     </table>
   </div></td>
 </tr>
</table>
</body>
</html>
<%
rs_noticias.Close()
Set rs_noticias = Nothing
%>

 

a principio eu pensei que fosse problema de permissão de acesso ao banco, mas ta tudo liberado

meu chefe já ta me cobrando por que tem notícias atrasadas para serem postadas no site

 

obrigado a todos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique as permissões junto ao arquivo e pasta, isso é direitos administrativos, sete também para o usuário

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