Ir para conteúdo
Fórum Script Brasil
  • 0

Alguem Pode Resolver?


vulmarjunior

Pergunta

Estou tentando configurar esse arquivo para usar o bd em access, já indiquei o caminho certinho do bd mas sempre aparece esse erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/pontocom/helpdesk/www/settings.asp, line 27

3 - Access Database (set AccessPath)

Não cosegui decifrar esse enigma.... tai o codigo pra você darem uma olhada

<script LANGUAGE = "VBScript" RUNAT="Server">

' Liberum Help Desk, Copyright © 2000 Doug Luxem

' Liberum Help Desk comes with ABSOLUTELY NO WARRANTY

' Please veiw the license.html file for the full GNU

' General Public License

' --------

' SETTINGS.ASP

'

' Loads the appplication variables.

' --------

' SetAppVariables:

' The procedure runs when the application is started or the file is changed

' Primary ojbectives are to set variables/constants used throughout the

' application.

Sub SetAppVariables

'========================================

' Database Information

' Database Type

' 1 - SQL Server with SQL security (set SQLUser/SQLPass)

' 2 - SQL Server with integrated security

3 - Access Database (set AccessPath)

'4 - DSN (An ODBC DataSource) (set DSN_Name)

Application("DBType") = 3

'========================================

'============ SQL SETTINGS ==============

Application("SQLServer") = "SQLSERVER" ' Server name (don't put the leading \\)

Application("SQLDBase") = "HelpDesk" ' Database name

Application("SQLUser") = "sa" ' Account to log into the SQL server with

Application("SQLPass") = "sapass" ' Password for account

' =======================================

'=========== ACCESS SETTINGS ============

'Physical path to database file

Application("AccessPath") = "E:\Inetpub\dados\helpdesk2000.mdb"

'========================================

'============= DSN SETTINGS =============

Application("DSN_Name") = "HelpDeskDSN"

'========================================

' Enable Debugging:

' Set to true to view full MS errors and other debug information

' printed. (This will disable most On Error Resume Next statements.)

Application("Debug") = False

End Sub

</SCRIPT>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Brother!!

Esta me parecendo problemas de DSN. :o

Dentro da sua maquina, há algum DSN como titulo de "HelpDeskDSN" conectado a um banco de dados do SQLServer chamado "HelpDesk" ?

Se você deseja trabalhar com Access e abrir seu banco de dados, use o seguinte código:

<%
Dim Conn, strConn, cBanco
cBanco = Server.MapPath("/banco.mdb")
strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";"
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open(strConn)
%>

Abraços!!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...