publicação

[hunger 0]

Fala comunidade...pela pergunta vcs ja vao perceber q nao manjo disso aqui.mas é o seguinte... fiz um sistema de noticias q aqui no micro está funcionando perfeitamente... cadastra, altera e exclui itens no banco de dados, etc.só q agora tenho q jogar isso na internet....pra realmente funcionar. e nada funciona!!! deduzi q preciso alterar alguns caminhos.... correto?fico no aguardo, agradeço desde já.abço,Marcos Hunger.

[Salgado 4]

Normalmente sim, os caminhos para o BD devem ser alterados. Poste ai a sua conexão ao BD.

[hunger 0]

valeu pela ajuda!MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\noticias\BancoNoticias.mdb"

[Mário Monteiro 179]

[tr][/tr][tr][/tr]

ASP	MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\noticias\BancoNoticias.mdb"

 

muda para

 

[tr][/tr][tr][/tr]

ASP	MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("noticias\BancoNoticias.mdb")

[hunger 0]

ok...obrigado!!agora me diz, provavelmente só terei q mudar este caminho, ou mais alguma coisa nas outras paginas?

[Mário Monteiro 179]

a principio isto basta se der outro erro você grita

[hunger 0]

opa...valeu....pode deixar q vou gritar sim.... estava berrando aqui sozinho, agora compartilho com quem entende....rsabço,marcos hunger.

[hunger 0]

bom, na verdade nao está passando da primeira página! rs

 

A página de cadastro abre perfeitamente, mas qdo mando cadastrar então alguma matéria, nao abre página nenhuma.

 

imagino q precise ver o código ne, então la vai:

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/Conexao.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "form1") Then  MM_editConnection = MM_Conexao_STRING  MM_editTable = "Noticias"  MM_editRedirectUrl = "Lista.asp"  MM_fieldsStr  = "TITULO_NOTICIA|value|TEXTO_NOTICIA|value|AUTOR|value|FONTE|value|DATA|value|IMG|value|STATUS|value"  MM_columnsStr = "TITULO_NOTICIA|',none,''|TEXTO_NOTICIA|',none,''|AUTOR|',none,''|FONTE|',none,''|DATA|',none,''|IMG|',none,''|STATUS|',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 IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (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 IfEnd If%><title>Untitled</title><form name="form1" method="POST" action="<%=MM_editAction%>">  <table width="50%" border="0">    <tr>       <td colspan="2"><div align="center"><strong><font color="#006666" face="Verdana">Cadastro           de notícias</font></strong></div></td>    </tr>    <tr>       <td> </td>      <td> </td>    </tr>    <tr>       <td width="17%"> <div align="right"><font size="2" face="Verdana">Título:</font></div></td>      <td width="83%"> <div align="left">           <input name="TITULO_NOTICIA" type="text" id="TITULO_NOTICIA" size="50">        </div></td>    </tr>    <tr>       <td> <div align="right"><font size="2" face="Verdana">Notícia<font color="#FF0000">*</font>:</font></div></td>      <td> <div align="left">           <textarea name="TEXTO_NOTICIA" cols="38" rows="5" id="TEXTO_NOTICIA"></textarea>        </div></td>    </tr>    <tr>       <td> <div align="right"><font size="2" face="Verdana">Autor:</font></div></td>      <td> <div align="left">           <input name="AUTOR" type="text" id="AUTOR" size="50">        </div></td>    </tr>    <tr>       <td> <div align="right"><font size="2" face="Verdana">Fonte:</font></div></td>      <td> <div align="left">           <input name="FONTE" type="text" id="FONTE" size="50">        </div></td>    </tr>    <tr>       <td><div align="right"><font size="2" face="Verdana">Publicação:</font></div></td>      <td><div align="left"><font size="2" face="Verdana">           <input name="DATA" type="text" id="DATA" value="<% response.write(Date) %>" size="50">          </font></div></td>    </tr>    <tr>       <td> <div align="right"><font size="2" face="Verdana"> Imagem:</font></div></td>      <td> <div align="left">           <input name="IMG" type="text" id="IMG" size="50">        </div></td>    </tr>    <tr>       <td> <div align="right"><font size="2" face="Verdana">Status:</font></div></td>      <td> <div align="left">           <input type="radio" name="STATUS" value="ativa">          <font size="2" face="Verdana">Ativa           <input type="radio" name="STATUS" value="inativa">          Inativa </font></div></td>    </tr>    <tr>       <td height="24"> <div align="right"></div></td>      <td> <div align="left"></div></td>    </tr>    <tr>       <td colspan="2"> <div align="right"></div>        <div align="center">           <input type="submit" name="Submit" value="Gravar">        </div></td>    </tr>    <tr>       <td colspan="2"> </td>    </tr>    <tr>       <td colspan="2"><p><font color="#FF0000" size="1" face="Verdana">OBS:</font><font size="1" face="Verdana">           No campo IMAGEM, digite o nome do arquivo completo (ex: foto1.jpg).           É importante evitar utilizar espaços e acentos. Este nome           deverá ser exatamente o mesmo do arquivo que foi feito upload.           </font></p></td>    </tr>    <tr>       <td colspan="2"> </td>    </tr>  </table>  <p><strong><font color="#006666" face="Verdana"></font></strong></p>  <input type="hidden" name="MM_insert" value="form1"></form>

