rotina em asp

[luciano_lka]

Olá, estou trabalhando com site feito em asp, como não tenho muito conhecimento em asp e faz algum tempo que não trabalho com asp,

gostaria de pedir um help para essa rotina que não está funcionando,

a saber:

<code>

<%

Dim dm,vg,mti,mt

EmpCidade = request.Querystring("CidadeSelecionada")

If request.form("2dm") = "on" then

dm = 2

end if

If request.form("3dm") = "on" then

dm = 3

end if

If request.form("4dm") = "on" then

dm = 4

end if

If request.form("1vg") = "on" then

vg = 1

end if

If request.form("2vg") = "on" then

vg = 2

end if

If request.form("3vg") = "on" then

vg = 3

end if

If request.form("70m") = "on" then

mti = 10 , mt = 70

end if

If request.form("90m") = "on" then

mti = 70 , mt = 90

end if

If request.form("150m") = "on" then

mti = 90 , mt = 150

end if

If request.form("200m") = "on" then

mti = 150 , mt = 10000

end if

strSQL = "SELECT * FROM TabelaEmp where EmpCidade =" & "&(EmpCidade)&" "

strSQL = strSQL & " and "EmpDorm = "&(dm)&"

strSQL = strSQL & " and "EmpGaragem = "&(vg)&"

strSQL = strSQL & " and "EmpMetros Between "&(mti)&"

strSOL = strSQL & " and "&(mt)&" order by EmpCategoria, Empnome" "

Set rs = connect.Execute(strSQL)

If not rs.EOF then

CidadeCorreta = rs("EmpCidade")

strCidade = "SELECT * FROM TabelaCidades where CidadeId = " & (CidadeCorreta) & ""

Set rsCidade = connect.Execute(strCidade)

End If

%>

</code>

Fica dando msg de erro de string

Description: Unterminated string constant

Já alterei diversas linha do select e continua dando o mesmo erro,

Obrigado

[luciano_lka]

Carambaa ninguém !!!!