dim nombre
dim departamento
Código:
'Si el form lo enviate con post usas request.form si lo enviaste con get usas response.querystring
nombre = Request.Form("Txtnombre")
dapartamento = Request.Form("Txtdepartamento")
sql = "Select * From listin Where nombre = '" & nombre & "' And departamento = '" & departamento &"'"
Es importante ponerle siempre a los campos de texto comillas simples al principio y al final ('campodetexto'); pues asi se diferencian de los campos numericos, puestos que estos no necesitan comillas simples(camponumerico)
eso pues saludos y suerte