sintax error

[DEFINITE 0]

Olá pessoal..

 

Segue abaixo meu código e no final o erro que esta dando....

 

 

<%'///////////////////////////////////////////////////////////////////////////////////'connection stringConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("/teste1/Login.mdb")&";"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnString'///////////////////////////////////////////////////////////////////////////////////'///////////////////////////////////////////////////////////////////////////////////'cleanup routinesSub CleanUp(RS)  RS.Close  MyConn.Close  Set RS = Nothing  Set MyConn = NothingEnd SubSub CleanUp2()  MyConn.Close  Set MyConn = NothingEnd Sub'////////////////////////////////////////////////////////////////////////////////////%>

ERRO

 

Microsoft VBScript compilation error '800a03ea'

 

Syntax error

 

config.inc, line 5

 

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

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

 

Poderiam me ajudar urgenteee....!!!!!!!!!!

 

Grattoooo

[Salgado 4]

O problema é a quebra de linha, deveria ser:

<%
'///////////////////////////////////////////////////////////////////////////////////
'connection string

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/teste1/Login.mdb") &";"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConnString



'///////////////////////////////////////////////////////////////////////////////////


'///////////////////////////////////////////////////////////////////////////////////
'cleanup routines

Sub CleanUp(RS)
 RS.Close
 MyConn.Close
 Set RS = Nothing
 Set MyConn = Nothing
End Sub

Sub CleanUp2()
 MyConn.Close
 Set MyConn = Nothing
End Sub

'////////////////////////////////////////////////////////////////////////////////////
%>