Pues creo que no vas a poder reducirlo. Lo que puedes hacer, si no te gusta ese condicional tan largo, es utilizar
Select case:
Código:
idprovincia = CInt(rsContactos("idProvincia"))
Select Case idprovincia
Case 4, 11, 14, 18, 21, 23, 29, 41
Response.write "Mec, meeeeeec!"
Case Else
Response.write "Pi, piiiiiiii!"
End Select