Precisei de fazer uma tabela numa página em ASP que teria que ter os dias do mês e o respectivo dia da semana, coloco aqui a função que usei para determinar o dia da semana da data. Retorna uma só a letra inicial.

Function diaSemana(data)
    Dim s, i
    s="DSTQQSS"
    i=Weekday(data,1)
    diaSemana=mid(s,i,1)
end function