VB Script "Expected End of Statement"

Hi Experts,

I am using the following code and it telling me there is an error on Line 1 indicating Expected end of Statement.

I have also tried seperating the Dim's at the start to read something like:

Dim n, nTotal  
Dim cnn, rst

but that did not work either.

Never used VB Script before but after doing my home work I have found there should be nothing wrong with the code.

Can anyone see any problems in the code below.

Dim n, nTotal  Dim cnn, rst
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")

strPathtoTextFile = "C:\Databases"

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & strPathtoTextFile & ";" & _
          "Extended Properties=""text;HDR=YES;FMT=Delimited"""
    rst.Open "SELECT * FROM accounts.csv WHERE client_id=" 
         &  CInt(mailer.fields("client_id")), cnn
    n = 1
    nTotal = 0
    Do Until rst.EOF
        mailer.write("invoice" & n & ", ")
        mailer.write(rst("totalamount1") & ", ")
        mailer.write(rst("due"))
        if Len(rst("attach")) > 0 then mailer.attachFile(rst("attach"))
        mailer.write(vbCrLf)
        n = n + 1
        nTotal = nTotal + rst("amount")
        rst.MoveNext
    Loop
    rst.Close
    cnn.Close

Select all Open in new window