[Resolvido] Erro 500.100 - Erro Intero - Erro do ASP

[luizsnpjr 0]

Boa tarde galera.

To com um problemão.

segue o link abaixo:

http://www.pluguemais.com/mural/mura.asp

 

É o seguinte, eu já trabalhei com esse mesmo Mural de REcados diversas vezes e nunca deu esse erro. Se eu dou Permissão (imagens da permissão, me corrijam se estiver errado ok? - 1- / 2-) ele não mostra os recados e da o erro 500.100:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x778 Thread 0xf64 DBC 0x1488b34 Jet' do Registro.

/novo/MURAL/common2.asp, line 38

Mas se eu tiro as permissões ele da erro na hora de inserir um comentário falando que não tem permissão.

 

Abiaxo segue o código do arquivo common2.asp

 

Set adoCon = Server.CreateObject("ADODB.Connection")

strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")

adoCon.Open strCon

strCodeField = "Code"

strCode = "nolinks2002"

Set rsConfiguration = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT tblConfiguration.* From tblConfiguration;"

O banco de dados está na mesma pasta dos arquivos, acredito que não seja por problema de chamada.

 

Não sei mais aonde recorrer.

 

Agradeço desde já a paciência.

 

Obrigado

 

Ninguém sabe de alguma alternativa?

Uma luz por favor galera.....preciso deste mural!

[CaBo GeL 0]

mais você já deu permissão na pasta???

 

at+

[hargon 64]

Dê a permissão conforme você fez e vá ao IIS e dê permissão também, talvez resolva seu problema.

[luizsnpjr 0]

vou testar...valeu

[luizsnpjr 0]

mais você já deu permissão na pasta???

 

at+

Cabo....na pasta eu já dei permissão e não mudou nada...Como é que eu dou permissão no IIS?

[hargon 64]

Abra o IIS (iniciar/ painel de controles/ ferramentas administrativas/ internet information service)

 

Localiza a pasta onde está o banco de dados. Clica com o botão contrário sobre ela, e vá em Propriedades. Lá você marca LER e GRAVAR.

[luizsnpjr 0]

Abra o IIS (iniciar/ painel de controles/ ferramentas administrativas/ internet information service)

 

Localiza a pasta onde está o banco de dados. Clica com o botão contrário sobre ela, e vá em Propriedades. Lá você marca LER e GRAVAR.

 

Infelizmente ainda nada....veja o erro:

 

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xa84 Thread 0x70c DBC 0x1430064 Jet' do Registro.

 

/novo/mural/common2.asp, line 33

Abaixo novamente o código:

 

<%
'Dim adoCon
'Dim rsConfiguration
'Dim strCon
'Dim strSQL
Dim intRecordsPerPage
'Dim strBgColour
'Dim strTextColour
'Dim strLinkColour
'Dim strTextType
'Dim intTextSize
'Dim strTableColour
'Dim strTableBorderColour
'Dim strTableTitleColour
'Dim strVisitedLinkColour
'Dim strActiveLinkColour
'Dim strHoverLinkColour
Dim blnLCode
Dim blnEmail
Dim strCode
Dim strCodeField
Dim strWebSiteEmailAddress
Dim strMailComponent
Dim strSMTPServer
Dim strLoggedInUserCode
Dim strTitleImage
Dim intMsgCharNo
Dim blnCookieSet
Dim blnIPBlocking

Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")
adoCon.Open strCon
strCodeField = "Code"
strCode = "nolinks2002"
Set rsConfiguration = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblConfiguration.* From tblConfiguration;"
rsConfiguration.Open strSQL, strCon
If NOT rsConfiguration.EOF Then
	strMailComponent = rsConfiguration("mail_component")
	strSMTPServer = rsConfiguration("mail_server")
	strBgColour = rsConfiguration("bg_colour")
	strTextColour = rsConfiguration("text_colour")
	strTextType = rsConfiguration("text_type")
	intTextSize = CInt(rsConfiguration("text_size"))	
	strLinkColour = rsConfiguration("links_colour")
	strTableColour = rsConfiguration("table_colour")
	strTableBorderColour = rsConfiguration("table_border_colour")
	strTableTitleColour = rsConfiguration("table_title_colour")
	strVisitedLinkColour = rsConfiguration("visited_links_colour")
	strHoverLinkColour = rsConfiguration("active_links_colour")
	strWebSiteEmailAddress = rsConfiguration("email_address")
	blnLCode = CBool(rsConfiguration("Code"))
	blnEmail = CBool(rsConfiguration("email_notify"))
	intRecordsPerPage = CInt(rsConfiguration("Comments_per_page"))
	strTitleImage = rsConfiguration("Title_image")
	intMsgCharNo = rsConfiguration("Message_char_no")
	blnCookieSet = CBool(rsConfiguration("Cookie"))
	blnIPBlocking = CBool(rsConfiguration("IP_blocking"))
End If
%>

[luizsnpjr 0]

cARA....DEU CERTO....Muito obrigado....muito obrigado mesmo

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Mas como resolveu?