Novamente, Problema Com Permissão

[maktub]

fala galera, me ajudem por favor, estou testando meus códigos no IIS e já tive problema com permissões, segui o exemplo abaixo para resolver o problema:

- Vá em painel de controle, de um duplo clique em opções da pasta 
- Vá até modo de exibição, onde tem configurações avançadas, localize a frase usar compartilhamento simples de arquivos (recomendável)
- Desmarque esta opção. Clique em aplicar e depois ok. 
- Agora clique com o botão direito do mouse sobre o seu banco de dados e vá em propriedades.
- Clique no guia segurança e dê controle total ao usuário Todos, clique em ok.

mas continua dando esse erro aqui:

Não é possível exibir a página 
Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la. 

--------------------------------------------------------------------------------

Experimente o seguinte:

Clique no botão Atualizar ou tente novamente mais tarde.

Abra a localhost home page e procure os links para as informações desejadas. 
HTTP 500.100 - Servidor interno Erro - erro do ASP
Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:
Microsoft JET Database Engine (0x80004005)
Não foi possível usar ''. O arquivo já está em uso.
/app2/i_utils.asp, line 31


Tipo de navegador: 
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 

Página: 
GET /app2/Default.asp 

Hora: 
quarta-feira, 5 de outubro de 2005, 20:37:52 


Mais informações: 
Suporte da Microsoft 

O que pode ser agora? o código esta certo pois testei no PWS mas no IIS não roda nem a pau

Me ajudem ai pois esgotei minhas opções

Abraços

[maktub]

E essa frase: "O arquivo já esta em uso" ???? não entendi nada pois abri somente um código

[fercosmig]

qual é a linha 31?

posta parte do codigo ae

abraços

----- edited -----

da uma olhada nisto ae

http://support.yessoftware.com/kb_article.asp?article_id=4

Editado Outubro 6, 2005 por fercosmig

[bareta]

verifique se compartlhou a pasta no iis....

[maktub]

Fercosmig, o código é esse:

'' initiate global vars and constants
dim action
dim b_error, a_errors, error_list, a_msg, msg_list
dim cn, cmd, rs, rsselect, sql, do_search, a_records

'' instantiate error handling and messaging
set error_list = CreateObject("Scripting.Dictionary")
set msg_list = CreateObject("Scripting.Dictionary")

'' initiate db objects and connections

''' app database
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""
'cn.Open "Driver={SQL Server};Server=serverip_or_address;Database=database_name;Uid=userid;Pwd=password"

''' user database (may be the same as app)
set user_cn = Server.CreateObject("ADODB.Connection")
user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""

A linha 31 é essa:

user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""

Bareta: Eu acho que não fiz compartilhamento não, em todo caso como eu vejo isso?

[maktub]

Outro código que não abre, esse é o total ecommerce:

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="barra_busca" background="imagens/fundo_busca.gif">
  <form name="form_busca" method="post" action="busca.asp">
    <tr> 
      <td width="1%"><img src='imagens/antes_busca.gif'></td>
      <td width="40%"><strong><font color="#B9C7C0">&nbsp; </font></strong></td>
      <td width="60%" align="right" nowrap><strong><font color="#B9C7C0"> <img src="imagens/buscar_buscar.gif" align="absmiddle">
        <input name="busca" type="text" class="form_barra_busca" id="busca" style="width:100px">
        <img src="imagens/buscar_em.gif" align="absmiddle">
        <%
  Set objCon_busca = Server.CreateObject("ADODB.Connection")
  objCon_busca.Open Application("te_conexao")
  Response.Write "    <select name='secao' class='form_barra_busca' style='width:120px'>"
  Response.Write "    <option value=''>Todas as seções</option>"
  Set objRS_secoes = Server.CreateObject("ADODB.Recordset")
  objRS_secoes.CursorLocation = 2
  objRS_secoes.CursorType = 0
  objRS_secoes.LockType = 2
  strQ = "SELECT * FROM secoes ORDER BY ordem_exibicao ASC, titulo_texto ASC"
  objRS_secoes.Open strQ, objCon_busca, , , &H0001
  While Not objRS_secoes.EOF
    Response.Write "    <option value='" & objRS_secoes.Fields.Item("id").Value & "'"
	If Trim(Request("secao")) <> "" Then
   If Int(Request("secao")) = Int(objRS_secoes("id")) Then Response.Write " selected"
	End If
	Response.Write ">" & objRS_secoes.Fields.Item("titulo_texto").Value & "</option>"
    objRS_secoes.MoveNext
  Wend
  objRS_secoes.Close
  Set objRS_secoes = Nothing
  Set strQ = Nothing
  Response.Write "    </select>"
  objCon_busca.Close
  Set objCon_busca = Nothing
%>
        <input type="image" src="imagens/buscar_ok.gif" align="absmiddle" value="ok" name="submit">
        &nbsp;&nbsp; </font></strong></td>
      <td width="1%"><img src='imagens/depois_busca.gif'></td>
    </tr>
  </form>
</table>

ele aponta essa linha como arquivo em uso:

  objCon_busca.Open Application("te_conexao")

Não consigo abrir nada aqui por causa disso

[sergiotp]

já experimentou fechar o banco e rodar seu codigo?

Comigo funcionava...

abraços.

[maktub]

como assim?

Me explica ai to aceitando sugestões, manda

[maktub]

no psw ele roda normal, só no iis que fica essa frescura de "arquivo já esta em uso" ...

[Guest Cezar Suzuki]

Fercosmig, o código é esse:

'' initiate global vars and constants
dim action
dim b_error, a_errors, error_list, a_msg, msg_list
dim cn, cmd, rs, rsselect, sql, do_search, a_records

'' instantiate error handling and messaging
set error_list = CreateObject("Scripting.Dictionary")
set msg_list = CreateObject("Scripting.Dictionary")

'' initiate db objects and connections

''' app database
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""
'cn.Open "Driver={SQL Server};Server=serverip_or_address;Database=database_name;Uid=userid;Pwd=password"

''' user database (may be the same as app)
set user_cn = Server.CreateObject("ADODB.Connection")
user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""

A linha 31 é essa:

user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""

Bareta: Eu acho que não fiz compartilhamento não, em todo caso como eu vejo isso?

Seguinte Colega;

Quando abre pela primeira vez você fecha ela para edicao de outras aplicacoes, isso você já sabe... mas e dae...

você mandou abrir uma vez

cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""

Aqui ele já bloqueou o arquivo 8525.mdb para escrita e leitura em outras aplicacoes.

Dae você manda abrir de novo aki

user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & ""

quando chega aki ele tenta abrir o mesmo arquivo... mas já havia sido bloquiado anteriormente... sacou??

então o que fazer??

você deve fechar a primeira conexao com cn.CLOSE ou se precisa da conexao posteriormente utilize a mesma conexao para todo resto da aplicacao e não tente abrir mais instancias do mesmo arquivo mdb...

espero ter esclarecido...

[Guest Cezar Suzuki]

Isso acontece puq no codigo original ele devia usar bancos distintos para conteudo e para usuarios... e precisava fazer conexoes distintas tb...

[maktub]

tem como resolver isso? Mas é aquela história, no PSW funciona, queria que funcionasse no IIS também para testes, então não tem como?

[bareta]

vai na pasta wwwroot, tipo o seu é o totealecommerce né

clica com o botão direito em cima da pasta totalecommerce vai em compartilhammento web e verifique se ela esta compartilhada

[maktub]

Beleza, fiz isso, realmente ela não ta compartilhada não

[bareta]

e ai deu certo agora?

[Guest Guest]

Não deu certo não amigo, não sei mais o que faço