Ah well, "(4,34) Microsoft Vbscript compilation error Invalid c(h)aracter" is a completely different problem, it has nothing to do with SQL Server or ODBC.

In the code that you posted:

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

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adUseClient = 3

Set objConnection = CreateObject(“ADODB.Connection”)

objConnection.ConnectionTimeout=1200

objConnection.Open “DSN=BaseTMGW;UID=PTMGUSR;PWD=K/00RdWjFK0Dg8MFF4MEX7”

objConnection.EXECUTE “delete FROM WebProxyLog WHERE logtime <= getdate()-60"

objConnection.Close

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

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adUseClient = 3

Set objConnection = CreateObject(“ADODB.Connection”)

objConnection.ConnectionTimeout=1200

objConnection.Open “DSN=BaseTMGF;UID=PTMGUSR;PWD=K/00RdWjFK0Dg8MFF4MEX7”

objConnection.EXECUTE “delete FROM Firewall WHERE logtime <= getdate()-60"

objConnection.Close

Are the dashes ("----...") actually in there? If so, then try putting an apostrophe (" ' ") in front of them:

'-------------------------------------------------------------------------------------------'

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adUseClient = 3

Set objConnection = CreateObject(“ADODB.Connection”)

objConnection.ConnectionTimeout=1200

objConnection.Open “DSN=BaseTMGW;UID=PTMGUSR;PWD=K/00RdWjFK0Dg8MFF4MEX7”

objConnection.EXECUTE “delete FROM WebProxyLog WHERE logtime <= getdate()-60"

objConnection.Close

'--------------------------------------------------------------------------------------------'

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adUseClient = 3

Set objConnection = CreateObject(“ADODB.Connection”)

objConnection.ConnectionTimeout=1200

objConnection.Open “DSN=BaseTMGF;UID=PTMGUSR;PWD=K/00RdWjFK0Dg8MFF4MEX7”

objConnection.EXECUTE “delete FROM Firewall WHERE logtime <= getdate()-60"

objConnection.Close

Also, I notice that you've got some stylized quotes in there, like (“...”) instead of ("..."). These stylized quotes are invalid in almost every programming language. You should carefully remove each one by hand and replace it with an actual Quotation Mark character.

These stylized quotes usually come from trying to use a word processor (like MS Word, or Wordpad) to edit code, instead of a code editor or Notepad, so make sure that you don't repeat this problem (just use Notepad if you don't have a code editor).

Alternatively, you can cut and paste my corrected version, below:

'-------------------------------------------------------------------------------------------'

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adUseClient = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionTimeout=1200

objConnection.Open "DSN=BaseTMGW;UID=PTMGUSR;PWD=K/00RdWjFK0Dg8MFF4MEX7"

objConnection.EXECUTE "delete FROM WebProxyLog WHERE logtime <= getdate()-60"

objConnection.Close

'--------------------------------------------------------------------------------------------'

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adUseClient = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionTimeout=1200

objConnection.Open "DSN=BaseTMGF;UID=PTMGUSR;PWD=K/00RdWjFK0Dg8MFF4MEX7"

objConnection.EXECUTE "delete FROM Firewall WHERE logtime <= getdate()-60"

objConnection.Close