[Mário Monteiro 179]

so uma coisa está cadastrando??você olhou no banco??

[DackAle 0]

de autorizações na pasta do banco de dados =)Isso as vezes da problema, ele não deixa manipular o banco de dados, deixando como 777 funciona =)

[hunger 0]

entao, qdo acesso la no servidor, nada está cadastrando... e a unica pagina q está abrindo é a de cadastro. todas as outras q dependem de puxar alguma informação do BD nao está abrindo.(nao esquecendo que toda a programação, qdo aqui no meu micro, funciona td corretamente)como sou iniciante em asp e toda essa coisa...... nao sei como dar essas autorizações na pasta do bd....como faço?obgdo pela ajuda de todos.abço,marcos hunger.

[Mário Monteiro 179]

qual server você está usando?, ve se é um daqueles que você tem que colocar seu db numa pasta especifica dele que não é a mesmo caminho que você usa em seu micro e não estou falando do caminho fisicotipo assim tem uns server(gratuitos em geral) que mesmo que você tenha seu bd numa pasta BANCO nele você tem que colocar num pasta DBAi você teria que mudar mais uma pouco o negocio acimamas mesmo assim se não conectasse daria algum erro

[hunger 0]

opa...entao, o site está hospedado na locaweb. a unica pasta q tem diferente la é uma chamada aspnet_client, mas nao sei se tem a ver com isso.eu joguei o arquivo do bd junto com os outros, normalmente, como está aqui no meu micro...você acha q eu tenho q colocar o arquivo do bd em uma outra pasta?

[hunger 0]

olha, perguntei la na locaweb. disseram q o bd deve ser colocado em uma pasta chamada Dados.enfim, joguei o arquivo la. mas ainda nao funciona. imagino q tenha q alterar algum caminho.... certo?peguei o arquivo conexao.asp e mudei o caminho para:MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("Dados\BancoNoticias.mdb")nao sei se está certo. mas enfim, continua nao funcionando nada.

[hunger 0]

o cara la do suporte da locaweb disse para colocar o caminho completo, da seguinte forma:MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\dad\dados\BancoNoticias.mdb"de qualquer jeito, não funciona. qdo mando cadastrar alguma noticia, assim que clico no botão de enviar da erro. mas nao é erro em asp (pelo menos nao aparece nada na página de erro, como normalmente aconteceria). acredito q como ele nao consegue acessar o BD, nao consegue entao prosseguir a execução.sinceramente estou perdido!!!!

[Salgado 4]

Não aparece nada? Tela em branco?

 

Então ferifique seus redirecionamentos, se não conseguisse acessar o BD teria uma mensagem de erro, a não ser que você esteja usando "On Error resume Next"

[hunger 0]

não em branco.... vai para esta tela:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> A página não pode ser exibida Há um problema com a página que você está tentando acessar e ela não pode ser exibida. --------------------------------------------------------------------------------Tente o seguinte:Abra a home page www.dad.ind.br e procure links para a informação desejada. Clique no botão Atualizar ou tente novamente mais tarde.Clique em Pesquisar para procurar informações na Internet. Você também pode ver uma lista de sites relacionados. HTTP 500 - erro interno do servidor Internet Explorer >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>só que no caso, la na barra de navegação, continua o endereço desta página de cadastro. ela nao vai, por exemplo, para a pagina lista.asp que deveria ir, após o cadastro.todo o código desta página de cadastro esta ae mais acima. é complicado pq uso o dw, e ele enche de codigos ne....eu deduzi q o erro é por não acessar o banco de dados, pq após o preenchimento de um cadastro, nao está indo nada la pro bd. pode ser então que o erro agora seja nesta página de cadastro?!obgdo pela ajuda!

[Salgado 4]

Erro 500 é um erro genérico, vai nas opções avançadas de seu browser e desmarque a opção exiibir mensagens de erros HTTP amigáveis. Depois você terá a real descrição do erro.

[hunger 0]

ah....agora sim!

 

>>>>>>>>>>>>>>>>>>>>>

 

 

Microsoft JET Database Engine error '80004005'

 

Operation must use an updateable query.

 

/noticias/cadastro.asp, line 115

 

 

 

>>>>>>>>>>>>>>>>>>>>>>

 

abaixo está o trecho do código onde tem a linha 115, q marcarei com um (>>>) na frente:

 

<%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (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 IfEnd If%>

[Mário Monteiro 179]

cara o erro pode estar na sua string de conexão ou na sua string SQLfaz o seguinte, antes da linha que dá erro poeresponse.write MM_editQueryresponse.write "<br>"response.write MM_editConnectione escreve o que aparecer para gente