Modo de genrar un archivo txt

Hola a todos,

actualmente tengo un código que me genera un archivo txt
con información proveniente a una tabla de una bd de

sql_server, el código que utilizó es el siguiente:

<%
Set act = fso.CreateTextFile(server.mappath
("Archivo_Pauta_Meridiano.txt"), true)
i=0

oRsP.open " Select *from Movimientos_Pauta", oConn, 1, 1

do while not oRsP.EOF

txt = "('" & oRsP.Fields("Nb_Producto") & "'),(" &
oRsP.Fields("Nu_Columnas") & "),(" & oRsP.Fields
("Nu_Alto") & "),('" & oRsP.Fields("Tx_Observaciones")
& "') " & vbcrlf


act.WriteLine(txt)
i=i+1

oRsP.MoveNext
loop
act.Close

%>

y como resulatdo de ello cada celda en el archvio txt se
ve reflejada de la siguiente manera:

('publicidad'),(6col),(32cm)

y me gustaría que se viese reflejada como:

publicidad,6col,32cm

dado a que este archivo tiene que exportarse a un

de diagramación.

en el query intenté quitarles los paréntesis pero me
arrojaba error de sintaxys, es por ello que como puedo
hacer para que esos registros aparezcan sin parentesis...

Gracias...
.