Problemas para conectar

[NoB 0]

Eu construi um site em ASP aqui usando o IE, configurado pelo IIS, para realizar os testes. Agora, quando vou mandar a página para o provedor não consigo conectá-la, mesmo usando o código de conexão que eles me passaram.

 

Vejam:

<%@LANGUAGE="VBSCRIPT"%>

<%

set Conn = Server.CreateObject("ADODB.Connection")

cnpath=server.mappath("/")

cnpath=left(cnpath, len(cnpath)-3) & "dados\clients.mdb"

Conn.Open "Data Source=" & cnpath & ";Provider=Microsoft.Jet.OLEDB.4.0;"

%>

 

Este é código que estou usando para conectar.

 

Microsoft VBScript compilation error '800a0408'

Invalid character

 

/asp/Connections/conecta.asp, line 13

 

if (Request.QueryString) {

-------------------------^

Este é o erro que aparece.

 

E abaixo está o trecho em que a linha 13 está inserida:

<%

// *** Edit Operations: declare variables

// set the form action variable

var MM_editAction = Request.ServerVariables("SCRIPT_NAME");

if (Request.QueryString) {

MM_editAction += "?" + Request.QueryString;

}

Alguém faz idéia de como posso resolver?

[explore 3]

Cara ta estranho esse QueryString sem nada!! ele deve buscar alguma coisa!tipo Request.QueryString("NOME")Falo!!!!!!!

[JucaMaster 0]

Pelo que entendi, você está misturando os códigos javascript e asp......acho que seria interessante você fazêlos separados....não tem como você testar uma variável do asp no javascript.....e aquele querystring que você tem ele pode ser vazio sim...só que ele vai passar todos os parâmetros recuperados de sua url.Só o que eu não entendi foi essa mistura de asp com javascriptTalvez o seu código ficaria assim<%'Edit Operations: declare variables'set the form action variableDim MM_editAction MM_editAction = Request.ServerVariables("SCRIPT_NAME")if (Request.QueryString) thenMM_editAction = "?" & Request.QueryStringend ifSei lá mano....achei isso muito estranho....pelo jeito você usou os wizards do dreamweaver....talvez tenha dado pau nisso

[dilouco 0]

Eu construi um site em ASP aqui usando o IE, configurado pelo IIS, para realizar os testes. Agora, quando vou mandar a página para o provedor não consigo conectá-la, mesmo usando o código de conexão que eles me passaram.

 

Vejam:

<%@LANGUAGE="VBSCRIPT"%>

1-<%

2-set Conn = Server.CreateObject("ADODB.Connection")

3-cnpath=server.mappath("/")

4-cnpath=left(cnpath, len(cnpath)-3) & "dados\clients.mdb"

5-Conn.Open "Data Source=" & cnpath & ";Provider=Microsoft.Jet.OLEDB.4.0;"

6-%>

kra se você olhar bem seu codigo para que você esta utilizando o server.mappath("/") na linha 3 se na 4 você muda o valor da variavel

 

você não precisa dessa linha 4 é só você usar o server.mappath() da forma correta.

 

caso o banco esteje no memso diretorio:

server.mappath("banco.mdb")

 

caso esteje pastas a frente:

server.mappath("/dados/banco.mdb")

 

caso esteje diretorios atraz:

server.mappath("../banco.mdb")

assim volta um diretorio

 

 

e no request.queristring você tem que especificar oq quer do metodo GET

request.queristring("nome_da_variavel")

 

 

 

acho q com isso você consegue.

[NoB 0]

Opa! Valeu!

Já consegui conectar! Mas parece que as coisas estão em um esquema de rotação de erros por aqui:

 

ADODB.Command error '800a0bb9'

 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

 

/asp/Connections/conecta.asp, line 118

 

Eis aqui minha página com a linha 118 em negrito:

<%@LANGUAGE="VBSCRIPT"%>

<%

set Conn = Server.CreateObject("ADODB.Connection")

cnpath=server.mappath("/")

cnpath=left(cnpath, len(cnpath)-3) & "dados\clients.mdb"

Conn.Open "Data Source=" & cnpath & ";Provider=Microsoft.Jet.OLEDB.4.0;"

%>

<%

' *** 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 & "?" & 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")) = "form1") Then

 

MM_editConnection = MM_template_STRING

MM_editTable = "users"

MM_editRedirectUrl = "index.asp"

MM_fieldsStr = "aluno|value|email|value|responsavel|value|ktf|value|tel|value|senha|value|t

urma|value"

MM_columnsStr = "aluno|',none,''|email|',none,''|responsavel|',none,''|ktf|',none,''|tel|none,none,NULL|senha|',none,''|turma|none,none,NULL"

 

' 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

%>

[Marcelo Barcellos 0]

Qual a linha do erro ??POsta somente a linha que deu erro....

[Mário Monteiro 179]

o que tem em MM_editConnection???