Comparar datas com asp

[Ldomingues 0]

Boa tarde,

 

Estou com um problema, tenho um form assim:

 

<form name="form" method="post">
Data da Ocorrência: <input type="text" name="dataoco" value="" /><br />
Data Informada: <input type="text" name="datainformada" value="<%=Date%>">
<input type=button value="botao" >
</form>

Preciso fazer com que o valor da dataoco seja menor ou igual ao da datainformada e também que dataoco possa ser apenas até um mes antes da datainformada.

 

tenho esse codgo em javascript mas preciso dele em asp

 

function CompararData(){
dataoco = document.form.dataoco.value
datainformada = document.form.datainformada.value
datax = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data)-1,2) & "/" & DatePart("yyyy", Data)
var result = true;
if (dataoco <= datainformada )
result = false;
else
alert("Data de Ocorrência deve ser menor que a data informada!")
}

Obrigado!

[Ted k' 126]

teste esse script ai:

 

<%@ Language="VBScript" %>

<form name="form" method="post" action="?data=ok">
Data da Ocorrência: <input type="text" name="dataoco" value="" /><br />
Data Informada: <input type="text" name="datainformada" value="<%=Date%>">
<input type=submit value="botao" >
</form>

<%
if (request.QueryString("data") = "ok") then

	dataoco = Day(request.Form("dataoco")) & "/" & Month(request.Form("dataoco")) & "/" & Year(request.Form("dataoco"))
	datainformada = Day(request.Form("datainformada")) & "/" & Month(request.Form("datainformada")) & "/" & Year(request.Form("datainformada"))
	
	if cdate(dataoco) <= cdate(datainformada) then
		response.write "data menor, está OK"
	Else
		response.Write "data maior, está ERRADO"
	end if

end if
%>