Se esperaba final de instrucción???

[alboraia]

Hola!
Estoy intentando adaptar un código de postales virtuales. Me ha dado este error, pero no consigo corregirlo. He repasado mil veces parentesis, comas, comillas, etc..
¿Alguien me puede indicar? Por favor, ayuda!!
Gracias a todos.

Error de compilación de Microsoft VBScript error '800a0401'

Se esperaba un final de instrucción

/postales/default.asp, line 20

Set Conna = Server.CreateObject("ADODB.Connection") Conna.Open("DRIVER={Microsoft Access Driver(*.mdb)}; DBQ=" & Server.MapPath("\postales\postales.mdb") ) set rs=createobject("ADODB.Recordset") if tema="" then sqltxt="SELECT distinct tema from postales" rs.open sqltxt,conna
----------------------------------------------------^

[TomaHawkk]

Hola!
....

Set Conna=Server.CreateObject("ADODB.Connection&q uot;)

strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("postales\postales.mdb")

set rs=Server.CreateObject("ADODB.Recordset" )

if tema="" then
sqltxt="SELECT distinct tema from
postales"
else
sqltxt="SELECT * from
postales"
end if

Conna.open

rs.open sqltxt,conna
...

Espero que te sirva, Saludos.

[alboraia]

Gracias TomaHawkk!!
Solucionado!
;)