quando usi xmlhttp devi testare che non si siano verificati errori, altrimenti responsetext restituirà un errore a sua volta.
aggiungi qualcosa tipo:

codice:
If xmlhttp.parseError.number <> 0 Then
    Response.Write "Error: " & xmlhttp.parseError.URL & _ 
            "
" & xmlhttp.parseError.Reason 
Else
    Response.Write xmlhttp.ResponseText
End If
tanto per vedere se ti dice qualcosa di più sull'errore. considera che parseError ha anche altri metodi utili per ottenere informazioni sugli errori.