Non credo che il problema sia nel codice postato
Forse quello che hai postato è solo una parte, prova a mettere
un response.end e verifica se carica ancora all'infinito.

if cint(pass) = 1 then
datepost = Request.Form("Date")
datacorrente = datepost
else
datacorrente = Request.QueryString ("datacorrente")
end if
response.end

Ciao